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ACEYDU 
AMAZIN 
ANIMAL 
AWARI 
BAGLES 
BANNER 
BASBAL 
BASKET 
BATNUM 
BATTLE 
BINGO 
BLKJAC 
BLKJAK 
BOAT 
BOMBER 
BOUNCE 
BOWL 
BOXING 
BUG 
BULCOW 
BULEYE 
BULL 
BUNNY 
BUZZWD 
CALNDR 
CAN-AM 
CHANGE 
CHECKR 
CHEMST 
CHIEF 
CHOMP 


CIVILW 
CRAPS 
CUBE 
DIAMND 
DICE 
DIGITS 
DOGS 
EVEN 


EVENL 
Poe OP 


Contents 


Brief Description 


Play acey-ducey with the computer 
Computer constructs a maze 


Computer guesses animals and learns new ones from you 


Ancient game of rotating beans in pits 
Guess a mystery 3-digit number by logic 
Prints any message on a large banner 
Baseball game 
Basketball game 
Match wits in a battle of numbers vs. the computer 
Decode a matrix to locate enemy battleship 
Computer prints your card and calls the numbers 
Blackjack (very comprehensive), Las Vegas rules 
Blackjack (standard game) 
Destroy a gunboat from your submarine 
Fly World War II bombing missions 
Plot a bouncing ball 
Bowling at the neighborhood lanes 
3-round Olympic boxing match 
Roll dice vs. the computer to draw a bug 
Guess a mystery 5-digit number vs. the computer 
Throw darts 
You're the matador in a championship bullfight 
Computer drawing of the Playboy bunny 
Compose your speeches with the latest buzzwords 
Calendar for any year 
Drive a Group 7 car in a Can-Am road race 
Computer imitates a cashier 
Game of checkers 
Dilute kryptocyanic acid to make it harmless 
Silly arithmetic drill 
Eat a caokie avoiding the poison piece 
(2 or more players) 

Fight the Civil War 
Play craps (dice), Las Vegas style 
Negotiate a 3-D cube avoiding hidden landmines 
Prints l-page diamond patterns 
Summarizes dice rolls 
Computer tries to guess digits you select at random 
Penny arcade dog race 
Take objects from a pile--try to end with an even 

number 
Same as EVEN--computer improves its play 
Solitaire logic game--change a row of Xs to Os 


FOOTBL 
FOTBAL 
FURS 


Professional football (very comprehensive) 

High School football 

Trade furs with the white man 

Golf game--choose your clubs and swing 

Ancient board game of logic and strategy 

Guess a mystery number--computer gives you clues 
Fire a cannon at a stationary target 

Fire a cannon at a moving target 

Hangman word guessing game 

Computer becomes your friendly psychiatrist 
Hexapawn game 

Try to hit the mystery jackpot 

Try to remove all the pegs from a board 

Govern the ancient city-state of Sumeria 

Ice hockey vs. Cornell 

Off-track betting on a horse race 

Find the Hurkle hiding on a 10x10 grid 

Drill in simple kinematics 

Govern a modern island kingdom wisely 

Guess a mystery letter--computer gives you clues 
John Conway's Game of Life 

Competitive game of life (2 or more players) 
Children's literature quiz 

Children's arithmetic drill using pictures of dice 
Mcnopoly for 2 players 

Locate 4 Mugwumps hiding on a 10x10 grid 
Computer guesses number you think of 

Chinese game of Nim 

Silly number matching game 

Challenging game to remove checkers from a board 
Destroy an orbiting germ-laiden enemy spaceship 
Deliver pizzas successfully 

Computer composes poetry in 4-part harmony 
Computer composes random poetry 

Poker game 

3-dimensional tic-tac-toe 

Move a single chess queen vs. the computer 
Order a series of numbers by reversing 

Land an Apollo capsule on the moon 

Lunar landing from 500 feet (with plot) 

Very comprehensive lunar landing 

Game of rock, scissors, paper 

European roulette table 

Russian roulette 

Destroy an enemy fleet of ships 

Destroy 4 enemy outposts 

Slot machine (one-arm bandit) 

Pictures of Snoopy 

Comprehensive game of spacewar 


SPLAT 
STARS 
STOCK 
SYNONM 
TARGET 
3D PLOT 
LICTAC 
TOWER 
TRAIN 
TRAP 
23MTCH 
UGLY 
WAR 
WAR-2 
WEKDAY 
WOR D 
YAHTZE 
ZOOP 


QAWY 


Open a parachute at the last possible moment 
Guess a mystery number--stars give you clues 
Stock market simulation 

Word synonym drill 

Destroy a target in 3-D space--very tricky 
Plots families of curves--looks 3-dimensional 
Tic-tac-toe 

Towers of Hanoi puzzle 

Time-speed-distance quiz 

Trap a mystery number--computer gives you clues 
Game of 23 matches--try not to take the last one 
Silly profile plot of an ugly woman 

Card game of war 

Troop tactics in war 

Facts about your birthday 

Word guessing game 

Dice game of Yahtzee 

BASIC programmer's nightmare 
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Game Diagrams 
Instructions to Game Authors 
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Preface 


Mots eis not the first collection of computer games and. simula— 
tions nor will it by any means be the last. However, in many 
Weyer it 1S unigue. It is the first collection of games all 
mernciC, lt 1s also the only collection that.contains both 

a complete listing and a sample run of each game along with a 
descriptive write-up. 


Educational Value of Games 


Educators have widely different opinions as to the educational 
value of games. There tends to be agreement that games are 
highly motivational and frequently very addictive. Most 
educators agree that games generally foster learning by dis- 
covery--1.e., the player doesn't sit down at the terminal with 
the purpose of learning a-principle of togic but after playing 
BAGLES three or four times he most assuredly has learned some- 
thing about logic. Newton's second law is probably the furthest 
thing from the mind of a person sitting down to play ROCKET. 
However, when the player finally lands his LEM successfully on 
the moon, the chances are very good that he has discovered 
something about gravity varying inversely with the mass of the 
LEM and the distance from the moon. 


The main objection to games as a learning tool seems to be the 
fact that it's largely unguided learning and potentially waste- 
ful of computer time. Art Leuhrmann of Dartmouth joked that 

some computer center directors might be willing to pay to not 
have the book sold on campus because of the computer time that 
would be burned up by playing the games; however, the educational 
value of games can be enormous - not only in their playing but 

in their creation, 


The majority of games submitted tend to simulate a sport, card 

or board game, a game of chance or something which already exists. 
Only a few games begin to use the logical and computational 
Capabilities of the computer to come up with something new and 
Geuly unique. Some that do are STARES, BULCOW, ROCKET, and 


Certain games are, of course, more popular with game authors that 
others. There were no less than ten versions of NIM submitted, 
nine versions each of HORSES (Horse Race) and TICTAC (Tic-Tac-Toe), 
and eight versions of CRAPS. Other popular ones were simulations 
of baseball, basketball, football, blackjack, and hangman. 


Families of Games 


A word about the title of the book. The astute, quantitatively- 

ofLented reader might notice that “there seem to be more coan 

101 games in the book. In fact, there are 108 individual games; 

(-are-different verSrons of another -game.. There are 101. ceparate 
write-ups; thus, the title of the book. 


Perhaps it is a disease of using the computer or perhaps it is 
just a compulsion of man that he must categorize things. fThe 
games in this book could be categorized by level of GLEE Led dey, 
as is often the case in collections of puzzles. They could 
also be categorized in an educational sense, for example, those 
that could be used to teach logic principles, those that foster 
learing by discovery, those that require the “user -to- solve—an 
algebra problem, etc. 


In the first two groups, Number or Letter Guessing and Piles of 
Objects, you will probably get more enjoyment 12 youcpilay the 
games in the numbered order as there is a definite sequential 
MoeUbe CO tneir dittiieulty. In the other fourteen categories, 
the games may be played in any order; one does not generally 
build upon another except in a few cases. INsPpantlcular,../OU 
should play: 


BAGLES before BULCOW 
HI-Q before 1CHECK 
BATTLE before SALVO 
GUNNER before SUNERL 
ROCKET before ROCKT2 
HMRABI before KING 


Equipment to Play, Computer and Otherwise 


Most of the games in this book require no special knowledge, tools 
Or equipment to play, except, .Otccourse, a BASIC-speaking computer. 
Hour of the matrix games will probably be more enjoyable if you 
use a grid or quadrille paper to Play. Unless you have a photo- 
graphic memory, QUBIC almost certainly requires a diagram. There 
is a page included as Appendix B which contains some supplemental 
diagrams; you may wish to reproduce it if you become addicted to 
the games on it. 


With few exceptions, the games all run in "standard" BASTC. Any 
exceptions are noted in the write-ups under the heading, "Computer 
Limitations." The major difference between various computer systems 
appears to be in the handling of alphabetic strings. On Digital 
systems a subscripted string variable, for example, AS(8) or en SM Gh Rey's 
refers to a variable in an array or matrix. Other BASIC compilers 
may not have string arrays. 


On some systems, in particular, Digital's Edusystems 20, 25, and 50, 
strings are limited to 6 characters. Several strings may, or course, 


be combined in an array to permit longer than 6-letter words to be 
used. 


Many programs use the RANDOMIZE command to start the random number 
generator at a random point. Some BASIC compilers do not recognize 
RANDOMIZE and it must be removed in order for the program to run. 


Digital BASIC permits more than one statement on each program line. 


Statement separators on the line may be one of three characters -- 
Z-Or = .Or O A 


Digital Equipment Corporation 
Maynard, Massachusetts 
wuly 1973 
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aS The Games.... 


ACEYDU ............ 


Description 


This is a simulation of the Acey Ducey card game. In the 
game, the dealer (the computer) deals two cards face up. 

You have an option to bet or not to bet depending on whether 
or not you feel the next card dealt will have a value between 
the first. two. 


Your initial money (Q) is set to $100; you may alter Statement 
170 if you want to start with more or less than $100. The 


game keeps going on until you lose all your money or interrupt 
the program. 


Program Author 


Bill Palmby 
Adlai E. Stevenson High School 
Prairie View, Illinois 60069 


13 


SAMPLE RUN 


RUNNH 


PROGRAM LISTING 


CISTNH edhnrn ACEY-CUCEY IS PLAYED IN THE FOLLOWING MANNER: 
26 REM +++ GAME OF ACEY-DUCEY WRITTEN 64 BILL PRUMB' THE CEALER “COMPUTER? DEALS TWO CARDS FACE UF 


28 REM dr ADLAT STEVENSON HIGH SCHOOL. PRAIRE VIEW. ILL YOU HAVE THE OPTION TO BET OR NOT TO GET DEPENDING 
Sec NaI MAS UI I SRS esha taller ice cull ON WHETHER OR NOT YOU FEEL THE NEXT CARO WILL HAYE 
Ho R OMI ZE HS i 
a4 BRING HEE Y-DUCEY 1S PLAYED IN THE FOLLOWING MANNER: ® A VALUE BETWEEN THE FIRST TWO 
492 PRINT "THE DEALER (COMPLITER) DEALS TWO CARDS FACE UP." 
83 PRINT "YOU HAYE THE OPTION Ti EET OR NOT To BET GEFENDING" 
PRINT "ON WHETHER OR NOT YO! FEEL THE NEXT CARD WILL HAYE" 


IF YOU DO NOT WANT TO BET. INFUT AG, 


VOU NOW HAVE 168 DOLLARS 


PRINT "A YALUE BETWEEN THE FIRST Tw 


Me PRINT "IF YOU CO NOT WANT TO GET. INPUT A ow, " 


PRINT 

N=180 > Q=1048 

PRINT “YOU NOW HAYE"@"DOLLARS. " 
PRINT 
ooTo 2 


196 


gato 


R=INTC144#RND +2 
3 


B=INTC14#RNDO +2 
IF &<2 THEN a8 
IF B>i¢ 
IF AD>=B 
ine 
i 
IF 


a) 


PRINT "JACK" 
GoTo 5a 
PRINT 
BOTO See 
PRINT "KING" 
GOTO See 
PRINT "ACE" 

41 THEN 554 
THEN 
THEN 
THEN 
THEN 62 


EES 
GOB is 


WEEN" 


a2ftdih 
one 


FSGHAGM aT eaanaae 


Van + 
MWh Re om oy 


GOTO 656 
PRINT “JRGEK" 
GOTO 654 
PRINT "GUEEN" 
50TO 656 
PRINT "KING" 
GOTO 656 
PRINT "ACE" 
PRINT 

INPUT "WHAT 
IF M<>8 THEN 6 
PRINT "CHICKEN! !"- PRINT 
GOTO 2668 

IF M<=G@ THEN 736 


aa 


YOUR BET"s M4 
a 


BABAAABAHMHUKUY 
SAN OW MR eo oo ms 


PV OO GDeHanaoas 


oy 
= 


SOTO 65a 
C=INTCAd4+RND D+ 
IF C<2 THEN 


IF THEN 5 
ids THEN 314 
IF 1 THEN LS) 
ie 2 THEN 4 
IF = THEN S78 
IF THEN #948 


PRINT © 

GOTO 346 

B PRINT "JACK" 

846 GOTO 346 

854 PRINT "GUEEN" 

368 GOTO 944 

874 PRINT "KING" 

885 60TO 344 

8965 PRINT "ACE" 

914 IF C>A THEN 324 

926 GOTO 374 

936 IF C>=B THEN 376 

956 PRINT "YOU WINtHI8 

966 GOTO 246 

970 PRINT "SORRY. YoU Lose. " 

938 IF MS THEN 244 

16696 PRINT 

1616 PRINT "SORRY. FRIEND. BUT You BLEW 
1926 INPUT "TRY AGAIN <YES oR NO) "5 AS 
A826 IF AS="YES" THEN 144 


1955 END 


READY 


PRINT "HERE ARE SOUR NEXT TWO CARDS. . 


” 


PRINT "SORRY. MY FRIEND. BUT SOU BET TOO Much" 
PRINT "SOU HAVE ONLY" O"DOLLARS To BET, " 


SOUR WAC. * 


PRINT:PRINT "C.K. HOPE SU) HAD FLINT) ® 
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HERE ARE YOUR NEXT TWO CRROS. . 
6 


169 


WHAT IS YOUR BET? 16 

6 

SORRY. YOU LOSE 

YOU NOW HAVE 38 COLLARS 

HERE ARE YOUR NEXT TWO CAROS... 
6 


RUEEN 


WHAT I5 YOUR BET? 2H 

JACK 

YOU WIN!!! 

OU NOW HAYE 114 DOLLARS 
HERE ARE YOUR NEXT THO CARDS 
169 

KING 


WHAT 15 YOUR BET? 
CHICKEN! ! 


H 


mm 


RE ARE YOUR NEXT TWO CARDS. . 


Lo fo 


WHAT IS YOUR BET? 24 
168 
SORRY. YOU LOSE 
YOU NOW HPVE 38 DOLLARS 
HERE ARE YOUR NEXT TWO CARDS. . 


co 


WHAT I5 YOUR BET? 26 


SORRY, You LOSE 

YOU NOW HAVE 64 DOLLARS 

HERE ARE YOUR NEXT THO CARDS. . 
3 


RUEEN 


WHAT I5 YOUR BET? 
CHICKEN! ! 


HERE ARE YOUR NEXT TWO CAROS 


eh 


WHAT IS YOUR BET? @ 
CHICKEN! ! 


HERE ARE YOUR NEXT THO CARDS... 
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WHAT IS YOUR BET? 
CHICKEN! ! 


HERE ARE YOUR NEXT TWO CARDS 


RCE 


WHAT I5 YOUR BET? 244 
SORRY. MY FRIEND. BUT You BET Ton MUCH 
YOU HAVE ONLY 68 DOLLARS To BET 


WHAT 15 YOUR BET? 64 
5 
YOU WIN! 
YOU NOW HAVE 126 COLLARS. 
HERE ARE YOUR NEXT TWO CARDS. . 
5 
g 


MHAT I5 YOUR BET? 2a 
? 
SORRY. YOU LOSE 
YOU NOW HAVE 194 DOLLAR 
HERE ARE YOUR NEXT TWO CARDS 


co |, 


WHAT IS YQUR BET? 30 
16 
SORRY, YOU LOSE 
YOU NOW HAVE 16 DOLLARS 


WHAT IS YOUR BET? 16 
QUEEN 
SORRY, YOU LOSE. 


SORRY. FRIEND, BUT You BLEW YOUR WAC 
TRY AGAIN ¢YES OR NOD? NO 


O.K. HOPE YOU HAD FUN! 


AMAZIN 


Description 


DRAW A MAZE 


This program will print out a different maze every time it 
is run and guarantees only one path through. You can choose 


the dimensions of the maze--i.e. the number of squares wide 
and long. 


Computer Limitations 


The amount of memory available will determine the maximum 
size maze that may be constructed. An 8K EduSystem 20 
initialized £o0r one user can draw a 13x13 maze. *RSTS/E 

can draw a 23 (width of paper limit) x 50 maze, even larger 
uSing virtual memory. 


Experiment on your system with the maze dimensions in 
Statement 110. 


Program Author 


Jack Hauber 
Loomis School 
Winasor, Cr 06095 


PROGRAM LISTING 


35 694 LET G=1 


USYSTEM 
SY ee ue 692 GO To $30 


DOMI2 708 IF WKR,S+1)<>6 THEN 734 
a SEE Bere 746 LET X=INTCRND(B)#2+4) 
426 PRINT "WHAT ARE YOUR WICTH ANC LENGTH?" 728 IF X=1 THEN S68 

421 INPUT H,Y Ret IP kc Hen Se 
TZSVERENT 736 GO TO 866 ‘ 

41236 IF H<>4 THEN 158 740 IF S<>¥ THEN 766 

US ES Me THEN 154 756 IF 2=14 THEN 736 

132 PRINT “MEANINGLESS DIMENSIONS, TRY AGAIN” (st LET @=4 

144 PRINT 752 GO TO 774 I 
d41 G0 To 126 766 IF NCR, S+42<>8 THEN 736 
156 PRINT 776 GO TO 914 


50 TO 1646 


454 PRINT 
LET WCR-41,S5)=€ 


166 LET = 


16t LET 2=8 LET €=C+4 

162 LET X=INTCRNO(G)+#H+1) LET V¢CR-41, S9=2 

163 FOR I=4 TO H LET R=R-14 

78 TE T=% THEN 473 IF C=H*¥+1 THEN 1614 

ER PRN tuba ONS LET @=4 

4172 GO TO 184 GO TO 266 

A IPRUNT Ones. ahs LET WOR, S-1)= 

166 NEXT I CET €=cC+4 

LOO TP RINT EET WCRS S=s S21 

i397 Cer e=2 LET S=s-4 

192 IF C=H*¥+41 THEN 1446 
LET @=6 


Go TO 266 

LET WCR+4,. S9=0 
LET C=cC+1 

IF ¥CR.5)=6 THEN 338 
LET ¥CR,5)= 

GO TO $336 
LET ¥CR, S2=2 

LET R=R+4 

IF C=H*#¥+1 THEN 1616 
60 TO 524 

IF @=4 THEN 366 

LET WOR, S+49=C 


5 =@ THEN 214 PET €=c+4 

26@ IF R @ THEN Sse IF ¥CR,S52=@ THEN 944 

264 IF WeR-41,.59¢>8 THEN Sia 930 LET ¥¢R.S)=2 

Ea olemee tee =68 THEN 394 931 60 TO 954 

236 IF WER,S-1)¢>@ THEN 29a 946 LET VCR, S)=4 

296 IF R=H THEN a 956 LET S=S+4 

308 IF WCR+4,5)<5@ THEN 230 954 IF C=H+*V¥+4 THEN 1414 
LET S=INTOCRNO CA) # E44) 952 GO TO 266 


960 LET 2=4 
970 IF YER, 
974 LET YER, S) 
nie 972 LET g=6 


72 60 TO 1406 
986 LET VCR, 5)=4 
981 LET @=6 
>&@ THEN 374 982 LET R=4 
356 LET X= INTCRND CB) *244) 996 LET S=4 
368 IF X=41 THEN ?: 991 GO TO 256 
5 ; THEN 1469 GO TO 216 
THEN a 1416 FOR J=4 To ¥ 
INTORND(G) #244) 1011 PRINT" IMs 
THEN 7? 1412 FOR I=1 TO H 
THEN 820 1913 IF ¥¢1.J 
396 IF R= H THEN 474 1626 PRINT" 
406 IF WOR+1,5)9<>6 THEN 474 1621 G0 TO 14448 
401 IF S<>Vv THEN 4248 DUSGCR RENT" oT)"; 
416 IF 2=4 THEN 456 14646 NEXT I 
444 LET Rad 1444 PRINT 
442 60 TO 436 s 1642 FOR I=4 TO H 
426 IF WOR, St4 <> THEN 454 1045 IF Vcr, 


INTE RNG 


1959 IF Wer. J) 
1854 PRINT": 
1852 GO TO 1976 
4869 PRINT "--~-"; 
1878 NEXT I 


THEN 
THEN 
INTY RNG 


THEN 7? 4071 PRINT": ® 
THEN ¢ 1972 NEXT J 
THEN 43 4873 END 
THEN 
431 LET R24 
432 G0 TO Soa 
498 IF WOR, $449<> 
586 LET X=INTCRN 
519 IF THEN 
541 IF ¥=2 THEN 
528 80 10 798 
530 IF S-1=9 THEN 670 
54@ IF WCR,S-1)<30 THEN 676 
544 IF R=H THEN SAMPLE RUN 
S42 1F WCR+4,5)<>4 THEN 616 
558 IF S<>¥v THEN Sea 
B54 (ced THEN See AMAZIN EDUSYSTEM 2a 
552 LET @=4 
552 G0 To S70 WHAT ARE YOUR WIDTH AND LENGTH? 
566 IF NCR. 5+4)¢>0 THEN Soa 2907 
578 LET X=INTCRND(B) #244) 
520 IF X=4 THEN 22 
% 6 
: EA a A alr aE Bel ke 
; 1 Toel I I 
2 5 eae eae 
¥ F ie al et 4 I I 
518 >Y THEN 6 = ina 
620 IF 2=4 THEN 6ea IT HE Sih oll I 
624 LET @=4 ne oa Varn ok en ind oe ae Cs 
622 GO TO 640 aa I I 
636 IF WOR, S+1)<>G THEN 66a Sean a pop Oe ie We 
64 LET X=INTCRND(B) 4244) I I u ye 
654 IF X=4 THEN s2a SL ier bk May ee aw Io 
654 IF X=2 THEN 910 Ee I I I 
564 60 TO 82a ot SS MME Reema Pleas an 
678 IF R=H THEN 740 See eee «ike OLY Silene Le! 
686 IF WCR+1,5)<>6 THEN 746 Derg Se eer cera ag, Pe 
684 IF S<>¥ THEN 7a40 
698 IF 2=1 THEN 72a READY 
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ANI MAL COMPUTER GUESSES YOUR ANIMAL 


Description 


Unlike other computer games in which the computer picks a 
number or letter and you must guess what it is, in this 
game you think of an animal and the computer asks you 
questions and tries to guess the name of your animal. If 
the computer, guesses incorrectly, it will ask you for a 
question that differentiates the animal it guessed from the 
One you were thinking of. In this way the computer "learns" 
new animals. Questions to differentiate new animals should 
be input without a question mark. 


IMPORTANT: At the end of a playing session, to the question, 
"ARE YOU THINKING OF AN ANIMAL," you must respond "SAVE" 

in order that the computer save all the new animals you have 
introduced. To that same question, at any point in the game, 
if you respond "LIST," the computer will tell you all the 
animals it knows so far. 


The program starts originally by knowing only "FISH" and 
"BIRD." Additional animals are stored in the file "ANIMAL.GME,." 


Computer Limitations 


This program was written for a DIGITAL RSTS-1l1 and uses several 
unique features, in particular, multiple user access to a 
common data file and several advanced string handling functions. 
It has been converted with some minor changes to OS/8 BASIC 

and could be adapted to other systems as well. 


Program Author 


Nathan Teichholtz 
Digital Equipment Corporation 
Maynard, MA 01754 


PROGRAM LISTING 


190 


15a 
5289 
525 


558 


CREATED @6=APR=73 04144 PM 
"PLAY 'GUESS THE ANIMAL! WITH RSTS 
te THINK OF aN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT.eo"28 
DIM A$(2g0) 
FSe"ANIMAL GME" 

tON ERROR GOTO 700 
OPEN FS FOR INPUT AS FILE 1% 

tINPUT #1%)N% 

HINPUT wi,Ag(Ix) FOR Ixei1xTO Nx 

tCLOSE 4% 

2A$(O%) eNUMS$ (NZ) 

ON ERROR GOTO @ 

sGOTO 1300 


708 ON ERROR GOTO 1052 


1050 
1120 
1300 


1310 


1322 


1352@ 
1400 


145 


2080 
2050 


2100 


2200 


2500 
3000 


9999 


tFSa"Suyrs 
TRESUME 559 
READ ASC(I%) FOR 1%e8X% TO 3% 
DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD" 
INPUT "ARE YOU THINKING OF AN ANIMAL"3Z9$ 
tGoTo 1356 IF LEFTC(Z9$,1x%)e"y" 
1GOTO 1300 IF LEFT(Z95,1%)e0Nn 
IF Z9S=E"SAVE" THEN 
OPEN "ANIMAL GME" FOR OUTPUT AS FILE 1% 
HPRINT #1%,A8(1%) FOR 1%eB% TO VALCA$(0%)) 
tPRINT #1,CHRS (26%) 
sCLOSE 1% 
1GOTO 1300 
IF ZoSs"LIST" THEN 
PRINT "ANIMALS I ALREADY KNOW ARES" 
tPRINT RIGHTCASCI%)/3X%), IF INSTR(L%/ASCIX),"\A") FOR T%21% TO 200% 
tPRINT 
tGOTO {300 
Kxe1x 
KXBFNAXCAS(K%)) 
$GOTO 3000 IF LENCAS (Kx) ) 80x 
#GOTO 4499 IF LEFT CAS(K%) , 2%) a" \Qu 
tPRINT "IS IT a "RIGHTCASC(KX) »3%)9 
sINPUT Z7$ 
tZ7$8LEFT(Z27$,1%) 
IF Z7ga"¥" THEN 
PRINT "WHY NOT TRY ANOTHER ANIMAL" 
1GOTO 1300 
INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "VZ9$ 


PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A " 
Z9o$ " FROM A "RIGHT(AS(K%),3%) 
tINPUT 785 

PRINT "FOR A "Z9S" THE ANSWER WOULD BE") 
fINPUT 275 


§Z7$2LEFT(Z7$,1%) 
tTF Z7Se"y" THEN Z6Setyn 
ELSE IF Z7g2nNw 
ELSE PRINT 
tGOTO 2100 
Zi%eVAL(AS(O%)) 
1A$ (2%) SNUMS(Z1%42%) 
ASC 71%) BAS(KK) 
PAS (ZIX+1 KX) BINAT4Z9OS 
TASC KK) BN\QUHZESH"\"4Z7S4NUMS(ZIZ4F1%) + "\"HZGERENUMB(ZIXDHNAN 
GOTO 1{3a¢@ 
DEF FNAX%(Q$) 
tPRINT HIDCQS&,3%, INSTR(3%,9$,"\" 03%) ) 
tINPUT Z9$ 
tZ9SBLEFT(Z9$,1%) 
tZ9gE"N" ITF ZOgcrnyn 
tZ1%EINSTRO3%X%, OS, "\"479$) 42% 
§Z2KB8INSTRIZ1% + QS,"\") 
tFNA%MVAL (MID (98, 21%, Z2%=Z1%)) 
tFNEND 
END 


THEN Z6ganyu 


"PLEASE ANSWER 'YES' OR 'NQI" 
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SAMPLE RUN 


WITH RSTS 
THE COMPUTER WILL TRY TO GUESS IT.. 


PLAY “GUESS THE ANIMAL“ 
THINK OF RN ANIMAL AND 


REE YOU THINKING OF AN ANIMAL? YES 
DOES 1T SWIM? YES 

TS ET A PESH? ING 

THE ANIMAL YOU WERE THINKING OF WAS A 
PLEASE TYPE IN A QUESTION THAT WOULD 
? DOES IT HAVE FLIPPERS 

FOR A SEAL THE ANSWER WOULD BE? YES 
RARE YOU THINKING OF AN ANIMAL? YES 
DOES IT SWIM? NO 

IS IT A BIRD? NO 

THE ANIMAL VOL! WERE THINKING OF WAS A ? ELEPHANT 
PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A 
? DOES IT HAVE A TRUNK 

FOR A ELEPHANT THE ANSWER WOULD BE? YES 

ARE YOU THINKING OF AN ANIMAL? YES 

DUES IT SWIM? NO 

OWES IT HAVE A TRUNK? 
IS IT A BIRD? NO 

THE ANIMAL YOU WERE THINKING OF WAS A ? DOG 

PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A 
? DUES 17 GO) “ARF. (ARF* 

FOR A DOG THE ANSWER WOULD BE? YES 

ARE YOU THINKING OF AN ANIMAL? YES 

DOES IT SWIM? NO 

DOES IT HAVE A TRUNK? NO 

DOES IT ale 

MES Ie Tal 
THE ANIMAL VOW) WERE THINKING OF WAS A ? CAT 

PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A 
? DOES IT HAVE RETRACTIBLE CLANS 

FOR A CRT THE ANSWER WOULD BE? YES 


2 SEAL 


DISTINGUISH A SEAL FROM A FISH 


NO 


DOG FROM A BIRD 


CAT FROM A BIRD 


ARE YOU THINKING OF AN ANIMAL? YES 
ONES IT SWIM? NO 

DOES IT HAVE A TRUNK? NO 

DOES IT GO “ARF? NO 

ONES IT HAVE RETRACTIBLE CLAWS? YES 
TS bt ASEAN) 


THE ANIMAL OU WERE THINKING OF WAS A ? TIGER 

PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A TIGER FROM A CAT 
? DUES IT LIVE IN THE JUNGLE 

FOR A TIGER THE ANSWER WOULD BE? YES 


ARE WOU THINKING OF AN ANIMAL? YES 
DOES IT SWIM? NO 

ONES IT HAVE A TRUNK? NO 

DOES IT GO “ARF? NO 

DOES IT HAVE RETRACTIBLE CLAWS? NO 
I5 IT A BIRD? NO 


THE ANIMAL WOW) WERE THINKING OF WAS A >? COW 

PLEASE TYFE IN A QUESTION THAT WOULD DISTINGUISH A COM FROM A BIRD 
? DOES IT GIVE MILK AND GO “moO’ 

FOR A COW THE ANSHER WOULD BE? YES 


ARE YOU THINKING OF AN ANIMAL? YES 
DOES IT SWIM? NO 

GOES IT HAVE A TRUNK? NO 

OOES IT GO “ARF? NO 

OOES IT HAVE RETRACTIBLE CLANS? NO 
ONES IT GIVE MILK AND GO “moo? NO 
IS 1T A BIRD? NO 


THE ANIMAL YOU WERE THINKING OF WAS A ? GORT 

PLEASE TYPE IN AR QUESTION THAT WOULD DISTINGUISH RA GOAT FROM A BIRD 
? DOES IT GIVE MILK AND EAT TIN CANS AND ALMOST ANYTHING ELSE 

FOR A GORT THE ANSWER WOULD BE? VES 

ARE OU THINKING OF AN ANIMAL? YES 

DOES IT SWIM? YES 

GOES IT HAVE FLIPPERS? NO 

IS IT A FISH? NO 

THE ANIMAL YOU WERE THINKING OF WAS A ? WHALE 

PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A WHALE FROM A FISH 
? IS IT THE LARGEST KNOWN MAMMAL 

FOR A WHALE THE ANSWER WOULD BE? YES 

ARE YOU THINKING OF AN ANIMAL? LIST 

ANIMALS I ALREADY KNOW ARE- 
SEAL ELEPHANT 

COW BIRD 


boG 
GOAT 


CAT 
FISH 


TIGER 
WHALE 


ARE YOU THINKING OF AN ANIMAL? mes 

ONES IT SWIM? NO 

OOES IT HAYE A TRUNK? NO 

DIES 60 “ARF? NO 

ONES HAWE RETRACTIBLE CLAWS? NO 

DOES GIVE MILK AND GO “MoOo’ >? NO 

ONES IT GIVE MILK AND EAT TIN CANS AND ALMOST ANYTHING ELSE? NO 
IS IT A BIRD? NO 

THE ANIMAL YOU WERE THINKING OF WAS A ? SHEEP 

PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A SHEEP FROM A BIRD 
? GOES IT HAVE R WOOLY CORT AND SAY “BRA. BRAY 

FOR A SHEEP THE ANSWER WOULD BE? YES 

ARE YOU THINKING OF AN ANIMAL? TES 

ODES IT SWIM? NO 

HAVE A TRUNK? NO 

50 “ARF? NO 

HAVE RETRACTIBLE CLAWS? YES 

LIVE IN THE JUNGLE? YES 

TIGER? NO 


DOES 
IscIt A 
THE ANIMAL YOU WERE THINKING OF WAS R >? LION 


IT 


PLEASE TYPE IN A QUESTION THAT WOULD 
? IS IT THE KING OF THE JUNGLE 

FOR A LION THE ANSWER WOULD BE? YES 
ARE ‘OU THINKING OF AN ANIMAL? SAVE 
ARE ‘OU THINKING OF AN ANIMAL? NO 
ARE YOU THINKING OF AN ANIMAL? 7c 


DISTINGUISH A LION FROM A TIGER 


READY 


ELEPHANT FROM A BIRD 


AWA 


Description 


REMOVE BEANS FROM THE PITS 


My SIDE 


My vour 
HOME HOME 


Your SIDE 


AWARI game is played with seven sticks and thirty-six stones 
(beans) laid out as shown above. The board is divided into six 
compartments (PITS) on ‘my SIDE* and six-on ‘your SIDE! .95in 
addition, there are two special PITS at the ends: 'my HOME' 

and ‘your HOME'. 


A MOVE is made by taking all of the beans from any (non-empty) 
PIT on your own SIDE. Starting from the PIT to the’ right of 
this one, these beans are 'SOWN' one in each PIT working around 
the board anticlockwise. 


A TURN consists of one or two MOVES. If the last bean of your 
MOVE is SOWN in your own HOME you may take a second MOVE. 


If the last bean SOWN in a MOVE lands in an empty PIT, provided 
that the opposite PIT is not empty, all the beans in the opposite 
PIT, together with the last bean SOWN are ‘'captured' and moved 

to the player's HOME. 


When either side is empty, the game is finished. The player 
with most beans in his HOME has won. 


Lo 


In the computer version, the board is printed as 14 numbers 
representing the 14 PITS. 


The PITS on your (lower) SIDE are numbered 1-6 from left to 
right. The PITS on my (the computer's) SIDE are numbered from 


Myelete a(yOure Clon). 


To make a MOVE you type in the number of a PIT. If the last bean 
lands in your HOME, the computer types 'AGAIN?' and you then type 
in your second move. 


The computer's MOVE is typed, followed by a diagram of the board 
in its new state. The computer always offers you the first move. 
This is considered to be a slight advantage. 


There is a learning mechanism in the program that causes the 
play of the computer to improve as it plays more games. 


Computer Limitations 


This program is written in DIGITAL PDP-11 BASIC. The only 
unusual feature is that an IF statement may have the form: 


IF (CONDITION) THEN (STATEMENT) 


Whenever the IF condition fails, the program branches to the 
next line. 


Program Author 


A version of AWARI, called KALAH, was submitted by Christopher 
Stolz of Lexington High School. The version published (also 
known as BEANS) along with the description above was written iby: 


Geoff Wyvill 


Bradford University 
Bradford, Yorkshire, England 
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PROGRAM LISTING SAMPLE RUN 


5 DATAG RUN 

10 DIMB(13),G(13),F (50) tREADN RWARI 4: 
15 FORT SU0TONw1SREADF (I) SNEXTI 

28 PRINT\PRINT "GAME OF ##% AWART wew"\ Ea GAME OF a ANWAR tet 

25 FORISATOL23LETB(1) e3sNEXTI 

30 LETCEASLETF(N) B@:LETB(13) @BtLETA(6) 20 cS Ica cS ean eS 
35 GOSUB5aa 5) 

42 PRINT"yYOUR MOVE"3:GOSUB11@ z z z Es s 
45 IFEeaGoTosY 

50 IFMEHTHENGOSUB1O@ YOUR MOVE? 
55 IFEswGoTusye 

6@ PRINT"MY MOVE IS "s33GO0SUKB820 z 3 z = z 

65 IFESUGOTOBA rc) 1 
70 IFMEHTHENPRINT", "3 3GOSUBBOQ0 z x z = Cs] 4 

75 IFE>¥GOTO35 

80 PRINTSPRINT"GAME OVER" MY MOVE I 
85 LET DsR(6)#B(13)3IF D<¥ THEN PRINT "I WIN BY"Z=D"POINTS":GOTO 20 3 : 5 
90 LETNEN+ iS IFDEQTHENPRINT"DRAWN GAME"3GOTO 20 8 1 
95 PRINT"YOU WIN BY"D"POINTS":GOTO20 3 4 g 
100 PRINT"AGAIN"S 

110 INPUTMSIFM<7THENIFM>O@THENLETMBM@{ tG60T0130 YOUR MOWE? 4 

120° PRINT"ILLEGAL MOVE":GOTO1aa 

130 IFBC(M)euGoToi2e z 4 4 4 a 4 
140 LETHE6:GOSURK20a 5 : 
150 GoTO5va 3 = S ts) 4 
200 LETKe™:GOSUR6Ua we . 

205 LETE=@: IFK>6THENLETK3K"7 AGAIN? 2 

212 LETCEC+1s: IF C<GTHENLETF OND EF(N) #64K ns : EC 
215 FORIS4TCSsIFR(1) <>OTHEN230 Soft ese: eae 
220 NEXTI a r 
225 RETURN 5 4 °) eet ba 
230 FORLS7TOL2s1FBC1) <>4THENLETE21 RETURN . 

235 GOTO 220 MY MOVE IS 4 

500 PRINT:PRINT" "y : ts) bs) a a a 4 x 
505 FORI#12TO7STEP=1:G0SUB58@ ae A ee 
510 NEXTI Bot: Se age 5 
515 PRINTILETI#133G0SUB582 s “4 

520 PRINT," "SSPRINTR(6)2PRINT" "y YOUR MOVE? 3 

525 FORLEATO5!GOSUB582 ; 
53@ NEXTI a 5 a 8 
535 PRINT: PRINTSRETURN 6 

58A IFSC(CI)<14THENPRINT" "9 ts) 4 8 4 
585 PRINTRI1) 7 #RETURN 

600 LETPEK(M)ELETR(M) 3A AGAIN? 5S 

605 FORPSPTGISTEPH1LELETMam+isIFM>13THENLETMSM=1 4 

610 LETB(M)BB(M) +1 ¢NExTP 5 ee 5 4 E 
615 IFB(M) SI THENTFM<>6THENIFM<>13THENIFB( 122M) <>4G0T0625 
622 RETURN 6 4 a ul a ra 
625 LETK(H)EB(H) +6 (129M) +1SLETB(M) SOtLETB(12=M) S0:RETURN y 
800 LETDE-O9ILETHF13 MY MOVE IS 5 
805 FORIsvTOL3tLETG(1)=6CI)ENEXTI 1 i) a ) a iy 
810 FORJ®7TOL123 IF BC J) SUTHENSBS . 
815 LETOsv:LETMEJIGOSUROYE 4 a 4 3. a 7 
820 FORT BUTOSSIFR(1) #¥G0TO845 f 
825 LETLEB(1)+I:LETREG YOUR MOVE? 2 
83@ IFL>13THENLETLeL=14sLETRaltGOTO830 

835 IFB(L)EUTHENIFL<>6THENIFL <>13THENLETREB(12=L) +R at i) 
849 IFR>GTHENLETQSR ° - . 
845 NEXTI 1 a 2 
850 LETG26(13)-8(6)-O2 IF C>8G0TO875 

855 LETKEJS1FK>6THENLETKEK@7 AGAIN? % 
B60 FORTEMTUNWLETFFON) #O¢KFINT (CF CII /64(79C) 401) THENLETQS0H2 

870 NEXTI 1 a 6 a4 
875 FORLEVTOLSSLETBC(I) sG(1)sNEXTY P s : 
88H TFQ>2DTHENLETABJELETDS— 4: cs] a zs es o 
885 NEXTJ 

BOA LETMBAsPRINTCHRS( 4244) 3 sGOTO2UA MY MOVE IS 6.4 
900 FORT SATON@1sPRINTE (I) SNEXTY ] 1 1 
999 END 
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AGAIN? 4 


MY MOVE IS 5 
@) tej) 1/7 nee oO 
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fox 
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den? eo at 
14 45 
iG. Oh Moen a! aero) 
MY MOVE IS 6.4 
Be teas ome 
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®@ @ @ @ 4 @6 
YOUR MOVE? 5 
le eke ee a Bead) 
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Dex} 
Dod 


GAME OVER 
YOU WIN BY 3S POINTS 


ok 


BAGTLES _.......... 


Description 


The computer picks a 3-digit secret number and you attempt 
to guess what it is. You are allowed up to twenty guesses. 
No digit is repeated. After each guess the computer will 
give you clues about your guess as follows: 


PECO One digit is correct, but in the wrong place 
FERMI One digit is in the correct place 
BAGLES No “digit is correct 


You will learn to draw inferences from the clues and, with 
practice, you'll learn to improve your score. There are 
Several good strategies for playing BAGLES. After you have 
found a good strategy, see if you can improve it. Or try 

a different strategy altogether and see if it is any better. 


This program was submitted from several sources including 
Dartmouth and U.C.-Berkeley. The one published here is 
EEOmsU.C's 


Program Authors 


D. Resek, P. Rowe 
Lawrence Hall of Science 
University of California 
Berkeley, CA 94700 
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PROGRAM LISTING SAMPLE RUN 


LISTNH RUNAWH 
5 REM + BAGLES NUMBER GUESSING GAME GAME OF BAGLES WOULD YOU LIKE THE RULES (YES OR NO)? YES 
16 REM +++ ORIGINAL SOURCE UNKNOWN BUT SUSPECTED TO BE LAWRENCE HALL 
15 REM * OF SCIENCE, U.C. BERKELEY. MODIFIED FOR TIMESHARED-8 TAM THINKING OF A THREE-CIGIT NUMBER TRY To GUESS 
BH REM 3+ BY STUDENTS OF LEXINGTON HIGH SCHOOL, MA AND MODIFIED FoR MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLO 
5 REM eet RSTSPE BY GAYE AHL OF DIGITAL 11/45 GROUP Pree - ONE DIGIT CORRECT BUT IN THE WRONG F 
5 bin AL¢6>,ACS3, BCs? FERMI - ONE DIGIT IRRECT ANC IN THE RIGHT F 
5 RANDOMIZE : =a: T=255 BAGLES - NO DIGITS CORRECT 
BS INPUT "GAME OF BAGLES. WOULD YOU LIKE THE RULES ¢YES OR NO#"; AS 
@ IF AS="NO" THEN 158 O.K I HAYE A NUMBER IN MIND 
66 PRINT:PRINT "I AM THINKING OF A THREE-DIGIT NUMBER, TRY TO GUESS" BUESS —# 2 7! a2 
26 PRINT "Ms NUMBER ANO I WILL GIVE WOU CLUES AS FOLLOWS: " PIco Pico 
28 PRINT " Pico - ONE GIGIT CORRECT BUT IN THE WRONG POSITION" GUESS # 


a 2 F12 
nl 


FRINT " FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION" PICO PI 


BEBE BBB BBP Ip yb ity 


RDA) BAGLES - NO DIGITS CORRECT" GUESS # 35 7 215 
5a FOR I=1 TO 3 PICO PICO FERMI 
68 ACLI=INTC19*RNG » GUESS # 4 7 254 
FOR J=4 TO I-14 YOU GOT IT!!! 
IF ACIO=AC7> THEN 168 
NEXT J PLAY AGAIN «YES OR NO)? YES 


NEXT I 
PRINT: PRINT ."0. K. I HAVE A NUMBER IN MIND. " o.K I HAYE A NUMBER IN MIND 


= 


FOR I=41 To 28 Pages feiss 
PRINT "GUESS #"Ij PICO PICO 
INPUT At 
CHANGE AS TO AL 

3 THEN 636 


BUESS 
THEN 200 FERMI FERMI 

1619-48 GUESS #5 7 434 
NEXT J YOU GOT IT!!! 
B0TO 320 
PRINT “HHAT?" PLAY AGAIN CYES OR NO)? VES 
GOTO 238 


THEN 658 Oo K. 1 HAVE 
ae 


A NUMBER IN MIND 
THEN 654 GUESS # 2 


BD 


-43 THEN 658 Pica 
GUESS # 2 7 454 
FOR J=1 To 2 BAGLES 


IF ACIN<>B¢0J3+49 THEN 396 GUESS Ba, 
C=C+L 

IF ACI+4 
C=C+1 
NEXT J 
IF ACtI<>BCS> THEN 446 
C=C+41 


# 4 
PICO 
es 
FICO 
#6 7 


SBI THEN 41468 


IF ACSI<>BC19 THEN 468 YOu Gor tT! 

C=C+1 

FOR J=1 TO 2 PLAY AGAIN YES OR NOD? YES 
IF ACJI<>6CJs THEN 498 

G=0+4 O.K 1 HAYE A NUMGER IN MING 
NEXT J ? 123 

IF D=2 THEN 686 

FOR J=i To c ? 456 

PR sue 

NEXT J ? 478 


FOR J=1 TO D 
PRINT “FERMI "i GUESS # 4 7 
Breo Pe iLeo 
5 2 957 
FERMI 


# 6 ? 756 


<>8 THEN 698 
PRINT "BAGLES", 

PRINT 

NEXT I 

PRINT "OH WELL" 

PRINT "THAT’S 26 GUESSES. MY NUMBER WAS "1GO#ACLY+1OKACS IFAC) 
SOTO 7aB : ue Ae 
PRINT "TRY GUESSING A THREE-DIGIT NUMBER. ":GOTO 238 PLAY AGAIN (YES OR NOD? YES 
PRINT "OH. I FORGOT TO TELL VOU THAT THE NUMBER I HAVE IN" seni 

PRINT "MIND HAS NO THO DIGITS THE SAME. ":GOTO 238 0.K. I HAYE A 


GUESS # Re ? 
TOUMGGT Ltt 


NUMBER IN MIND 


BRIND OFOU GOT iy ht! PRINT, GUESS # 1 7 223 
avt4 PICO” 

INPUT “PLAY AGAIN CYES OR NO} AS GUESS # Sent wld S, 
IF AS="VES" THEN 158 BAGLES 


IF =8 THEN 7568 
PRINT: FRINT "“A"“Y"— POINT BAGLES BUFF!!" 


PRINT “HOPE YOU HAO FUN. BYE," 
END BAGLESS 


GUESS et: 3) 

FERMI FERMI 

GUESS # 6 

PICO FERMI 

GUESS # 4% ? 992 
! 


YOU GOT IT! 


PLAY AGAIN CWES OR NOOO? NO 


Als = POINT BAGLESS SEHR s? 
HOPE YOU HAD FUN BY 


READY 
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BANNER un... 


Description 


This program creates a large banner on a terminal of any 
message you input (up to 54 characters in length). The 

letters may be any dimension you wish although the letter 
height plus distance from left-hand side should not exceed 

6 inches. Also, the letter height should be somewhat more 

than the width. Adhering to these rules will generally produce 
a very attractive banner. 


Computer Limitations 


BANNER was written for a DIGITAL EduSystem 50. For other 
computers, the character string line input (LINPUT) statement 
at Line 240 would have to be changed. 


Program Author 


Daniel R. Vernon 
Butler Senior High School 
Butler, PA - 16001 
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PROGRAM LISTING 


100 
110 
1208 
130 
140 
150 
160 
170 
180 
190 
200 
210 
228 
230 
240 
250 
260 
270 
280 
298 
300 
308 
310 
3208 
330 
3408 
345 
350 
368 
370 
380 
398 
400 
410 
420 
4328 
440 
450 
460 
470 
489 
490 
500 
510 
520 
530 
540 
559 
560 
570 
580 
585 
5908 
595 
608 
605 
610 
615 
620 
625 
630 
635 
649 
653 
660 
672 
680 
690 
700 
710 
720 
738 
7408 
750 
768 
770 
780 
798 
880 
810 
820 
830 
840 
850 
860 
8708 
680 
890 
9008 
910 
920 
938 
940 
950 


REM PROGRAM WRITTEN BY DANIEL R, VERNON EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
REM SENIOR AT BUTLER SENIOR HIGH SCHOOL EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
REM BUTLER, PENNSYLVANIA 16004 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
REM DATE: 2/1/73 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
REM COMPUTER SUPERVISION MR, WILLIAM ELLIS EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
Ly COMPUTER TOPICS INSTRUCTION® MR, ALBERT STEWART pe eee eee 
REM THIS PROGRAM IS DESIGNED TO CREATE POSTERS eee Seed PeEeEree 
PRINTSINPUT METGHTM, WIDTH IN Z EEEEEEEE EFEEEEEE FEEEEFE 
PRINT*INPUT HEIGHTH, WIDTH IN INCHES") \INPUTL,R\SBO\ASRe2\CRA Seasaees SS aERE EEEEFEEE 
PRINT*HOW FAR, IN INCHES FROM THE LEFT HAND SIDE, DO YOU WANT TO PLACE * SEReeEEe =e eee EEEEEEEE 
PRINT*THE LETTERS") \INPUTS\Se1 2038 =~ EEEEFE EEEEE 
UTBS(1) ,B9(2),88(3),BS(4),83(5),88(6),88(7) ,88(8),88(9) ee = “EEEFE 

FORX#9TO1STEPw{ \CHANGEBS (X) TOA\FORVOS TOS\A (KX #60657) #ACY) \NEXTY\NEXTX Be eee Bee a eeeter 
FORX#1T06\READHS(X)\NEXTX\HS@HS(L)\GOSUB 940 See aoe SSaSeEeS EREEEEEE 
FaFot\IFACF) sGTHENS9O\G(O) BL\FORX@{ TOG\G(X) BACF) \NEXTX\CHANGEGTOGS oe = - 
FORX#1T06\G (8) #X\CHANGEGTOGS (X) \NEXTX 


FORK #1 TOA/2\PRINT\NEXTX 

TFA(F) S46 THENS45\IFA(F)S36THENSOO\IFACF) BS2THENGSONIFAC(F) <48THEN270 
IFACF) >S7THENSLG\ONA(F) @47GOT0820, 440,620,625,635,559,615,605,595,585 
IFACF) <6S5THEN2Z7O\IFA(F)>79THENS3O 
ONACF)~64G0T0350,360,370,380,390,480,410,430,440,480,460,470, 480,490,600 
IF A>9OTHEN27Q\ONACF)@79G0T0510,920,540,550,560,570,;580,590,600,610,620 


DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 
DDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDD 
DDDDDDDDL DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 


GOT02728 

FORX@1TOA\PRINTTAB(S) pGSpGS\NEXTX\GOTO279 
GOSUB648\G08UB690\G0SU8640\G0T0278 
GOSUB640\GOSUB6SA\AsCe, S\GOSUBE48\ AsC\GOSUBBIA\GOT0270 
GOSUB640\G0SUB700\GOSUB780\GOT0270 
GOSUB640\GOSUB780\AsCw,5\GOSUB640\A8C\GOSUBB40\G0T0270 
GOSUB648\G0SUB658\G0SU8650\G0T0278 
GOSUB640\GOSUB698\GOSYUBE90\GOT0270 
GOSUBE40\AaCe,75\GOSUB700\ AsCe, 25\G0SUB6SA\ASC\GOSUB768 
AsCe,285\G0SUB718\AsC\GOT0270 

GOSUB640\G0SUB718\GOS8UB6 48\G0T0270 

GOSUB640\GOT0273 

GOSUB758\G0SUB748\GOSU8648\G0T0279 
GOSUB642\GOSUB868\G0T0278 

GOSUB640\G0S8UB748\GOSUB7 48\GOT0270 
GO0SUB648\G0SUB890\GOSYB8SA\CGOSYU8640\G070270 
GOSUB640\GOSUB890\GOSUB648\GOT0270 
GOSUB640\GOSUB700\GOSUB648\G0T0278 
GOSUB64Q\GOSUB698\GOSUB798\GOT0270 
GOSUB640\A8C#,75\GOSUB700\ As, 25*C\GOSUB650\A8C\GOSUB648 
ASC, 25\GOSUB710\A8C\GOTO276 

GOSUB64G\GOSUB690\AsCe, 5\GOSUBE40\GOSUBB1B\ABC\GOTO270 
G08UB770\GOSUB6S8\G0SU8768\GOT0270 
G08UB782\G0$UB640\G09U8788\G0T0278 

GOSUB6 48\G0SUB740\G0SYB640\G0T0270 
GOSUBB9\GOSUB882\GOT0278 
GOSUB798\GOSUB690\G0SU8640\G0T0270 
GOSUB640\G0SUB880\G0SU8890\GOSUB648\G0T0270 
GOSUB640\G08U8650\G0SUB640\G0T0279 

GOSUB9BQ\GOT0270 

GOSUB782\GOSUB78A\GOSUB648\GOT0270 
GOSUB970\GOSUBBO8\GOSUB968\GOT0270 
GO$UB649\GOSUB650\GO0SUB768\GOT0270 

GOSUB920\G0T0279 
GOSUB7BQ\GOSUBE5S@\AaCw,5\GOSUB640\ ABC \GOSUBB1IA\GOTO270 
GOSUB948\GOT0270 

608UB7980\G0SUB710\GOSUB640\G0T0270 


FORY®1TOA\PRINTTABCS) P\FORX21TOLO\PRINTGS I \NEXTX\PRINTANEXTY\RETURN 


IFA<1THEN662Q\GOT0678 

LETAs{ 

FORX® {4 TOA\PRINTTAB(S) 9G8IGSIHSIHSIGSIGSIHSPHSIGS)GS\NEXTX\RETURN 
PRINTTAB(S)) 
FORX8{TOA\PRINTTAB(4#L 4S) IGSIGSIHSIHSIGSIGS\NEXTX\RETURN 
FORX8{TOA\PRINTTAB(S) PGSIGSINPRINTTAB(8#L 48) IGS) GS\NEXTX\RETURN 
IFA<{THEN720\GOT0730 

LETAs! 

FORX®1TOA\PRINTTAB( 40. 48) IGSIGS\NEXTX\RETURN 
FORX®LTOA\PRINTTAB(S) 1GSIGS\NEXTX\RETURN 

FORXBSLTOA\PRINTTAB(S) )GSIGSIGSIGS\NEXTX\RETURN 
FORY#®{TOA\PRINTTAB(S) )GSIGSIGSIGSIGSIGSPHSIHSIGSIGS\NEXTY\RETURN 
FORX#1TOA\PRINTTABCS) JGSIGSIHSIHSIGSIGSIGSIGSIGSIGS\NEXTX\RETURN 
FORX®1TOA\PRINTTABCE8#L 48) IGSIGS\NEXTX\RETURN 
FORX8{TOA\PRINTTAB(4#L 48) IGSIGSIGSIGSIGSIGS\NEXTX\RETURN 

FORX #4 TOA\PRINTTABCS) )GSIG$IGSIGSIGSIGS\NEXTX\RETURN 


FORK #1 TOC/2\PRINTTAB(S) I\FORYSLTOZ\FORZS1TOC SOL) @X\PRINTGS (1) INNEXTZ 


IFX>STHENDSO\ VEX 
PRINTHS(26V) 3 \NEXTY\PRINT\NEXTX\RETURN 


FORX#1TOC/2\PRINTTABCS) IHS (X) I\PORVSLTOLOeLo(2eX) \PRINTGSC1) P\NEXTY\PRINT 


NEXTX\RETURN 

FOR XadeLTO7eLSTEPL4eL/ (C6) \PRINTTAB(X#S) IGSIGSIGS) 
PRINTTAB(7#L 9X48) )GSIGSIGS\NEXT X\RETURN 
FORXROTOGSLSTEPG*L/C\PRINTTAB(X#S) §G$IGSIGSIGS\NEXTX\RETURN 
FORX#6eL TOOSTEP@6eL/C\PRINTTAB(X#S) J G$)G$IGS)GS\NEXTX\RETURN 
FORX®OTO7#LSTEP(14¢L)/(CO6)\PRINTTAB(X4S) IGSIGSIGS) 
PRINTTAB(7@LeX4S) JGSIGSIGS\NEXT X\RETURN 
FORKBOTO7#LSTEP(7#L)/(Co3)\PRINTTAB(S) IGSIGSITABC(X#S) IGSIGSIGS) 
PRINTTAB(8¢L4S) IGS) GS\NEXTX\RETURN 
FORX#4TOA*S\PRINT\NEXTX\RETURN 

FORW81TOXe3\PRINT" "J\NEXTH\V83\GOTO830 


960 FORX@4¢L TO7¢LSTEPL#4/C\PRINTTAB(X#S) 1GSIGSIGS\NEXTX\RETURN 
978 FOR Xa7*LTOSOLSTEP@4*L/C\PRINTTAB (XS) 1G89GS)GS\NEXTX\RETURN 
98@ DATAN "," "AF a," 8 4," nw ne 
998 FORXsiTOC#3\PRINT\NEXTX 
10008 END 

SAMPLE RUN 


INPUT HEIGHTH, WIDTH IN INCHES? 4.3 : 
HOW FAR, IN INCHES FROM THE LEFT HAND SIDE, DO YOU WANT TO PLACE 
THe LETTE Ss? 

INPUT MESSAGE HERE 

? PED UES 


25 


DDDDDDDDDDDDDDDDLLDDDDDDDDDDDDDDDDDDDDDD 
DDDDDDDLDDDDDDDELDDDLDDLEDDDDDDDDDDDDDDDDDD 


DDODDDDDD DDDDDDDL 
DDDDDDDD DDDDDDDD 
DDDDGEDDD DDDDDDDD 
DDDDDDDD CDDDDDDD 
DDDDDDDD DDDDDDDD 
DDDDDDDD DDDDDDDD 


DDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDD 
DDDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDD 
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLEDDDDDD 
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 
DDDDDDDDDDDPDDDDDDDDDDDDDDDDDDDDDDD 
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999999999999999999999999 
999999999999999999999999 
999999999999999999999999 
999999999999999999999999 
999999999999999999999999 
999999999999999999999999 


99999999 99999999 
99999999 99999999 
99999999 99999999 
99999999 99999999 
99999999 99999999 
99999999 99999999 


9999999999999999999999999999999999999999 
9999999999999999999999999999999999999999 
9999999999999999999999999999999999999999 
9999999999999999999999999999999999999999 
9999999999999999999999999999999999999999 
9999999999999999999999999999999999999999 


BASEBALL GAME 


BASEBL 


Description 


This is a simulation of a nine-inning baseball game with you 
controlling the pitcher when your team has the field and 
controlling the batter when you are up to bat. The simulation 
stops at nine innings, hence, it may be a tie game; however, 
that has proved to occur remarkably few times. 


Computer Limitations 


The game published was written for DIGITAL EduSystem 15730735 
and actually consists of two programs, one which prints the 
rules chained to the second program which plays the game. 
"NOLINE" must be given before running to prevent overflow. 
Other BASIC compilers will require conversion of the alphabetic 
string input statements to a compatible format. 


source 


Another version of baseball was submitted for Timeshared-8 

by Jeff Moskow and Brad Golden. of Lexington High School. 

This is available from DECUS as BASIC 8-562. A second version 
was submitted by another Lexington High School student, Les 
Servie. A FORTRAN version was submitted by David Benepe of 
Fort Worth, Texas. These versions are not printed herein. 


Jack Huisman 
Oregon Museum of Science and Industry 
Portland, Oregon 97200 


PROGRAM LISTING 


BASBAL 


100 
110 
120 
130 
140 
152 
160 
178 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
262 
298 
320 
312 
328 
330 
340 
350 
368 
378 
380 
390 
400 
418 
420 
432 
440 
450 
460 
470 
480 
490 
500 
512 
520 
530 
540 
550 
560 
570 
580 
598 


BASBL1! 


100 
110 
120 
130 
140 
150 
160 
170 
1862 
198 
200 
210 
220 
230 
240 
250 
260 
270 
288 
290 
300 
310 
322 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 


EDUSYSTEM=35 


DIMT(5@),C(19),F(19),20619) 
FORX®1TOL9\READC (X) ,2(X) oF CX) \NEXTX\LETX®1 

PRINT"WELCOME TO HUISMAN STADIUM FOR TODAY*S GREAT GAME BETWEEN” 
PRINT" THE PDP#8 PANTHERS AND (YOUR NAME PLEASE) THE "3 

FOR Awl TO 99\INPUT STCA)\IF TC(A)©141 THEN 15Q\NEXT A 
LETT#A\PRINT\PRINT"A HIGHLY PARTISAN CROWD OF"; 
FORA®1TOT\LETB&2eRND (QO) \NEXTA 

LET A®INT(70Q0@@*RND(1))\PRINTAP 

PRINT"FANS IS ANXIOUSLY AWAITING THE"\PRINT"START OF THE GAME," 
PRINT"HERE IS MY TEAM?","AND HERE IS YOURS?" 
PRINT"™NAME", "AVERAGE", "NAME", "AVERAGER 

PRINT" eeee", Nwoeecenl, Vecoe!, "ecoseen!! 

GOSUB 420 

PRINT\PRINT 

PRINT"THE PANTHERS ARE TAKING THE FIELD NOW AS ANDREWS OF THE" 
FOR Asi TO Te#1\PRINT CHRS(T(A))F\NEXT A 

PRINT" ADVANCES TO THE PLATE, PLEASE WAIT AS THE COMPUTER SINGS" 
PRINT"OUR NATIONAL ANTHEM TO ITSELF © 2 OR 3 TIMES! JUST SING" 
PRINT"ALONG UNTIL ASKED FOR YOUR PLAY,"\PRINT 

GOTO580 

DATA.05,.412001, 05, .02,.263021,,03 

DATA,02,.236001, ,02,,03,,316001,°,01 

DATA,O1,,241001, .03,.02,,321001,,02 

DATA=,02,,367001, ,02,",02,,386001,,01 

DATA,O1,,295001, ,03,",01,.296001,,02 
DATA=,02,.319001,,02,—,02, 285001, ,02 

DATA=,03, 295001, .01,.02) .295001,,03 

DATA, 02,.218001,.02,,02,.139001,=,02 

DATA,.O3, 4238001, .01, 03, .231001,",02 

DATA 0,8,2 

PRINT"HUISMAN",Z(1),"KLOOS",2(2) 

PRINT" HOEREN",Z(3),"ANDREWS",Z(4) 
PRINT"BACCUS",Z(5),"MAYER",2(8) 
PRINT"SMITH",Z(7) , "HANSEN", Z (6) 
PRINT"SCHNEIDER",Z(9),"MICHEL",Z (1) 
PRINT"ROSENBAUM",Z(11),"P, D, PEATE",Z(12) 
PRINT"POULSEN",Z2(13),"WILLIAMS",2(14) 
PRINT"KILGOUR",Z(15),"NELSON",Z(16) 

PRINT "JOHNSON",Z(17),"ANKCORN",Z(18) 

PRINT"WHITNEY"," MANAGER", "IVEY"," MANAGER"\PRINT 
PRINT"PITCHER’S OPTIONS ARE&"\PRINT"FASTBALL" 

PRINT" BEANBALL"\PRINT"BRUSHBACK"\PRINT"BALL"\PRINT" CURVE" 
PRINT"SLIDER"\PRINT"KNUCKLE"\PRINT"GREASEBALL CILLEGAL)" 
PRINT"SPITBALL (ILLEGAL) "\PRINT"CHECK"\PRINT 

PRINT"BATTER*’S OPTIONS ARE?"\PRINT"BUNT"\PRINT" SWING" 
PRINT"HIT@AWAY"\PRINT"SACRIFICE"\PRINT" GROUNDER" \PRINT"FLY" 
PRINT"KILL"\ PRINT 

RETURN 

CHAIN"BASBLi® 

END 


EDUSYSTEM=#35 


OIMB(16) 

LETZ(0)=.5\LETZ*®.5 

LETI®1 

LETBLSO\LETB2=O\LETBSSQ\LETILSQ\LETI230\LETI350 
LETCLEO\LETC2S0\PRINT 

IFC2<>4THENIOO\PRINT"THE BATTER WALKS."\GOSUB920\GOTO14O 
IFCi<>3THENISO\PRINT"THE BATTER STRUCK OUT,"\LET C38C3¥1\GOTOL49 

IF SLELTHENLBO\LETXeX+1 

IFC3<3THEN27O\IFSLZ1 THENLION\LETSIF1\GOTO200 
PRINT"AFTER"FIF"INNINGS"F\LETISI*I\LETS1 20 
PRINTI2¢"RUNS/"FILE"HITS, "JISF "ERRORS AND"FB1L+B24B37 "LEFT ON BASE,” 
IF ISS THENL4OONIFS1 SOTHEN2SO\PRINT"I*M" ZF \GOTO240 
IFSLSOTHEN2SO\PRINT"I°M"F\GOTO24O 

PRINT"YOUCRENG 

PRINT" UP NOWe"\PRINT"SCORES 
PRINT\LETC3=@ 

GOT0130 

PRINT" YOUR PLAY? "7 
FORA21TO2ZO\INPUTSBCA)\IFB(A) F141 THEN29O\NEXTA 
LETDS1*RNO(S)\PRINT 

LETC#190*B8(1)*B(2)\IF S1tQ@THEN42D 
IFC<>19713THENS2Q\LETDSD+C (X)\GOTO128O 
IFC<>19993THENSSO\LETD2D+F (X)\GOTO128O 
IFC219597THENI28O 

IFC219610THENI 28D 

IFC#213504THENI28O 

IFC#2Q506THENI 280 

IFC<>2011Q0THENSBO\IFO<, 8THENI2B8A2\GOTOL270 
IFC<>21308THENSIO\IFO<,8THENI28O\GOTO1L270 
IFC<>197Q0QTHEN4OB\PRINT"RUNNERS ARE STICKING,"\GOTO27O 
IFC<>19593THENGIQ\PRINT"MY BATTER" F\GOTO1300 
FORALSATOA@1\PRINTCHRS(BCAL)) J\NEXTALN\PRINT"?"\GOTO27O 
IFC<>19613THENGS@\PRINT"YOUR BATTER" J \GOSUBS70\GOTO14@ 
IFC221315THENS 260 

IFC<>197Q0QTHEN4SQ\PRINT"CHECK NOT YET IN,"\GOTO27O 
IFC220201THEN1280 

IFC<>21312THENSTO\PRINT"STEAL NOT YET IN,"\GOTO2TO 
IFC221293THEN1280 

IFC22Q0110THENL 260 

IFCa2QQQ4THENI260 

IFC#20501THENI280 


ME"PS2r"YOUNZSS 


Za 


510 
520 
530 
540 
550 
560 
570 
582 
598 
688 
610 
620 
630 
648 
650 
660 
673 
688 
698 
720 
718 
720 
730 
740 
750 
760 
770 
780 
798 
820 
810 
820 
830 
840 
850 
860 
870 
882 
890 
920 
9108 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
12108 
1220 
1230 
1240 
1252 
1260 
1270 
1280 
1290 
1300 
13108 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 


GOTO410 
LETA®9*#RND(6)\IFSISQTHENSSO\PRINT™MY BATTER"? \GOTOS4O 
PRINT"YOUR BATTER") 
IFA>ITHENSSQ\PRINT" LINED OUT TO THE THIRD BASEMAN,"\GOTO840 
IFA>2THENS6Q\PRINT" POPPED OUT IN SHALLOW LEFT,."\GOTO840 
IFA>3THENSBO 
PRINT" GROUNDED TO THE PITCHER") \GOTOS90 
IFA>4THENGBO\PRINT" GROUNDED TO SHORTSTOP") 
PRINT" WHO THREW OUT THE MAN"P\IFC3®2THEN67O 
IFBL@QZTHENG7TO\IFB2ECTHENGSO\IFBSAOTHENG2O\PRINT" FORCED HOME," 
GOTO85a 
PRINT" FORCED TO THIRD,"\GOTO8SO 
LETALSINT(3*#RND(Q))\PRINT" FORCED TO SECOND"}\IFAL<>1THEN6SO 
PRINT" ."\GOTO852 
PRINT\PRINT"AND THEN TO FIRST FOR A DOUBLE PLAY1" 
LETC3=C3*1\LETB1SQ\GOT0840 
PRINT" AT FIRST."\GOTO840 
IFA>STHEN7OQ\PRINT" HIT A FLY INTO DEEP CENTER WHERE IT WAS") 
PRINT" CAUGHTe"\GOTO710 
IFA>6THENSBO\PRINT" HIT TO LEFT FIELD FOR AN OUT," 
IFC3S2THENS4O\IFB1+Be+BS20THENSAD 
PRINT"THE MAN ON" S\ITFB381THEN7TSO\IFB281THENTSO\GOTOTIO 
PRINT" THIRD MADE IT HOME, "s\GOSUB93SO\LETB350 
IFB23QTHEN7T8Q 
PRINT" SECONO"J\IFALSQTHENTOO\PRINT" STAYED PUT,"\GOTO78O 
IFAL>1THEN7T7Q@\PRINT" MADE IT TO THIRD. "\LETB321\LETB2=20\GOTO78O 
PRINT" WAS OUT TRYING TO TAKE THIRD,"\LETC3=SC3+1\LETB222 
IFBi<>1THENS4O 
IFB2<>1THENBOD\PRINT" FIRST STUCK, "\GOTO84O 
PRINT” ON FIRST" F\IFB2<>2THENS20 
PRINT" MADE IT TO SECOND,"\LETBezi\LETB1ed\GOTO842 
LETW22*RNO(O)\IFWHLTHENBIG\PRINT" WAS OUT GOING, "\LETC35C341 
LETB220 
LETZCY) ©ZCY)=(Z(Y)/108) \GOTO86O 
LETZ(Y)3Z(¥) #(Z(Y)/120) 
LETC3SC3+1\PRINT"THAT WAS OUT NUMBER"}C3 
GoTO1260 
IFA>7THENB9Q\PRINT" HIT OVER THE PITCHER*S HEAD FOR A"?\GOTO910 
IFA>8THENSQG\PRINT" HIT THROUGH THE HOLE INTO RIGHT FOR A"#\GOTO91L2 
PRINT" HIT INTO LEFT FIELO FOR A} 
IFZ>4HOTHENL2ZLONIFZ>3eDTHENLISO\IFZ>2*eDTHENIO4O\PRINT" SINGLE," 
IFB3®QTHENI7O\GOSUB93B\LETB320\GOT096G 
IFS1#1 THENDGO\LETS3=S3+1\GOTO9SO 
LETS2sS24} 
LETI2e12%1\RETURN 
PRINT"THE MAN ON THIRD SCORED," 
IFB2SQTHENLQOO\PRINT"THE MAN ON SECOND"J\IFA>8THENOIQ\PRINT" 
GOSUB93Q\LETB222\GOT01A00 
PRINT" WENT TO THIRO."\LETB22Q@\LETB3e1 
IFBLZQTHENIO3SA\PRINT'THE MAN ON FIRST"J\IFA>8THENIO2O 
IFC2e4THENIG2O\LETBI #O\GOT099G 
PRINT" TO SECOND,"\LETB281 
LETB1a1\GoTO12e40 
LETWE3eRND(O)\IFW>LTHENIOS@\PRINT"N OFF THE WALL"? 
IFA2S1THENIQOQ\PRINT" STAND UP"; 
PRINT" DOUBLE,"\IFB3SQTHENI@BQ\PRINT"THE MAN ON THIRD SCORED," 
GOSUB93A\LETB320 
IFB2eQTHENIGIO\PRINT"THE MAN ON SECOND SCORED."\GOSUB93SQ\LETB2&O 
IFBLSQTHENLL2ZO\PRINT"THE MAN ON FIRST" F\IFA>STHENILIG\PRINT" SCORED," 
GOSUB9SQ\LETBiIFA\GOTOI120 
PRINT" WENT TO THIRO,"\LET 8120\LETB331 
LETB2s1\GOTO1240 
PRINT" TRIPLE! "\LETA3#B1+Be+B3\ IFASEQTHENL2QQ\PRINT"THE MAN ON"@ 
IFBLSQTHENLISG\PRINT" FIRST" #\GOSUB93G 
IFB25OTHENLI7O\IF BIL SOTHENLIEG\PRINT", 
PRINT" SECOND"}\GOSUB930 
IFB3SOTHENLI9ONIFB1+B2eOTHENIISQ\PRINT", 
PRINT" THIRD"? \GOSUB93G 
PRINT" SCOREO,"\LETB1®@\LETB220 
LETB321\GOTOL240 
IFB1+B2+B3<3THENI22Q\PRINT" GRAND SLAM"$ 
PRINT" HOME RUN|!"\FORA121T0(81%B82+8341) \GOSUBI3Q\NEXTAL 
LETB12Q\LETB2sQ\LETB3=0 
IFC2B4THENL2OO\LETZCY) @Z(Y) +(Z(Y) /190) 
LETIisIi+i 
RETURN 
PRINT"PITCKER THROWN OUT FOR THROWING ILLEGAL PITCH,"\GOTOe7O 
LETASS*RND(Q) \IFA<3THENS 320 
IFA>4THENIZQQ\PRINT"INSIDE = 
PRINT"OUTSIDE = "J 
LETC2eCe+1\PRINT"BALL"sCe\GOTO15SO 
IFZ(Y) <DTHENL 34@\GOSUBS2Q\ IFA<6THENIS3Q\LETC(Y) #C(Y) +1\GOTO140 
LETCC(Y) #CCY) #1\GOTOL40 
LETC(Y) 8C (CY) e1\LETBS3aRND (7) 
IFB>LTHENS 36Q\PRINT"A SWING & A MISS @ "F\GOTOL390 
IFB>2THENLS8Q\PRINT"INSIDE CORNER = CALL "7 
GOT01390 
PRINT"FOUL! = "J\IFCLs2THENI4O0 
LETCLBCL +i \PRINT" STRIKE"SCI\GOTO1SO 
PRINT"COUNT STAYS AT"#C27"BALLS ANO"FCis 
PRINT"STRIKES,"\GOTO15O 
PRINT'FINAL SCORE? ME"FS2s"YOU"ZS3 
IFS2>S3THENI4SO\IFS3eS2THENI44O\PRINT"YOU WON, "\GOTO1460 
PRINT"A DRAWS "\GOTO1460 
PRINT"I WON|" 
CHAIN"DEMON " 
END 


SCORED," 


ANO"} 


AND") 


"\GOTO1310 


SAMPLE RUN YOUR PLAY? KILL 
INSIDE - BALL 3 


YOUR PLAY? SWING 


RUN oS 
BASESL 01:33 PM 16-MAY-73 Yorn ceLa eerie 
WELCOME TO HUISMAN STADIUM FOR TODAY'S GREAT GAME RETWEEN 


INSIDE CORNER - CALL STRIKE 1! 


: EASE) THE ? RSTS/F ROCKFTS 
THE PDP-3 PANTHERS AND (YOUR NAME PLEASE) TH TOURED UAT TAT Ee RG 


- STRIKE 2 
4 HIGHLY PARTISAN CROWD OF 53971 FANS IS ANXIOQUSLY AWAITING THE Ue bel kiay A pice 
Serene AND HERE IS YOURS: YOUR BATTER GROUNDED TO THE PITCHER WHO THREW OUT THE MAN AT FIRST. 
HERE ! DRE : 
NREE AVERAGE NOME AVERAGE THAT WAS OUT NUMBER 1 
FNL. oa GE FAG. 4 lu ULL erent: YOUR PLAY? BUNT 
Sas pee Hecke et: YOUR BATTER GROUNDED TO THE PITCHER WHO THREW OUT THE MAN AT FIRST. 
RACCUS 241001 MOYER «336901 THAT WAS OUT NUMBER 2 
SMITH +367001 HANSEN +321001 
SCHNEIDER 2295201 MICHEL + 296901 pO CER Seneae pests 
ROSENBAUM °319001 Pe. De PEATE -235031 iunieinee ee 
POULSEN +295901 WILLI4MS +295001 Regence 
KILGOUR +2130081 NELSON +139001 EL Hs Dey 
JOHNSON +233001 ANXCORN +231001 sone reare ne 
WHITNEY MANAGER IVEY MANAGER : 
ee YOUR PLAY? GROUNFDER 

INSIDE - BALL 3 
PITCHER'S OPTIONS 4RE: vaUe PE reeaancne 
ie ei YOUR BATTER LINED OUT TO THE THIRD BASEMAN. 
Re eaee THAT WAS OUT NUMBER 3 

Ri I 

ane @ RUNS» @ HITSs @ ERRORS AND @ LEFT ON BASE. 
Hees I'M UP NOW. 
KNUCKLE SCORE: ME @ YOU @ 


GREASES3ALL CILLEGAL) 
SPITBALL (ILLEGAL) 
CHECK 


BATTER'S OPTIONS ARE? 
BUNT 

SWING 

HIT-AWAY 

SACRIFICE 

GROUNDER 

BEY. 

KILL 


THE PANTHERS ARF TAKING THE FIELD Now AS ANDREWS OF THE 

RSTS/E ROCKETS ADVANCES TO THE PLATE. PLEASE WAIT AS THE COMPUTER SIVCS 
@R NATIONAL ANTHEM TO ITSELF - 2 OR 3 TIMES! JUST SING 

ALONG UNTIL ASKED FOR YOUR PLAY. 


YOUR PLAY? SWING 
YOUR BATTER GROUNDED TO SHORTSTOP WHO THREW OUT THE MAN AT FIRST. 
THAT WAS OUT NUMBER 1 


YOUR PLAY? SWING 

INSIDE - BALL 1 

YOUR PLAY? SWING 

INSIDE - BALL 2 

YOUR PLAY? HIT-AWAY 

INSIDE CORNER - CALL STRIKE 1 
YOUR PLAY? KILL 

INSIDE CORNER - CALL STRIKE 2 
YOUR PLAY? KILL 

YOUR BATTER HIT TO LEFT FIELD FOR AN OUT. 
THAT WAS OUT NUMBER 2 


YOUR PLAY? SWING 

OUTSIDE - BALL 1 

YOUR PLAY? KILL 

OUTSIDE / BALL 2 

YOUR PLAY? HIT-away 

YOUR BATTER POPPED OUT IN SHALLOW LEFT. 
THAT WAS OUT NUMBER 3 


9 RUNS, @ HITS, @ ERRORS AND g LEFT ON BASE. 
I'M UP NOW. 
SCORE: ME @ YOU @ 


YOUR PLAY? FASTBALL 
MY BATTER HIT THROUGH THE HOLE INTO RIGHT FOR A SINGLE. 


YOUR PLAY? FASTBALL 

MY BATTER GROUNDED TO THE PITCHER WHO THREW OUT THE MAN FORCED TO SECOND 
AID THEN TO FIRST FOR A DOUBLE PLAY! 

THAT WAS OUT NUMBER 2 


YOUR PLAY? CURVE 
MY BATTER HIT TO LEFT FIELD FOR AN OUT. 
THAT WAS OUT NUMBER 3 


AFTER 1 INNINGS @ RUNS, 1 HITS» @ ERRORS AND @ LEFT ON BASE. 
YOU'RE UP NOW. 
SCORE: ME @ YOU @ 


28 


BA “ee K ET BASKETBALL GAME VS DARTMOUTH 


Description 


This program simulates a game of basketball between Dartmouth 
College and an opponent of your choice. You are the Dartmouth 
captain and control the type of shot and defense during the 
course of the game. 


There are four types of shots: 1. Long Jump Shot (30 ft.), 

Co SnOLceWIAmDgonOtwy (Lose .) > S.-- Lay Up,~and 4. Set, Shot. 

Both teams use the same defense, but you may call it: Press (6), 
Man-to-man (6.5), Zone (7), or None (7.5). To change defense, 
cype 0” as oun next. shot. 


Note: The game is biased slightly in favor of Dartmouth. The 
average probability of a Dartmouth shot being good is 62.95% 
compared to a probability of 61.85% for their opponent. 

(This makes the sample run somewhat remarkable in that Cornell 
won by a score of 51 to 35. Hooray for the Big Red:) 


Program Author 


Basketball programs were received from Bill Heuer, Fort Worth, 
Texas; James Bonalumi, Torrington, Conn.; and Alan Segal, 
Roslyn, New York. The one published was written by a then- 
sophomore at Dartmouth in the Class of '70: 


Charles R. Bacheller 


Dartmouth College 
Hanover, NH 03755 


20 


PROGRAM LISTING 


5 RANDOMIZE 1626 GO TO 3000 


®@ PRINT "THIS IS DARTMOUTH COLLEGE BASKETBALL, YOU WILL BE DARTMOUTH" 
28 PRINT " CAPTAIN AND PLAYMAKER, CALL SHOTS AS FOLLOWS: 1, LONG" Mie cena BAS ae FOUL, DARTMOUTH LOSES THE BALL," 
30 PRINT " (30 FT.) JUMP SHOT) 2 SHORT (15 FT.) JUMP SHOT) 3, LAY" Veen tener’ 
4@ PRINT " UP; 4, SET SHOT," : tte yee aie 
60 PRINT "BOTH TEAMS WILL USE THE SAME DEFENSE, CALL DEFENSE AS ; 
JOPRINT" FOLLOWS! 6 PRESS) 6,5 MANeTO*MANy 7 ZONEY 745 NONE," 2010 hi eae NEW DEFENSIVE ALLIGNMENT IS") 
72 PRINT " TO CHANGE DEFENSE, JUST TYPE @ AS YOUR NEXT SHOT," er! oe see FAENEEE LB 
74 PRINT "YOUR STARTING DEFENSE WILL BE") 2 ; 
76 INPUT D 2048 GO To 42 
77 IF D<6 THEN 2010 3000 LET Pet 
Se penn 3008 IF T=54 THEN 8000 
" E R OPPONENT" = 
s pacue See Sakae ' 3010 IF T1392 THEN 3015 
370 PRINT "CENTER JUMP" Lae GO z0 pete 
390 IF RND > 3/5 THEN 420 ne sess (1) 
i $)" CONTROLS THE TAP," ! 
Gp ee 506d one : 3020 LET Z1510/4*RND+1 
420 PRINT "DARTMOUTH CONTROLS THE TAP," 3030 IF Zi>2 THEN 3500 
425 PRINT 304@PRINT "JUMP SHOT 
430 PRINT "YOUR SHOT" 3050 IF 8/D*RND>,35 THEN 3190 
435 LET P=o 3060 PRINT "SHOT IS GOOD," 
440 INPUT z 308 GOSUB 6a00 
445 IF Z<>INT(Z) THEN 455 309@ GO TO 425 
446IF ABS(Z=2)>2 THEN 455 3100 IF 8/D*RND>,75 THEN 3200 
447 GOTO 460 3105 PRINT "SHOT IS OFF THE RIM," 
455 PRINT "INCORRECT ANSWER, RETYPE IT" 3119 IF D/6#RND>,S THEN 3150 
456 GOTO 44% 3120 PRINT "DARTMOUTH CONTROLS THE REBOUND," 
460 GO TO 470 3130 GO TO 425 
470 IF RND <,5 THEN 1000 315@ PRINT 083" CONTROLS THE REMOUND," 
489 IF T<1@@ THEN 1990 3160 IF D=6 THEN 5900 
490 PRINT 3165 IF RND>,5 THEN 3475 
491 IF S(1)<>S(@) THEN 510 3168 PRINT "PASS BACK TO " O$}" GUARD." 
493 PRINT " ¥#%% END OF SFCOND HALF #4446! 3170 GO TO 3000 
495 PRINT "SCORE AT END OF REGULATION TIME?" 3175 GO TO 3500 
496 PRINT " DARTMOUTH" S(1)3 OS" "S(a) 3200 IF 8/D#*RND>,9 THEN 3310 
497 PRINT 3210 PRINT "PLAYER FOULED, TWO SHOTS,” 
3220 GOSUB 4000 


498 PRINT "BEGIN TWO MINUTE OVERTIME PERIOD" 
499 LET T=93 
500 GO TO 370 


3230 GO TO 425 
3310 PRINT "OFFENSIVE FOUL, DARTMOUTH'S BALL" 
3320 GO To 425 


510 PRINT " #4484 END OF GAME #xi#Hu!! 
515 PRINT "FINAL SCORE! DARTMOUTH" S¢1)3 OS" "s(@) 3500 IF Z1>3 THEN 3800 

526 STOP 3510 PRINT "LAY up" 

690 PRINT 3520 IF 7/D*RND>,413 THEN 3600 
610 PRINT " ##%# TWO MINUTES LEFT IN THE GAME #4! 3530 PRINT "SHOT IS GOOD," 

620 PRINT 3540 GOSUB 6A40 

630 RETURN 3550 GO TO 425 

1000 IF 231 THEN 1040 3600 PRINT "SHOT IS MISSED," 
1020 IF Z=2 THEN 1049 3610 GO TO 3110 

1036 GO TO 1390 3800 PRINT "SET SHOT" 

1046 LET T=T+1 3810 GO TO 3520 


1041 IF T=5@ THEN 8000 4000 REM #FOUL SHOOTING* 
1042 IF T=92 THEN 1046 4010 IF RND>,49 THEN 4050 
1043 GO TO 1050 4020 PRINT "SHOOTER MAKES BOTH SHOTS," 


1046 GOSUB 690 4030 LET S(1#P)=S(1=P)+2 
1650 PRINT "JUMP SHOT" 4040 GOSUB 6019 

1660 IF RND >,341#D/& THEN 10990 4041 RETURN 

1070 PRINT "SHOT IS GOOD," 4050 IF RND>,75 THEN 4190 

1075 GOSUB 79uo 4060 PRINT "SHOOTER MAKES ONE SHOT AND MISSES ONE," 
1085 GO To 3000 4070 LET S(t#P)=S(1=P)+4i 

1090 IF RND >,682#D/8 THEN 1240 ; 4280 GO To 4040 

1100 PRINT "SHOT IS OFF TARGET," 4100 PRINT "BOTH SHOTS MISSED," 

1105 IF D/6#RND>,45 THEN 1130 4110 GO TO 4040 

1110 PRINT "DARTMOUTH CONTRONS THE REBOUND," 5900 IF RND>.75 THEN 5010 

112@ GO TO 1145 5205 GO TO 3165 

113@ PRINT "REBOUND TO "s0sy"," 5010 PRINT "BALL STOLEN, EASY LAY*UP FOR DARTMOUTH, " 
1137 GO To 3000 5015 GOSUB 7009 

1145 IF RND>,4@ THEN 1158 5232 GO TO 3000 

1150 GO TO 1300 5100 IF RND>,& THEN 5129 

1158 IF D=6 THEN 5100 511@ GO To 1169 

116 PRINT "BALL PASSED BACK TO YOU, "y 5120 PRINT "PASS STOLEN BY "s0S3" Easy LAY=uP," 
1172 GO To 430 5130 GOSUB 6000 

1180 IF RND>,9THEN1190 5140 GO TO 425 

1185 PRINT "PLAYER FOULED, TWO SHOTS,” 6000 LET S(0)=S(0)+2 

1187 GOSUB 4000 6010 PRINT "SCORE? " s¢1)} "TO " §¢@) 

1188 GO To 3000 6920 RETURN 

1198 PRINT "BALL STOLEN, "s0S3"!S BALL,” 70@6 LET S(1)38(1)+2 

1195 GO TO 39v9 701@ GOSUB 6010 

1200 IF RND>,782#D/8 THEN 1250 7020 RETURN 

1210 PRINT "SHOT IS BLOCKED, BALL CONTROLLED BY"} 8009 PRINT " ##HHH END OF FIRST HALF ##4H4! 
1230 IF RND>,5 THEN 1242 8010 PRINT"SCORE! DARTMOUTH" S(1)} 0§" "S(@) 
1235 PRINT " DARTMOUTH," 8015 PRINT 

1242 GO TO 430 8016 PRINT 

1242 PRINT " "sosyu,n 8022 GO To 370 

1245 Go To 3000 9999 END 


1250 IF RND>,843%D/8 THEN 1279 

1255 PRINT "SHOOTER IS FOULED. TWO SHOTS," 
1268 GOsUB 4000 

1265 GO TO 3090 

1270 PRINT "CHARGING FOUL, DARTMOUTH LOSES THE BALL," 
128@ GO TO 3000 

1300 LET TeT+, 

1301 IF T=5@ THEN 8900 

1302 IF T=92 THEN 1304 

1303 GO TO 1305 

1304 GOSUB 6@0 

1305 IF Z=0 THEN 2010 

1310 IF Z>3 THEN 17¥0 

1320 PRINT "LAY up," 

1330 IF 7/D*RND>,4 THEN 1360 

1340 PRINT "SHOT 15S GOOD, TWO POINTS," 
1345 GOSUB 7000 

1355G0 TO 3900 

1360 IF 7/D*RND>,7 THEN 1500 

1370 PRINT "SHOT IS OFF THE RIM," 

138@ IF RND>2/3 THEN 1415 

1390 PRINT 0$)" CONTROLS THE REBOUND," 

1480 GO TO 300 

1410 

1415 PRINT "DARTMOUTH CONTROLS THE REBOUND," 
1420 IF RND>,4 THEN 1449 

1430 GO TO 130 

1440 PRINT "BALL PASSED BACK TO YOU,"} 

1450 Go To 434 

1590 IF 7/D*#RND>,875 THEN 1600 

1510 PRINT "SHOOTER FOULED, TWO SHOTS," 
1520 GOsUB 4000 

1530 GO TO 3900 

1600 IF 7/D*RND>.925 THEN 1630 

1610 PRINT "SHOT BLOCKED, "Ogsy"ts BALL," 30 


SAMPLE RUN 


THIS IS DARTMOUTH COLLEGE BASKETBALL 
CAPTAIN AND PLAYMAKER. CALL SHOTS AS FOLLOWS: 
38 FT. > JUMP SHOT; 2 SHORT (45 FT.) JUME SHOT; 


UP; 4. SET SHOT. 


BOTH TEAMS WILL USE THE SAME DEFENSE 
FOLLOWS: 6 FRESS; 6.5 MAN-TO-MAN; 


AS SOUR NEXT SHOT 


TO CHANGE DEFENSE, JUST TYPE a 
YOUR STARTING DEFENSE WILL BE 77 


CHOOSE YOUR OPPONENT ?CORNELL 
CENTER JUMP 
CORNELL CONTROLS THE TAP. 


LAY UP 
SHOT 1S GOOD 
SCORE: 68 TO 2 


YOUR SHOT ?2 
JUMP SHOT 


SHOT IS BLOCKED. BALL CONTROLLEC BY DARTMOUTH 


YOUR SHOT 73 

LAY UP 

SHOT IS GOOD. TWO POINTS 
SCORE: <2 TO 2 


SET SHOT 
SHOT IS MISSED 
DARTMOUTH CONTROLS THE REBOUNC 


YOUR SHOT 72 
JUMP SHOT 

SHOT 1S GOOD 
SCORE: 410 2 


JUMP SHOT 
SHOT 1S GOOD. 
SCORE: 4T0 4 


YOUR SHOT 74 

JUMP SHOT 

SHOT IS OFF TARGET 

DARTMOUTH CONTROLS THE REBOUNE 


BALL PASSED BACK TO YOU. YOUR SHOT 72 


JUMP SHOT 
SHOT IS GOOD. 
SCORE: 6 TO 4 


SET SHOT 
SHOT 1S MISSED 
DARTMOUTH CONTROLS THE REBOUND 


YOUR SHOT 72 

JUMP SHOT 

SHOT IS BLOCKED. BALL CONTROLLED 
YOUR SHOT 74 

JUMP SHOT 

SHOT 1S GOOD 

SCORE: S70 4 


SET SHOT 
SHOT 1S GOOD 
SCORE: § TO 6 


YOUR SHOT ?4 

SET SHOT 

SHOT 1S OFF THE RIM 

DARTMOUTH CONTROLS THE REBCUNE 
BALL PASSED BACK TO ‘OU. SOUR SHOT 
LAY UP 

SHOT 1S GFF THE RIM 

DARTMOUTH CONTROLS THE REBOUND 
LAY UP 

SHOT IS GOOD. TWO POINTS 
SCORE: 18 T0 6 


LAY UP 

SHOT 1S MISSED. 

CORNELL CONTROLS THE REBCUNE 
LAY UP 

SHOT 1S GOOD. 

SCORE: 10760 38 


YOUR SHOT 72 

JUMP SHOT 

SHOT 1S OFF TARGET. 
REBOUND TO CORNELL 


LAY UP 
SHOT 1S MISSED 
DARTMOUTH CONTROLS THE REEOUNE 


YOUR SHOT 71 
JUMP SHOT 

SHOT 1S GOOD 
S€ORE; -12 70 & 


LAY UP 
SHOT 1S GOOD 
SCORE; 12 TO 46 


YOUR SHOT ?2 

JUMP SHOT 

SHOT IS OFF TARGET. 

DARTMOUTH CONTROLS THE REBOUND 
BALL PASSED BACK TO YOU. YOUR SHOT 
SET SHOT 

SHOT 1S OFF THE RIM 

CORNELL CONTROLS THE REBOUND 


LAY UP 

SHOT 1S MISSED 

CORNELL CONTROLS THE REBOUND 
PASS BACK TO CORNELL GUARD 


JUMP SHOT 
SHOT IS GOOD. 
SCORE: 22° 10 iz 


YOUR SHOT ?3 
LAY UP 
SHOT BLOCKED. CORNELL’S BALL 


CALL DEFENSE AS 


DARTMOUTH. 


YOU WILL BE CARTMCUTH 
1. ‘LONG 
= AY 


NONE 


gi 


JUMP SHOT 

SHOT 1S OFF TARGET 

DARTMOUTH CONTROLS THE REBOUND 
LAY UP. 

SHOT IS GOOD. TWO FOINTS 
SCORE: 29 TO 39 


LAY UP 

SHOT IS MISSED 

CORNELL CONTROLS THE REBOUND 
LAY UP 

SHOT IS GOOD 

SCORE: 29 10 44 


YOUR SHOT 72 

JUMP SHOT 

SHOT IS OFF TARGET 
REBOUND TO CORNELL 


LAY UP 
SHOT 1S GOOD 
SCORE: 29 TO 43 


YOUR SHOT ?4 

SET SHOT 

SHOT IS OFF THE RIM 

CORNELL CONTROLS THE REBOUND 


JUMP SHOT 

SHOT IS GFF THE RIM 

CORNELL CONTROLS THE REBOUND 
PASS BACK TO CORNELL GUARD. 


LAY UP 

SHOT IS MISSED 

CORNELL CONTROLS THE REGOUNC 
LAY UP 

SHOT IS MISSED 

DARTMOUTH CONTROLS THE REBOUND 


YOUR SHOT 74 
JUMP SHOT 
SHOT IS BLOCKED. BALL CONTROLLED 


JUMP SHOT 
SHOT IS OFF THE RIM 
DARTMOUTH CONTROLS THE REEGUNE 


YOUR SHOT ?4 


BY CORNELL 


toe TNO MINUTES LEFT IN THE GAME tka 


JUMP SHOT 
SHOT IS GOOD 
SCORE? Sesa 1G “45. 


LAY UP 
SHOT IS GOOD 
SCORE: 314 T0 45 


YOUR SHOT ?3 

LAY UP. 

SHOT IS GOOD. TWO POINTS 
SCORE: 33 TO 45 


SET SHOT 
SHOT IS GOOD 
SCORE: 33 TO 47 


YOUR SHOT 74 

JUMP SHOT 

SHOT IS OFF TARGET. 

DARTMOUTH CONTROLS THE REBOUND 
LAY UP. 

SHOT IS OFF THE RIM 

DARTMOUTH CONTROLS THE REBOUND 
LAY UP. 

SHOT IS OFF THE RIM 

CORNELL CONTROLS THE REBOUND 


SET SHOT 
SHOT IS GOOD 
SCORE: 33 TO 49 


YOUR SHOT ?3 

LAY UP. 

SHOT IS GOOD. TWO FOINTS 
SCORE: 35 TO 49 


SET SHOT 

SHOT IS MISSED 

CORNELL CONTROLS THE REBOUND 
PASS BACK TO CORNELL GUARD 


JUMP SHOT 

SHOT 1S GOOD 
SEGRE: 25 TO S52 
YOUR SHOT ?1 


seototore END OF GAME otototot 
FINAL SCORE: DARTMOUTH 35 CORNELL 


BATNUM. ........... 


Description 


The game starts with an imaginary pile of objects, coins for 
example. You and your opponent (the computer) alternately 
remove objects from the pile. You specify in advance the 
minimum and maximum number of objects that can be taken on 
each turn. You also specify in advance how winning is 
defined: 1. To take the last object or 2. To avoid taking 
the last object. You may also determine whether you or the 
computer go first. 


The strategy of this game is based on modulo arithmetic. If 
the maximum number of objects a player may remove in a turn 
is M, then to gain a winning position a player at the end of 
his turn must leave a stack of 1 modulo (Mtl) .coins. “Ft =roa 
don't understand this, play 23 Matches (23 MTCH) first, then 
BATNUM, and just have fun! 


Program Author 


BATNUM is based on an old game similar to NIM. Its adaptation 
for the computer appears to originally be by the daddy of 
BASIC: 


John Kemeny 
Dartmouth College 
Hanover, NH 03755 


ka 


Illustration by Meyer Seltzer, 


Scott, Foresman and Co. 


PROGRAM LISTING 


118 
126 
136 
146 
156 
168 
176 
186 
268 
2168 
226 
236 
2468 
336 
346 
358 
366 
376 
386 
398 
466 
418 
426 


PRINT "THIS PROGRAM IS A “BATTLE OF NUMBERS? 
PRINT"GAME, WHERE THE COMPLITER 1S YOUR CIFFCNENT. “ 
PRINT 
PRINT" THE GAME STARTS WITH AN ASSUMED FILE OF OBJECTS. YoU) AND" 
PRINT"VOUR OFFONENT ALTERNATLY REMOVE CBJECTS FROM THE FILE. " 
PRINT"WINNING IS DEFINED IN ADVANCE AS TAKING THE LAST OBJECT" 
PRINT"OR NOT. YOU CAN ALSO® SPECIFY SOME OTHER BEGINNING" 
PRINT"CONDITIONS. DON’T USE ZERC, 
PRINT 
GOTO 336 
FOR I=4 To 10 
PRINT 
NEXT I 
PRINT"ENTER FILE SIZE:"; 
INPUT N 
IF N¢>G THEN 374 
GOTO 330 
IF NCD>INT(N) THEN 224 
IF N¢1 THEN 220 
PRINT “ENTER WIN GPTION - 4 TO TAKE LAST, 2 TO AVOIC LAST: "; 
INPUT 14 
IF M=4 THEN 43a 
IF M¢>2 THEN 290 
PRINT “ENTER MIN AND MAX: "3 
INPUT ALE 
IF ADE THEN 43a 
IF A¢41 THEN 430 
IF ACD>INTCAD THEN 436 
IF B<>INT(B) THEN 436 
PRINT"ENTER START GFTICON - 4 COMPUTER FIRST, 2 You FIRST: "; 
INPUT S 
IF S=1 THEN 536 
IF S¢>2 THEN 490 
LET C=A+E 
IF_S=2 THEN 576 
GOSUB 69a 
IF W=1 THEN 226 
GOSUB 516 
IF W=1 THEN 226 
GO TO 550 
LET G=N 
IF M=4 THEN 626 
LET @=0-1 
IF M=41 THEN 686 
IF NOA THEN 720 
LET W=4 
PRINT"COMPUTER TAKES"; Ns "AND LOSES. * 
RETURN 
IF N>EB THEN 720 
LET W=4 
PRINT"COMPUTER TAKES"; Ns "FIND WINS. “ 
RETURN 
LET P=Q-C#INTCOCC) 
IF P>=A THEN 756 
LET P=A 
IF P<=6 THEN 774 
LET P=B 
LET N=N-P 
PRINT"COMPUTER TAKES"; Fs “ANC LEAVES"; N 
LET W=G 
RETURN 
PRINT "YOUR MOVE: "; 
INPUT P 
IF Pé>@ THEN S76 
PRINT"I TOLD YOU NOT TO USE ZERO 
LET W=4 
RETURN 
IF P<DINTCP) THEN 926 
IF P>=A THEN 944 
IF P=N THEN 968 
GO To 926 
IF Pé=B THEN 94a 
PRINT “ILLEGAL MOVE, 
GO To 820 
LET N=N-P 
IF N¢>@ THEN 1030 
IF M=41 THEN 1900 
PRINT" TOUGH LUCK, 
LET W=4 
RETURN 
PRINT" CONGRATULATIONS, 
LET W=4 
RETURN 
IF N>=@ THEN 1660 
LET N=N+P 
GO TO 920 
LET W=a 
RETURN 
END 


.. COMPUTER WINS ES FORFEIT. " 


REENTER IT: "5 


WAU LOSE = 


You WIN, " 


che 


HOWEVER. IN PLANING THE GAME. 


“ 


SAMPLE RUN 


THIS PROGRAM IS A “BATTLE OF NUMBERS’ 
GAME, WHERE THE COMPUTER IS YOUR OF PONENT 


THE GAME STARTS WITH AN ASSUMED FILE OF OBJECTS. YOU FNC 
YOUR OPPONENT ALTERNATLY REMOVE OBJECTS FROM THE FILE 
WINNING IS DEFINED IN ADVANCE AS TAKING THE LAST GEJECT 
OR NOT. YOU CAN ALSO SPECIFY SOME OTHER BEGINNING 
CONDITIONS. DON’T USE ZERO, HOWEVER. IN PLAYING THE GAME 


ENTER PILE SIZE: ?23 

ENTER WIN OPTION - 4 TO TAKE LAST, 2 TO AVOID LAST: 72 
ENTER MIN AND MAX: 74,5 

ENTER START OPTION - 4 COMPUTER FIRST, 2 YOU FIRST: 72 
YOUR MOVE: ?2 

COMPUTER TAKES 1 ANC LEAVES 2a 

YOUR MOVE: ?3 

COMPUTER TAKES 1 AND LEAVES 16 

YOUR MOVE: ?3 

COMPUTER TAKES 1 ANC LEAVES 12 

YOUR MOWE: ?3 

COMPUTER TAKES 1 AND LEAVES © 

YOUR MOVE: ?3 

COMPUTER TAKES 1 AND LEAVES 4 

YOUR MOVE: ?3 

COMPUTER TAKES 1 AND LOSES 


ENTER PILE SIZE: 
ENTER WIN OPTION - 1 TO TAKE LAST, 2 TO AVYOIC LAST: 
ENTER MIN AND MAX: 74,2 

ENTER START OF TION - 4 COMPUTER FIRST, 2 YOU FIRST: 74 
COMPUTER TAKES 2 AND LEAVES 24 

YOUR MOVE: ?3 

COMPUTER TAKES 1 AND LEAVES 17 

YOUR MOVE: ?2 
COMPUTER TAKES 
YOUR MOVE: 724 
COMPUTER TAKES 
YOUR MOVE: ?4 
COMPUTER TAKES = AND LEAVES 5 
YOUR MOVE: 73 

COMPUTER TAKES 1 AND LEAVES 1 
YOUR MOVE: ?4 

TOUGH LUCK, YOU LOSE 


“3 


#54 


tf 


fh 


AND LEAVES 12 


AND LEAVES 9 


Wes 


ENTER PILE SIZE: ? 
ENTER WIN OPTION - 4 TO TAKE LAST, 2 TO ANOID LAST: 74 
ENTER MIN AND MAX: 71,4 

ENTER START OPTION - 1 COMPUTER FIRST, 2 YOU FIRST: 72 
YOUR MOVE: 72 

COMPUTER TAKES 1 AND LEAVES 24 

YOUR MOVE: 74 

COMPUTER TAKES 1 AND LEAVES 19 

YOUR MOVE: ?4 

COMPUTER TAKES 1 AND LEAVES 14 

YOUR MOVE: ?4 

COMPUTER TAKES 1 AND LEAVES 9 

YOUR MOVE: 74 

COMPUTER TAKES 41 AND LEAVES 4 

YOUR MOVE: 74 
CONGRATULATIONS 


227 


YOU WIN, 


BATTLE 


Description 


This description is an adaptation of the one written by Ray 
Westergard, the program author. 


NAVAL SHIP BATTLE 


"BATTLE is based on the popular game Battleship which is 
primarily played to familiarize people with the location 
and designation of points on a coordinate plane." 


BATTLE first randomly sets up the bad guys' fleet disposition 
on a 6 by 6 matrix or grid. The fleet consists of Six ships: 
Two destroyers (ships number 1 and 2) which are two units long; 
two cruisers (ships number 3 and 4) which are three units long 
and two aircraft carriers (ships number 5 and 6) which are 

four units long. The program then prints out this fleet dis- 
position in a coded or disguised format (see the sample com- 
puter print-out). You then proceed to sink the various ships 
by typing in the coordinates (two digits, each from 1 te 6G, 
Separated by a comma) of the place where you want to drop a 
bomb, if you'll excuse the expression. The computer gives 

the appropriate responses (splash, hit, etc.) which you should 
record on a 6 by 6 matrix. You are thus building a representa- 
tion of the actual fleet disposition which you will hopefully 
use to decode the coded fleet disposition printed out by the 
computer. Each time a ship is sunk, the computer prints out 
which ships have been sunk so far and also gives you a 
"SPLASH/HIT RATIO". 


ihe first thing you should learn is how to locate and designate 
positions on the matrix, and Specifically the difference between 
"3,4" and "4,3". Our method corresponds to the location of 
points on the coordinate plane rather than the location of 
numbers in a standard algebraic matrix: The first number gives 
the column counting from left to‘right and the second number 
gives the row counting from bottom to top. 


The second thing you should learn about is the splash/hit ratio. 
Wat iS atratdo2! A good reply is "It's a fraction or quotients | 
Specifically, the splash/hit ratio is the number of splashes 
divided by the number of hits. If€ you had 9 splashes and 15 

hits, the ratio would be 9/15 or 3/5, both of Which are correct. 
The computer would give this splash/hit ratio as 6.2 


One of the main objects and primary educational benefits of 
BATTLE comes from attempting to decode the bad guys' fleet 
disposition code. To do this, you must make a COMPARISON 
between the coded matrix and the actual matrix which you con- 
struct as you play the game. 


Program 


Ray Westergard 

Lawrence Hall of Science 
University of California 
Berkeley, CA 94700 a 


PROGRAM LISTING 


REM == BATTLE WRITTEN By RAy WESTERGARD 10/70 

REM COPYRIGHT 1974 By THE REGENTS OF THE UNIy, OF CALIF, 
REM PRODUCED Ay THE LAWRENCE HALL OF SCIENCE, BERKELEY 
DIM F (6,6),H(6,6),4(4),B(4},C(6}),L (3) 

MAY FaZER 

FOR ret TO 3 

Nadel 


FOR Jsi TO 2 
ABINT(6#RND(O)) 4y 

BeINT(6*RND(Q)) 44 

De INT(4eRND(Q)) 41 

IF F(A,B)>@ THEN 990 

Meo 

GoTo D OF 150,340,550,740 

Brijss8 

Bt2)8B13) #7 

FOR Keil TON 

IF M>1 THEN 240 

IF BK) #6 THEN 230 

IF FlA,BIK) +1) >@ THEN 230 

BCK+,) SBIK) +4 

GOTO 28a 

Ma2 

Z=¢(8f1) MIN B(2)) MIN 8f3)) 

IF Z®i THEN 90 

IF FCA,Z=1)>2 THEN 98 

B(Ke1)8Z=1 

NEXT K 

F{A,B) sgor2eleJ 

FOR Key TON 

FCA,B(K41)) =F (A,B) 

NEXT K 

GOTO 9908 

At1) 5A 

B(1)*.8 

At2)2A(3) 682) 283) 2A 

FOR Kel TON 

IF M>i THEN 46@ 

IF AlK]®4 OR BIK) =, THEN 45g 

IF FLACK} ~1,B(K)=1}>@ THEN 45a 

IF FeA¢Ky=1,B8(K))>2 AND FrAcKy=1,8¢K)) 8F (A(Ky ,B (Ky a1) TREN 450 
A(Kel) BAK} =]4 

Btke1) #B tk) <1 

GOTO 5308 

Ms2 

ZyeCCAly) MAX Al2)) MAX Af3)) 
Z22((Bly,) MAX BI2)) MAX Bt3)) 
IF Z186 OR 7286 THEN 90 

IF Fczie#1,7241)>@ THEN 90 

IF F(z1,7241)>@ AND F(7z1,7241) #F (71+1,72) 
A(K+1) EZ161 

Btke1) 8Z241 

NEXT K 

GOTO 9508 

ACL) 8A 

Al2)3A[3}) 87 

FOR Kei TO N 

IF M>{1 THEN 640 

IF AK) ®6 THEN 639 

IF FAK] 41,B)>@ THEN 630 
ACKel) BAK] +1 

GOTO 680 

Me2 

ZeCCAC1) MIN Al2}) MIN A(3)) 
IF Z#i THEN 90 

IF FlZ=-4,B)>0 THEN 99 

A(K+1) 872-4 

NEXT K 

FtA,B) 89-2eIleJ 

FoR K31 TON 

FCA (K+1),8) 2F (A,B) 

NEXT K 

GOTO 990 

Atl) 3A 

Bli)sB8 

A(2) 8A (3) 37 

B(2)3B(3) 80 

FOR K#1 TON 

IF Mai THEN 870 

IF ACK) #6 OR BK) #1 THEN 86” 
IF FCA[K}41,B(K)=1)>@ THEN 869% 
IF FLAK) #y,B(K])>Q AND FAK) 41,B(K)]) #F (A(K],8(K) 1) 
A(K#1) BALK) +4 

BlKel) #BIK) #1 

GOTO 940 

Ma2 

ZieccAti) mIN Al2)) MIN 4A(31) 
Z28((BI1) mAX Bl2)) MAX Bt3)) 
IF Zi#i OR 2286 THEN 90 

IF F(Ziel,Z241)>@ THEN 98 

IF F(Z1,Z2+1)>@ AND F(Z1,72+1) wF (Z1=1,22) 
A(Key) 824 °4 

B(K+4) 8Z244 

NEXT K 

F (A,B) &9-2eIaJ 

FOR k#1 TON 
FtAK#1),B(k+1]) #F (A,B) 

NEXT K 

NEXT J 

NEXT I 

PRINT 

PRINT "THE FOLLOWING CODE OF THE BAD Guys! FLEET DIsPOsITION" 

PRINT "HAs BEEN CAPTURED Burt NOT DECODED?" 

PRINT 

MAT H®TRN(F) 

MAT PRINT HI 

PRINT 

PRINT "DE=CODE IT AND USE IT IF YOU CAN" 

PRINT "BUT KEEP THE DE=CODING METHOD A SECRET," 

PRINT 

MAT HsZER 

MAT LaZER 

Ci) eC (2) #2 

c(3)"c(4)81 

C(5) sC (6) 28 

Sahad 


THEN 90 


THEN 860 


THEN 9@ 


SN) 


PRINT "START GAME" 

INPUT X,Y 

IF x<{ OR y>6 OR INT¢(x)#ABS(yx) THEN 12ia 
IF y>@ AND y<7 AND IN7(y)#ABS(Y) THEN 1230 
PRINT "INVALID INPUT, TRY AGAIN," 

GoTo 1188 

RETRY 

CaXx 

IF F(R,C)>@ THEN 1298 

SaSey 

PRINT "SPLASH 
GOTO 1180 

IF CrP tR,CJ1<4 THEN 1340 


1170 
1168 
1192 
1200 
1210 
1220 
1230 
12428 
1250 
1268 
1270 
1280 
12908 
1300 
1310 
1320 
1330 
1340 
1358 
13690 
1370 
1382 
1392 
1400 
1410 
1420 
1430 
1440 
1452 
1462 
1470 
1480 
1490 
1590 
1510 
1520 
1530 
15420 
1550 
1562 
1570 
1582 
1590 
1628 
1610 
1620 
1639 


TRY AGAIN," 


PRINT "SPLASHL TRY AGAIN," 

Seset 

GOTO 1188 

IF H(R,C)>@ THEN 1428 

Hehe] 

H(R,C) SF (R,C) 

PRINT "A DIRECT HIT ON SHIP NUMBER" jF(R,C) 
CCF IR,C)) sCtF(R,C)) +1 

IF CCF IR,Cy) >= 4 THEN 1470 
PRINT "TRY AGAIN," 

GOTO 1180 

PRINT "vyOU HAVE ALREADY Put 
PRINT "AT THAT POINT," 
PRINT "SpLASH} TRY AGAIN," 
SES+1 

GOTO 11860 


PRINT 
PRINT 
PRINT L(t) s"DESTROYER(S), 
PRINT LUI3)s"ATRCRAFT CARRIER(S)," 


"AND YOU SUNK IT. 
"SO FAR THE BAD GUYS HAVE LOST" 


IF (Lei) eb t2)4b¢3})<6 THEN 1180 
PRINT 
PRINT 
PRINT 
IF S/H>@ THEN 1590 
PRINT 
PRINT 
PRINT 
PRINT 
GoTo 50 
END 


Nekeee eee eee 


SAMPLE RUN 


THE FOLLOWING CODE OF THE BAD GUYS: 
HAS BEEN CAPTURED BUT NOT DECODED 


3 is) 6 Ls) By 4 
3 6 6 6 & 6 
3 2 6 6 6 6 
4 i) 2 & & a 
4 5 5 3 5 a 


4 is) Le) a & a 


DE-CODE IT AND USE IT IF YOU CAN 
BUT KEEP THE DECODING METHOD A SECRET 


START GAME 

72,4 

SPLASH! 

25,4 

A DIRECT HIT ON SHIF NUMBER 5S 

TRY AGAIN 

228 

INVALID INPUT 
235, $ 

A DIRECT HIT ON SHIF NUMBER 5 
TRY AGAIN. 

25,4 

YOU HAVE ALREADY FUT A HOLE IN 
AT THAT POINT SRLASHMN shes 
25,35 

A DIRECT HIT 
TRY AGAIN 
25,2 

A DIRECT HIT ON SHIF NUMBER 5 

AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. SO FAR 
6 DESTROYERS), a] CRUISER 5) ANC al 
YOUR CURRENT SPLASH“HIT RATIO IS .5 

24d 

A DIRECT HIT ON SHIF NUMBER 4 

TRY AGAIN 

24,2 

A DIRECT HIT ON SHIP NUMBER 4 

AND YOU SUNK IT 
sth DESTROYVERCS), a CRUISER 
YOUR CURRENT SPLASH“HIT RATIO 15 . 3 
76,4 
SECASH! 
24,6 

A DIRECT HIT GN SHIF 
TRY AGAIN. 

72,6 

A DIRECT HIT ON SHIP 
TRY AGAIN 

23,6 


A DIRECT HIT ON SHIP NUMBER & 


TRY AGAIN 


TRY AGAIN 


SHIF MUMBER 5 
AGAIN 


ON SHIF NUMBER 5 


= 


TRY AGAIN 


NUMBER 3 


NUMEER = 


AND YOU SUNK IT. HURRAH FOR THE Good GUY'S. SO FAR 
£ DESTROVERSS)>, 4 CRUISER(S) AND a 
YOU CURRENT SFLASH¢HIT RATIO 15 . 375 


PRINT "THERE USED YO BE A SHIP AT THAT POINT, 


"pL 2) puCRUISER(S), 


"YOU HAVE TOTALLY wIPED Our THE BAD Guys! 
twITH A FINAL SpLASH/HIT RATIO OF"IS/H 


HURRAH FOR THE Good GUYS. SO FAR 
st 


BUT YOU SUNK IT," 


A HOLE IN gHIP NUMBER"SF(R,C)? 


LEINTCCFE ERC) #1 /2) 41) aL CINTC CF IR ,C)e1)/2) 41) 41 
HURRAH FOR THE GOOD GUYS," 


AND "y 


PRINT "YOUR CURRENT SPLASH/HIT RATIO IS"$S/H 


FLEET" 


"CONGRATULATIONS #= A DIRECT HIT EVERY TIME," 


FLEET DISPOSITION 


THE BAC GUYS HAVE LOST 
AIRCRAFT CARRIERCS) 


THE BAD GUY'S HAVE LOST 
AIRCRAFT CARRIERCS>) 


THE BAC GUYS HAVE LOST 
AIRCRAFT CARRIERCS) 


BINGO COMPUTER BINGO 


Description 


In this game you and the computer play a game of bingo. The 
computer first generates a bingo card for both you and itself. 
It then spins the number drum and draws numbers at random 
which it posts on "the board." It's up to you to play both 
your card and the card of the computer (a second person can 
play this card if you wish). 


The computer checks for BINGO on both cards, so don't try to 
cheat: 


source 
Sorry folks -- the author and source are totally unknown. 


It showed up on an in-plant DIGITAL DECsystem-10 quite 
mysteriously one day last year. 


BINGO BINGO BINGO 


(1TO 1S) (167030) (311045) (461060) (61 10 73) (17083) (167030) (311045) (46 10 60) {61 To 73) 


(110 13) (161030) (311048) (4610 60) (69 10 73) 


4 [9 


SPACE 
4 |pla [50 
1 abla 


HORIZONTAL (Row) VERTICAL (coLuUmMN) DIAGONAL 


36 


'ROGRAM LISTING 


20 RANDOMIZE 


20 PRINT"YOU ARE NOW GOING TO PLAY A COMPUTERIZ . ae 1450 LET Gary4 

90 LET Fei Eee arages oh Ok. PXNGC 1460 FOR XaF 10 G 

9 DIM B(10,10) 1470 FOR YaF TO G 

2@ DIM L(75) 1480 IF B(X,Y)<>@ THEN 1610 

19 MAT READ AS(5) 1490 IF Y<F+4 THEN 1600 

20 DATA B yI »N 4G 40 1500 IF F=6 THEN 1559 

35 REM THIS SEQUENCE GENERATES THE CARD NUMBERS (LINES 240*430) LSA OSERING 

40 FOR Kimi TO 75 1528 PRINT"YOUIVE GOT A BINGO # # #" 
58 LET L(K1)50 1539 LET wai 

6@ NEXT Ki 1540 RETURN 

79 PRINT" ",0 HERE'S Wy 1558 PRINT 

B® IF F>1 THEN 310 1569 PRINT"I'VE GOT A BINGO # # # # «I 
92 PRINT"YOUR CARD" 1570 LET vei 

22 GOTO 320 1592 GOTO 1620 

1@ PRINT"MY CARD! 1609 NEXT Y 

22 LET M=16 1619 NEXT Xx 

3@ LET GeF+4 1615 REM THIS IS THE SLANT CHECK (M==1) FOR BINGO##* (LINES 16201770) 
40 FOR YsF TO G 1620 LET x=F 

50 FOR XmF TO G 1630 LET YaF 

6@ LET RSINT(M*RND) 1640 IF B(X,Y)<>Q@ THEN 1779 

70 IF R<M@15 THEN 360 1650 LET X=X#1 

80 IF L(R)<>¥Y THEN 360 1660 LET YsYei 

90 LET B(X,Y)=R 1672 IF Y<F+S THEN 1640 

00 LET L(R)=1 1680 IF Y=11 THEN 1740 

10 NEXT X 1690 LET Wal 

20 LET MaM+15 1702 PRINT 

3@ NEXT y 1718 PRINT"YOU'VE GOT A BINGO # # # 
35 REM THIS SEQUENCE PRINTS THE CARD (LINES 449-670) 1730 RETURN 

42 PRINT 1749 PRINT"LIVE GOT A BINGO## # # wn 
52 PRINT! waBeel, Namlonlt, "weNwol, leaGuall, lwaQawl! 1750 LET V=1 

60 FOR XSF TO G 1770 RETURN 

10 PRINT 1775 REM THIS IS THE SLANT CHECK (M=1) FOR BINGO###* (LINES 17801950) 
gO PRINT 1780 LET XaFe4 

92 PRINT 1790 LET Yax 

@0 FOR Y=sF TO G 1800 IF B(X,Y)<>®@ THEN 1956 

10 IF B(X,Y)SB(F42,F+#2) THEN 540 1810 LET X=Xe1 


1820 LET Yysyel 

1832 IF Y<F+5 THEN 1800 
1846 IF Yaii1 THEN 1900 
185@ PRINT 


20 PRINT B(X+Y), 
30 GOTO 550 
4@ PRINT"FREE", 


50 NEXT Y 

6@ NEXT x 1860 PRINT"YOU'VE GOT A BINGO # # #" 

72 PRINT 1870 LET w= 

8@ PRINT 1898 RETURN 

90 PRINT 190@ PRINT 

DRORIN GT ovvecewavsepuucetauu saenecn sssavcanaesn=nwodaewnncacwcncceecancasceace 1910 PRINT"I'VE GOT A BINGO ** # & #M 

10 PRINT" {TEAR OFF AFTER MACHINE AUTOMATICALLY ADVANCE sk)" 1920 LET Ve} 

20 FOR K9=1 TO 9 UE DPV AUSES PAPER 1959 RETURN 

30 PRINT 1970 REM THIS THE TIE PRINTOUT SEQUENCE 

40 NEXT K9 1980 PRINT 

59 IF F=6 THEN 680 199G PRINT! tee eeeeee ITIS A TIE seabaeaeataieaeaieae!! 

60 LET F=6 1995 REM THIS IS THE "PLAY AGAIN?" SEQUENCE 

70 GOTO 240 2002 PRINT 

80 PRINT 20@1@ PRINT "DO YOU WANT TO PLAY AGAIN"}s 

99 PRINT"NOW WEIRE ALL SET TO PLAY THE GAME, USE A PENCIL TO MARK OFF" p02 OS ENE TSE 

90 PRINT"THE NUMBERS ON YOUR CARD AS THEY ARE CALLED," Tee eee 

19 PRINT” (PLEASE PLAY MY CARD AS WELL AS YOUR OWN)" oan se aA a THEN 180 

20 PRINT!###DON'IT GET SMART, I'LL BE PLAYING BOTH YOUR CARD AND MINE” 

32 PRINT " UP HERE IN BOSTON, (SO THERE--)" ya e 2045 REM THIS IS THE "I WIN" SEQUENCE 

46 PRINT 2050 PRINT 

50 PRINT "ARE YOU READY" 2060 FOR S=1 TO 6 

62 INPUT RS 2070 PRINT"I WIN, "y 

10 IF R$<>"NO" THEN 820 208@ NEXT S 

gd PRINT 2090 PRINT 
2100 PRINT 

92 PRINT" ##e ee eHHHTHURRY UPS tee 

ao Se 740 : 2 2118 GOTO 2006 

can 2its REM THIS IS THE "YOU WIN" SEQUENCE 
2120 PRINT 

20 FOR Ki=1 TO 75 

30 LET L(K1i)=0 2139 PRINTN= YOUCWIN cease YOU WEN sercieelale VOUMWEN vceryeceil!! 

40 NEXT Ki 2148 GOTO 2000 

x) PRONIA 2ias REM THIS IS THE "END" OF THE LIST OF PROGRAM ENTITLED "BINGO" 

5@ END 


68 LET B(3,3)=0 

70 LET B(8,8)=08 

75 REM THIS SEQUENCE GENERATES THE BINGO NUMBERS (LINES 880-1100) 
8H LET USINT(75*RND) +1 

12 IF L(U)<>® THEN 880 

20 LET L(U)=1 

30 PRINT 

49 IF RND > ,5 THEN 978 

5@ PRINT"THE NUMBER COMES UPi", 

62 GOTO 980 

70 PRINT" THE NEXT ONE ISt", 

BO PRINT ASCINT((U"1)/15)41)9U 

105 REM THIS IS THE "NUMBER ON CARD?" SHQUENCE (LINES 1110"12600) 
110 FOR Ye1 TO 10 

120 FOR Xs1 TO 10 

130 IF B(X,Y)=U THEN 1250 

140 NEXT X 

150 NEXT Y 

160 LET FS1 

172 GOSUB 1270 

180 LET Fe6 

192 GOSUB 1276 

200 IF V=@ THEN 1230 

210 IF W=1 THEN 1980 

220 GOTO 2050 

230 IF We® THEN 880 

240 GOTO 2120 

250 LET B(X,Y)=92 

262 GOTO 1140 

265 REM THIS IS THE BINGO DETERMINING SEQUENCE (LINES 127491954) 
266 

267 REM THIS IS THE VERTICAL CHECK FOR BINGO##* (LINES 1270-1430) 
272 LET Gak+4 

280 FOR Y=F TO G 

290 FOR XeF TO G 

300 IF B(X,Y)<>@ THEN 1430 

310 IF X<F+4 THEN 1420 

320 IF F236 THEN 1370 

330 PRINT 

340 PRINT"YOU'VE GOT A BINGO *# * #" 

350 LET W=1 

360 RETURN 

370 PRINT 

380 PRINT"I'VE GOT A BINGO # # # # #" 

390 LET vei 

412 GO TO 14508 

420 NEXT X 

432 NEXT ¥ 

440 REM THIS IS THE HORIZONTAL CHECK FOR BINGO#** (LINES 14501610) Su: 


SAMPLE RUN 


oa NOW WE’ RE ALL SET TO FLAY THE GRIME. USE Al PENCIL TO MARK CFF 
YOU ARE NOW GOING TO FLAY A COMPUTERIZED VERSION CF BINGO-— THE NUMBERS ON YOUR CARD AS THEY FIRE CALLED 
eo eee SPLEASE PLAY MY CARD AS WELL AS YOUR CWIND 

4oeeDON’ T GET SMART. I’?LL BE PLAYING BCITH YOUR CARD AND MINE 


enBre ela a bs eae qa UF HERE IN BOSTON. ¢S0 THERE--> 
ARE YOU READY ?¥ES 
8 419 x6 5a 73 
THE NUMBER COMES UP: G 5& 
3 ae - 3 2 THE NEXT GNE IS: I 20 
THE NEXT GNE IS: 1 29 
ee ae aoe de és THE NEXT ONE IS: B 6 
THE NUMBER COMES UF: G S41 
Fi a = ss a THE NUMBER COMES UP: B 3 
THE NUMBER COMES UF: Nuos7) 
fe iS a BS Za THE NEXT ONE IS: G 5s 
THE NEXT ONE Is: BE 414 
See eee ae ee ne ee a THE NEXT GNE IS: I 24 
abet CTEAR OFF AFTER MACHINE AUTOMATICALLY ADVANCES FAFER J pal ete ee aor 
THE NEXT ONE Is: Ores 
THE NEXT ONE IS: o 74a 
THE NEXT ONE Is: N x6 
THE NEXT ONE IS: N34 
ean Cane THE NUMBER COMES UF: I 3a 
mee es pe os Sune es Seas THE NUMBER COMES UP: I 16 
THE NEXT ONE Is: B 414 
a ad ss a oe THE NEXT ONE IS: Of 6& 
THE NEXT GNE Is: N x2 
2 = - Be mp THE NEXT ONE Is: a 75 
THE NEXT ONE Is: Bans 
: = ps oe ue THE NUMBER COMES UF: N38 
THE NEXT GNE Is: B 2 
g me oe = a THE NUMBER COMES UF- BE 412 
THE NUMBER COMES UF: I 47 
= ag py a ed THE NUMBER COMES UP: N45 
THE NEXT ONE Is: G 49 
THE NUMBER COMES UF: G 46 
THE NEXT ONE Is: BE 5 
THE NEXT GNE Is: Oo 72 
THE NUMBER COMES wp: B 4 
YOU'VE GOTA BINGO» « « 
YOU WIN... , YOU WIN... YOU WIN... 2... 


BO YOU WANT TO PLAY! AGAIN ?NCI 
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BLKJAK _........ 


Description 


This is a simulation of the game of blackjack or 21, Las Vegas 
style. This is one of the more comprehensive versions of black- 
jack which allows splitting your hand if the first two cards 

are the same. Also, the dealer will ask for an insurance bet 

if he has an exposed ace. The house limit is $500.00. 


Source 


A number of versions of this program were submitted. Ira Gold- 
stein of Fort Worth, Texas, submitted a particularly interesting 
version which uses a second chained program (DECK) to shuffle 
the cards. Two versions are printed here -- one written and 
modified by a number of DIGITAL personnel for RSTS-11 and 
another written by students at the Oregon Museum of Science 

and Industry and slightly modified at DIGITAL. 


BLKJAC : BLKJAK: 
Digital Equipment Corp. Tom Kloos 
Maynard, MA 01754 Oregon Museum of Science 


and Industry 
Portland, Oregon 97200 


{ 


= ~ == 


Vick. 
wwe ei (i! 


© 1967 by Creative Publications 


BLKJAC 


PROGRAM LISTING 


1@ RRINT "DO YOU WANT INSTRUCTIONS (IF SO TYPE A 1)"5 


15 INPUT K 
25 IF K<>{ THEN 85 


30 


PRINT 

PRINT 

PRINT 

PRINT : 
PRINT"THIS Is A GAME OF BLACKJACK, LAS VEGAS STYLE," 
PRINT"HERE ARE THE RULES OF THE HOUSE, THE DEALER" 
PRINT"MUST HIT ON 16 OR LESS AND wILL STAY ON 17 OR" 
PRINT"MORE, YOU MAY SPLIT TWO CARDS IF THEY ARE THE" 
PRINT"SAME AND PLAY ONE HAND WITH EACH OF THEM, ALSO," 
PRINT"YOU MAY DOUBLE YOUR BET AND RECEIVE EXACTLY ONE " 
PRINT"MORE CARD ANY TIME ON YOUR FIRST HIT, THE TYPING" 
PRINT"INSTRUCTIONS ARE? G=NO HITS L*HITS 2=pOURLE? AND" 


98 PRINT "3eSPLIT A PAIR," 
95 IF K<> 1 THEN 155 


100 


260 
265 


290 
295 


320 
325 
338 
335 


345 
358 


370 
375 
380 
385 
390 
395 
400 
405 
410 
415 
420 
425 
430 
435 
448 
445 
450 
455 
460 
465 
470 
475 
480 
485 
490 
495 
520 
505 
516 
515 
520 
525 
530 
535 
548 
545 
550 
555 
560 
565 
578 
575 
580 
585 
590 
595 
620 
605 
610 
615 
620 
625 
630 
635 


PRINT"WHEN THE DEALER HAS AN EXPOSED ACE HE WILL ASK" 
PRINT"YOU FOR AN INSURANCE BET, AN INSURANCE BET WILL" 
PRINT"RISK HALF YOUR BET FOR AN AMOUNT EQUAL TO YOUR BET" 
PRINTwIF YOU WIN, YOU WIN IF THE DEALER HAS A BLACKJACK" 
PRINTNAND LOSE IF HE DOESN'T, THE HOUSE LIMIT IS $500,900" 
PRINT"GOOD LyCK, OH, By THE wAy, THE DEALER IS NOTED FOR" 
PRINT"DEALING OFF THE BOTTOM OF THE DECK, wATCH HIM vERy" 
PRINT"CLOSELY, HERE HE IS Now," 
PRINT 
PRINT 
PRINT 
LET Keg 
LEy wid 

RANDOMIZE 


LET N®INT(1945*#RND(A)41) 


PRINT 

PRINT"ANY TIME YOU WANT ME TO RESHUFFLE THE CARDS SIMPLY" 
PRINT"TYPE 7777 WHEN I ASK FOR YOUR WAGER AND I'LL BE VERY" 
PRINTIHAPPY TO OBLIGE, O,K,, HERE IS THE FIRST HAND," 


LET X@INT(1@*RND(O)) 
DIM D(52),E(5),V(5),T(5) pwt5) 
2 


FOR As{ To § 
LET DcAjeg 

NEXT A 

DIM 0(52) 

FOR As@ TO 39 STEP 13 
FOR Cei To 13 

LET Q(A*C)8C 

NEXT C 

NEyT A 

PRINT 

LET Kakej 

FoR P®i To 5 

LET EC(P)8O 

LET V(P)2d 

LET T(P)s8® 

NEXT P 

LET V(3) eq 

PRINT 

PRINT 

PRINT 

PRINT"WAGER") 

LET pel 

INPUT W 

LET kK(2)ew 

IF W<5O THEN 1685 
IF W<s500 THEN 370 
IF We>7777 THEN 36a 
GOSUB 1645 

GOTO315 
PRINT"THAT'S TOO MUCH = HOUSE LIMIT IS $5aq" 
GOTO 315 

PRINT 


PRINT "I gHOw", 


GoSUB 865 

IF E(1)8@ THEN 395 
LET V(4)e1 

LET V(S)e1 

GOSUB g65 

LET Mex 

LET Ps2 

PRINT"FIRST CARD IS", 
GOSUB 865 

LET Gay 

PRINT"NEXT CARD Ts", 
GOSUB 865 

IF V(2)>8 THEN 625 
LET Sex 

IF V(3)e>1 THEN 605 
IF T(P)<>21 THEN 525 


PRINT " **HBLACKIACKwwe . 


PRINT 
PRINT" THATIg GETTING A BIT RIDICyLOusrers" 
PRINT 


PRINT "MY HoLE CARD wAgs ", 


LET xen 
GoSUB 12835 

LET Wi8W141,5ep 

GOSUB 1335 

IF V(4)80 THEN 570 

PRINT" INSURANCE ANYONE CTYPE 1 OR OB, 1 MEANS YES) "3 
INPUT J 

PRINT 

IF IeQ THEN 579 

IF T(y)<>04 THEN 555 

LET Wiswiew 

PRINT 


PRINT "YOU WIN $"W3" ON YOUR INSURANCE BET" 


GOTO 570 
LET witwiews2 
PRINT 


PRINT" YOU LOST $"W/2)" ON YOUR INSURANCE BET = 1 DON'T WAVE BLACKJACK" 


IF T(1)<>21 THEN 695 
PRINT 
PRINT" o#T HAVE BLACKJACKwe! 


PRINT "MY HOLE CARD was Ny 


LET xem 

GOSUB 1935 

GOTO 1300 

IF T(p)<821 THEN 65¢ 

IF E(P)>® THEN 649 

PRINT"YOU BUSTEN, "3 
PRINT"YNUR TOTAL IS "T¢P) 
LET CL®T(P)=S#(INT(T(P)/5)) 
IF V(2)e1 THEN 775 


GOTO 1175 40 


648 
645 
650 
655 
660 
665 
678 
675 
680 
685 
690 
695 
700 
705 
710 
715 
720 
725 
730 
735 
740 
746 
750 
7558 
768 
765 
770 
275 
780 
785 
798 
795 
830 
8@5 
812 
815 
820 
825 
830 
835 
848 
845 
859 
855 
860 
865 
870 
875 
880 
885 
890 
895 
900 
9%5 
919 
915 
920 
925 
93a 
935 
948 
945 
958 
955 
960 
965 
9728 
975 
980 
985 
990 
995 
1000 
1005 
1010 
1015 
1020 
1825 
103¢ 
1035 
1040 
1045 
105@ 
1055 
1260 
1065 
1070 
1875 
1080 
1885 
1090 
1095 
1180 
1105 
1112 
P1175 
1120 
1125 
1132 
1135 
1140 
1145 
11590 
1155 
1160 
1165 
1172 
1175 
1182 
1186 
11990 
1195 
12008 
1205 
1210 
1215 
1220 
1225 
1230 
1235 
1240 


LET EC(P)BE(P)@1 
LET T(P)8T(P) 9190 
IF V(1)#2 THEN 62¢ 
LET V¢3)8V(3)41 
PRINTUHIT "5 
INPUT V(1) 
IF v(1)<>3 THEN 832 
IF v(2)>@ THEN 82a 
IF V(3)<>2 THEN 82a 
IF Q(G)#0(S) THEN 700 
PRINT"NOW 7S THAT A PAYRPM 
GOTO 660 
LET v¢e2)e1 
IF O(G)«>! THEN 715 
LET Véi)a2 
LET Pes 
PRINTH PLAY HAND ONE NOW" 
PRINT"FIRST CARD IS ", 
LEY wéS)ew 
LET xaG 
GOSUB 752 
GOTO 430 
GOSUB 992 
GOSUB 1835 
LET V¢3) et 
LET T(P)s8C 
RETURN 
LET Pao 
LET v(2)s82 
PRINT" PLAY HAND TWO NOW" 
PRINT"FIRST CARD 3S", 
LET x#S 
GOSUB 750 
IF Q(G)s1 THEN 915 
LET V¢1)0@ 
GOTO 439 
PRINT"NO SPLITS NOW == TRy AGAIN" 
GOTO 660 
IF v¢(1)<>2 THEN 855 
IF V¢3)82 THEN 859 
PRINT"TOO LATE TO DOUBLE, CHARLIE." 
GOTO 668 
LET w(P)s2ew(P) 
IF V(1)>@ THEN 43¢ 
GOTO 620 
GOSUB 9990 
LET TCP) sT(P)4C 
IF ¥(5)8@ THEN 890 
LET v(5)20 
RETURN 
GOSUB 1@35 
RETURN 
IF R>=5@ THEN 945 
LET Nei1@*(1+AaBS(COS(NeW1))) 
FOR Asy TON 
LET x®IN7(52,999999«eRND(y)) 
IF xs@ THEN 9145 
NEXT A 
IF D(X)®2 THEN 980 
LET Rsk] 
IF R<52 THEN ofa 
FOR Azi TO 52 
IF D(A) BK THEN 96@ 
LET D(A) eg 
NEXT A 
LET Reg 
PRINT" I RESHUFFLED "5 
GOTO 9a@ 
LET Ra@ 
LET O¢(X) 8K 
IF O(X)<>1 THEN tata 
LET C#11 
LET ECP) SE(P) 41 
RETURN 
IF G(X)>1@ THEN 4925 
LET CeQ(X) 
RETURN 
LET Czi9 
RETURN 
GOSUB 1254 
GOSUB 1120 
RETURN 
IF Q(X) <>y THEN 1965 
PRINT” ACE "9 
RETURN 
IF Q(x)>10 THEN 108A 
PRINT Q(x)3" Ny 
RETURN 
IF Q(X)>11 THEN 1095 
PRINT " Jack "5 
RETURN 
IF Q(X)>12 THEN {410 
PRINT" QUEEN "5 
RETURN 
PRINT" KING tg 
RETURN 
IF X>39 THEN 1145 
IF X>26 THEN 1155 
IF X>13 THEN 1165 
PRINT"OF SPapEst 
RETURN 
PRINT"OF CLUBS" 
RETURN 
PRINT"OF HEARYSn 
RETURN 
PRINT"OF DIAmoNnDS" 
RETURN 
LET Pe2 
PRINT "MY HOLE CaRD WwaS ", 
LET Xam 
GOSUB 1035 
IF 1(2)<20 THEN 12190 
IF V(2)®q THEN 13av 
IF 1(3)>21 THEN j3@@ 
LET Pr{ 
IF TC1)<17 THEN 1369 
IF T(1)>17 THEN 1230 
IF E(1)>0 THEN 1360 
IF TC(1)>21 THEN 1375 
LET Peo 
PRINTM MY TOTAL IS "T¢1) 


BLKJAC SAMPLE RUN 


1245 IF T(P)>2y THEN 3300 TRESS SES: vo y CONES 
1250 IF TC€1)>21 THEN 4265 TYPE “YES IF YOU NEED HELP? YES 
1255 IF Tety>T¢P) THEN 1300 
1260 IF TC(1)87¢P) THEN 1330 


1270 th Cis setHey uae THIS 15 A GAME OF BLACKJACK. LAS ¥YEGAS STYLE 

1275 Te CQ>o> 7 EN in HERE ARE THE RULES OF THE HOUSE THE DEALER 

1280 IF Ci>4 ae * tae MUST HIT ON 16 GR LESS AND WILL STAY ON 417 OR 

1285 IF ci>a TREN 1595 HORE. YOU MAY SPLIT TWO CARDS IF THEY ARE THE 

1290 care 1525 : SAME ANG PLAS ONE HANO WITH EACH OF THEM ALSO 

1295 GOTO 1330 YOU MAY DOUBLE YOUR GET AND RECEIWE EXACTLY ONE 

1380 LET Wiewi=w(P) MORE CARD ANY TIME ON YOUR FIRST HIT. THE TYPING 
INSTRUCTIONS ARE: B-NO HIT; 4-HITs 2-OCOUBLE: AND 

1305 IF Ci>3 THEN 16545 pee ocacrene 

1310 IF Cy>2 THEN 1565 cos 

er : it Ne ieee ANY TIME YOU WANT ME TO RESHUFFLE THE CARDS SIMPLY 

1325 GOTO 1625 (YRE 7??? WHEN I ASK FOR OUR WAGER ANG I’LL GE YERY 
HAPPY TO OBLIGE. O.K.. HERE IS THE FIRST HAND 


1330 IF V(2)>@ THEN 1345 
1335 GOSUB 1405 

1340 GOTO 265 

1345 LET Pes 


1350 LET VC2)80 WAGER? 16 
1355 GOTO 4245 
1360 PRINT "I DRAw", t SHOW ACE OF 
1365 GOSUB 865 FIRST CARD 15 ? 
1370 §=GoTo 1210 HEXT CARO IS 16 
1375 IF E(1)2@ THEN 1395 INSURANCE ANYONE CTYPE 1 OR @. 41 MEANS YES)? & 
1380 LET ECL) FECL) Mf 
1385 LET T(1)#T(1) 910 HIT 7? @ 
1390 GOTO 1210 YOUR TOTAL IS 
1395 PRINT"I BUSTEDwewwell MY HOLE CARO ACE OF CLUES 
1400 GOTO 1235 1 DRAW OF SPADES 
1405 IF wi<® THEN 1425 I DRAW OF CLUE 
1410 IF wis@ THEN 1435 I CRAW OF HEARTS 
1415 PRINT"YOU'RE AWEAD S$" wt I BUSTED* 
1420 RETURN HY TOTAL IS 23 
1425 PRINT USING "YOU'RE BEHIND S¥wHt, HH", mW 
1430 RETURN YOU MUST HAYE BEEN PEEKING 
1435  PRINT"YOU'RE EVEN" 
1440 RETURN YOURE AHEAD # 14 
1445 PRINT 
1450 PRINT"I MUST HAVE DEALT WRONG," 
1455 PRINT 
1460 GOTO 1330 WAGER? 15 
1465 PRINT 
1470 PRINT"YOU LUCKED OUT AGAIN:" ] SHOW QUEEN OF CLUBS 
1475 PRINT FIRST CARD Is OF DIAMONOS 
1480 GOTO 14339 NEXT CARD [5 QUEEN OF HEARTS 
1485 PRINT HIT 2-6 
1490 PRINT"YOU MUST HAVE BEEN PEEKING," YOUR TOTAL IS 47 
1495 = PRINT WY HOLE CARD WAS 6 OF DIAMONDS 
1590 GoTo 1330 [ DRAW 16 OF CLUBS 
1585 PRINT IT BUSTED #4 
1510 PRINT"IT COULD LOSE MY JOB THIS Way," MY TOTAL 15 26 
1515 PRINT 
1520 GOTO 133a YOU MUST HAVE BEEN PEEKING 
1525 PRINT 
1530 PRINT" THE CARDS HAVE TURNED AGAINST MES" YOURE AHEAD # 26 
1535 PRINT 
1548 GOTO 1330 
1545 PRINT 
1550 PRINT"THE BOTTOM OF THE DECK STRIKES AGAIN;" WAGER? 14 
1555 PRINT 
1560 GOTO 1330 1 SHOW 3 OF SPADES 
1565 PRINT FIRST CARD 15 5 OF CLUB 
1570  PRINT"A VICTORY FOR US GOOD Guys," NEXT CARD IS 3 OF HEARTS 
1575 PRINT HoT ox 
1582 GOTO 1330 NEXT CARO 15 = OF CLUBS 
1585 PRINT HIT ? @ 
1592 PRINT" YOU CAN'T BEAT SKILL," YOUR TOTAL IS 
1595 PRINT HY HOLE CARD W 4+ OF DIAMONDS 
1600 GOTO 1330 1 DRAW = OF HEARTS 
1605 PRINT t DRAW KING OF CLUBS 
1610 PRINT"YOU CANIT win 'EM ALL," TL BUSTED sas 
UoLe: “PRINT NY TOTAL 15 25 
1620 GOTO 1330 
1625 PRINT YOU MUST HAYE BEEN FPEEKING 
1639 PRINT"BABY GETS A NEW PAIR OF SHOES," 
1635 PRINT YOURE AHEAD # 38 
1640 GOTO 1330 
1645 FoR M9 ® { To 52 
1656 LET D(m9)8@ 
1655 NEXT M9 WAGER? 169 
1660 LET Ra@ 
1665 PRINT { SHOW KING OF SPACES 
1670 PRINT" I RESHUFFLED" FIRST CARD 6 OF CLUB 
1675 PRINTHH NEXT CARD ACE OF HEARTS 
1680 RETURN iit eet 
1685 END NEXT CARD IS JACK OF SPADES 
HIT 7? 9 
WOUR TOTAL 15 4 
HY HOLE CARD WAS 2 OF SPADES 
( DRAW 4 OF HEARTS 
{ DRAW 2 OF DIAMONDS 
MH’ TOTAL 15 


WOU CANT BERT SKILL 


YOU'RE AHEAD # 26 


WAGER? 16 
6 OF HEARTS 
5T CARD = OF SPADES 
EXT CARD I5 5 OF HEARTS 
Fehqe eel 
NEXT CARD 15 JACK OF HEARTS 
13 We oe a 
YOUR TOTAL I5 
MY HOLE CARO W 5 OF CIAMONOS 
l DRAW 14 OF DIAMONDS 
i, HOURS eS) eet 
A VICTORY FOR US GOOD GUYS 


YOURE AHERD # 16 
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BLKJAK PROGRAM LISTING 


5 PRINT “WELCOME TO DIGITAL ECUS'STEM COMPUTER BLACKJACK! !" 

6 PRINTSPRINT "YOUR DEALER TONIGHT IS FETE’ P. EIGHT. " 

7 PRINT "WATCH HIM CLOSELY... HE HAS A REPUTATION FOR" 

8 PRINT "DEALING OFF THE BOTTOM OF THE DECK. "SPRINT 

9 RANDOMIZE 

48 DIM AC413) 

26 PRINT "QUESTIONS REQUIRING A YES OF NO ANSWER" 

25 PRINT "SHOULD BE ANSWERED WITH A - POR. YES “NY FOR NO. “SPRINT 
38 PRINT "DON’T START PLAYING WITH LES THAN #1048. HAVE FUN! “SPRINT 
48 PRINT "HOW MANY COLLARS ARE YOU STARTING WITH"; 

SNe Un 

42 PRINT 

43 F1=F 

5@ PRINT "WHAT IS YOUR WAGER THIS TIME": 

52 INPUT W 

52 PRINT 

53 IF W>F GOTO 56 
S4 IF Wikia GoTo 5 
55 GOTO 169 
56 PRINT "YOUR BET EXCEEDS YOUR REMAINING COLLARS. " 
5? GOTO 58 

53 PRINT "MINIMUM WAGER IS #414, " 

59 GOTO 56 

196 GOSUB 7S6 

4192 P4i=I 

134 PRINT "YOUR FIRST CARO IS "CHRECL) 

166 GOSUB 7s6 

114 P2=1 

At2 PRINT “YOUR SECOND CARD IS "CHRECL) 

115 GOTO 2040 

41? PRINT "YOU KAYE "PZ" SHOWING. " 

4119 GOSUB 764 

4126 P3=Pz+1 

4122 PRINT "YOU GOT A "CHR#CL) 

423 IF P3>24 GOTO 82a 

4124 GOTO 117 

266 GOSUB 736 

261 P3=P1i+Pz2 

262 D1i=I 

244 GOSUB Psa 

246 D2=I 

248 PRINT "DEALER SHOWS A "CHRE¢(L) 

216 GOTO 117 

242 DZ=D1+D2 

214 PRINT "DEALER HAS "DE 

216 IF D3>416é GOTO 2 

217 GOSUB 736 

218 PRINT "DEALER GETS A "CHRE¢L) 

2419 D3=DE+I 

226 GOTO 2414 

222 IF D3<22 GOTO saa 

224 PRINT "DEALER BUSTED. " 

226 GOTO sH2 

768 PRINT "DO YOU WANT A HIT?" 

V62 INPUT #Kk 

764 PRINT 

766 IF K=#N GOTO 242 

Y68 GOSUB 736 

776 RETURN 

738 T=INTC12#RND(B)4+41) 

732 ACI=ACT94+4 

4 IF ACI3>4 GOTO 7ee 

6 GOSUB 965 

788 RETURN 

806 IF D3>=P2 GOTO B24 

882 F=F+W 

366 PRINT "YOU WIN. YOU NOW HAYE $"F 

348 GOTO 986 

826 F=F-W 

822 PRINT "YOU LOSE. YOU NOW HAWE $"F 

324 GOTO 988 

966 IF I<>4 GOTO 948 

964 1=44 
966 L=#A 
988 GOTO 342 
SABIE <> 


914 L=#K 
916 GOTO 342 


926 GOTO 342 

936 IF I<>44 GOTO 927 

932 1=416 

934 L=#J 

926 GOTO 342 

937 IF 1435416 GOTO 34a 

9238 L=#T 

3939 GOTO 342 

348 L=I+49 

342 RETURN 

984 PRINT "DO YOU WISH To PLAY! AGAIN?" 

3982 INPUT $k 

984 PRINTNPRINT 

386 IF K=#4 GOTO 5a 

98? PRINTSPRINTSPRINT SIF FOF1 THEN 935 

388 PRINT "TOO BAD! YOU LosT"F1- "DOLLARS A MISES CASING. " 
seasdayorges F1-F"DOLLARS AT THE ECUSYSTEM CASING. 
995 PRINT "NOT BAD! You WON"F-F4 "COLLARS AT TH aU ; CASING. @ 
Ba eae "HOPE YOU ENJOYED YOURSELF Tuas Fon ote 


READY 
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SAMPLE RUN 


BLJACK EDUSYSTEM 36 

WELCOME TO DIGITAL EDUSYSTEM COMPUTER BLACKJACK! ! 
YOUR DEALER TONIGHT IS FETEY P. EIGHT 

WATCH HIM CLOSELY... HE HAS A REPUTATION FOR 
DEALING OFF THE BOTTOM GF THE DECK 


QUESTIONS REQUIRING A YES OR NO ANSWER 
SHOULD BE ANSWERED WITH A “YY FOR YES 


“NY FOR NO 


x 
=z 
Rad 
& 
= 
= 


DON’T START PLAYING WITH LESS TH HAVE FLIN! 


HOW MANY DOLLARS ARE YOU STARTING WITH?24a 
WHAT IS YOUR WAGER THIS TIME?24 


YOUR FIRST CARD IS T 
YOUR SECOND CARD IS A 
DEALER SHOWS A 

YOU HAVE 24 SHOWING 
DO YOU WANT AR HIT?N 
DEALER HAS 14 

DEALER GETS A 2 
DEALER HAS 14 
DEALER GETS AT 
DEALER HAS 2 
DEALER BUSTED 
YOU WIN. YOU NOW HAYE # 2 
0D YOU WISH TO PLAY AGAIN? 


nD 
px 


WHAT IS YOUR WAGER THIS TIME?Sa 


YOUR FIRST CARD IS Kk 

YOUR SECOND CARD IS ? 

DEALER SHOWS A 6 

YOU HAVE 47 SHOWING 

DO YOU WANT A HIT?N 

DEALER HAS 17 

YOU LOSE. YOU NOW HAVE # 4174 
DO YOU WISH TO PLAY AGAIN? 


WHAT IS YOUR WAGER THIS TIME7Sa 


YOUR FIRST CARD IS 5 

YOUR SECOND CARD IS 2 
DEALER SHONS A 2 

YOU HAYE 7? SHOWING 

DN YOU WANT A HIT? 

YOU GOT A? 

YOU HAVE 44 SHOWING 

DD YOU WANT A HIT? 

YOU GOT A 

YOU LOSE. YOU NOW HAYE ¢ 120 
DO YOU WISH TO PLAY AGAINGY 


WHAT IS YOUR WAGER THIS TIME?4100 


YOUR FIRST CARD IS 9 

YOUR SECOND CARO IS 4 
DERLER SHOWS A 6 

WOU HAVE 43 SHOWING 

DU YOU WANT AR HIT?Y 

YOU GOT A 2 

YOU HAYE 45 SHOWING 

DO YOU WANT R HIT?Y 

YOU GOT A 

YOU HAVE 48 SHOWING 

ON YOU WANT A HITON 

DEALER HAS 416 

DEALER GETS A 2 

DERLER HAS 419 

YOU LOSE. YOU NOW HAVE ¢ 28 
D0 YOU WISH TO PLAY AGAIN? 


WHAT IS YOUR WAGER THIS TIME?14 


YOUR FIRST CARD Is 5 
YOUR SECOND CARD IS @ 
DEALER SHOWS A 4 

YOU HAVE 45 SHOWING 

On YOU WANT FR OHIT?Y 

YOU GOT A? 

YOU LOSE. YOU NOW HAVE $148 
DOO YOU WISH To PLAY AGRINN 


TOO BAD! YOU Lost 194 DOLLARS. AT THE EDUS4 


TEM CASING, 
HOPE YOU ENJOYED YOURSELF. ' THANKS FOR PLAYING 
READY 


BOAT SUBMARINE VS GUNBOAT 


Description 


You are captain of a submarine and the computer is captain of 
a gunboat. The speed of the gunboat is given at the beginning 
of the game. You fire torpedos at the gunboat. To sink it, 
you must hit it twice in at least two vulnerable places, or 
once in a vulnerable place and twice in any other part of the 
hull. But, if you ever miss, the gunboat will open fire on 
you. If this happens, you alternatively fire at each other 
until you sink the gunboat or until he sinks you. 


Source 


To the best of our knowledge, we think BOAT was originally 
written by a student at the University of Georgia, Athens, GA. 
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PROGRAM LISTING 


“TYHTS S TUF GAMF OF WAR SFTWEEN A SUBMARINE AND A" 
(0 SRY “HAVAL, GUM POAT, WOULD YOU LIKF INSTRUCTIONS" $ 
11 INPUT x® are 
2 TF xX¢="NO" THEN 1} _ 
“S PeTuT "yOu ARF THF CAPTAIN F THE Seat de 
"COMPIIT™R IS THF CAPTAIN OF THF G i e ra 
a ot ae sae OF THF GIIN ROAT WILL RE GIVEN AT THE BEGINNING OF 
25 PRINT “THF GAMF AND YO! HAVE TO HIT THE GUN BOAT TWICE” 
3a PRINT "IN AT LF4ST TWO VULNERABLE PLACES, OR ONCE IN 4 2 
35 PRINT “VULNTRABLF PLACE AND TWICF IN ANY OTHER PART OF THE Z 
4@ PRINT "MILL OF THF GIIN POAT. PUT IF YOU MISS ANY ONE TIME THE e 
45 PRINT "GUN ROAT WILL OPEN SIRF ON YOU UNTIL IT SINKS YOU OR YOU bs 
5A PRINT "SINK THF GUN ROAT! YO! WILL BF ALLOWED TO TAKE TURNS ita s 
55 PRINT "ING AT THF SIIN POAT ...6+2.G00D LUCK , MEIN FURHERINIVIN!!! 
14% a-0 
11@ 8-9 
12@ RANDOMIZE 
TSO FOR, L=1) Tos 
140 LFT R=10A*RND (A) 
17@ IF R>=1@ THFN 190 
18@ NEXT I 
190 IF P<=4@ THFN 214 
200 GOTC 1340 J 
210 PRINT “THF SP="D OF THF GUN ROAT IS NOW "sR3" KNOTS 
227 RANDOMIZE 
230 FOR Fal TO 5 
240 LET S=1AAMAxPND (2) 
278 IF S>=1A0F TYFN 297 
282 NEXT F 
29f IF S<=1AAAA THEN 210 
30@ GO TO 23a 
31@ PPINT “THF PANGF FROM THF GIIN 8Q4T TO THE SUBMARINE IS” 
322 POINT “NOW “3S3" VARDS.” 
334 LFT 7=ATN(5A/2) 
34H LET DA=7*(18A/3,.14159) a 
345 PRINT "THE APPROXIMATS ANGL® VOU SHOULD FIRE YOUR TORPEDO IS 
346 PRINT “BETWEEN "SINT(N%-2)3" AND "sINT(D3+2)2" DEGREES.” 
35 INPHT D 
351 LET T=9*#3,14159/1R0 
36@ LFT R8=S/f0S(7) 
370 LFT y3=28*SIN(7) 
38A LFT YO=OR*SIN(T) 
398 L©T y2=y3-20 
402 L"T Y@=y3-4n 
AIM LET Y4=y3+2ea 
A2? LEFT ys=y3+an 
430 IF yo>=Y@ THFN 714 
432 GOTO 520 
435 IF y9<Y2 THEN RIA 
458 GOTO 47A 
453 IF y9o<v2 THFN g198 
46A@ GOTO 25a 
47@ IF Yo>=¥3 THFN Aon 
489 GOTO ROA 
490 IF y9<Y4 THFN 930 
524 PRINT “yOl MISSFnI” 
530 PANDOMI7ZE 
54% L°T yo-PNn¢f) 
S5@ LFT W=1Aagaxys 
S80 PRINT "THE SHOT TIPFN TROM THE RIN SOAT TO THE SUBMARINE” 
570 PRINT "WAS WITHIN "s 48S (W-S)*2/1090:" YARDS......6" 
58A IF ABS(W-S)>-2aaP FOTO Je" 
598 PRINT “VOU ARF SNNY MEIN TPTENDI” 
595 SOTO 198¢e 
614 PPINT 
612 PRINT 
CIS PRINT “ethene: VOU MADF 4 VULINPFRABLE STRIKE! soeemceececcc” 
622 A=A+] 
63% IF A>=2 ROTO 7a9 
4A GOTO 12a 
552 PRINT 
651 PRINT 
652 PRINT “ack VOI DAMAGED THF GUN BOAT Pea OI” 
669 8-B+] 
674 IF B>=3% GOTO 7299 
620 IF A+B>=% THEN 799A 
698 GO TO 12” 
7A@ PRINT "T AM STINK! cece cee o GOOD! SYE CRUFL WORLD....(SLUB..GLUS..)" 
705 SOTO 1890 


710 POINT * FIO k ek ” 

720 POINT * SOK lolokakpa 1" 

730 PRINT * WHY ot” 

749 PRINT ” WUU oP +4444y" 
TIQSPRINT = NNAN= == 2202/0" 

CSR UNT Ree eet 8 iy See id 

TTB PRINT SSANPIBO AR RNNGM yaa ots 
7R@ POINT ” SSSSSscsscscsfsesssse==)° 


794 POINT 
RAF GO TO 4235 
217 PRINT ™ 
R20PRINT" 


----/NONR CAH 10° 0! 20) O O  HHHH\ /PDDD\-2 
Bere EERE EN csccnseeceescedaees o/PEEEFFEEFERFFER 
PREPOPere PEP PPE FFP ERPPPEESPPEEREEREEE O EEEEEEER 
oe , * Proorer cor rF Fre PEP EFEFFFFEEEEEEEEEFEEEEEEEEPEEE? 
PAA SG Sif 


5 APRINT™\ PP eRrccereerepeorepeerpe 
SKPPOINT™’ Gorecreereee 
QT7TAPRINT” \FFORPEP * 
RBA SO TO 4654 
ROOPRINT"\PRRFEPEPRRPERECPROPERoRE 5 ce 

OS POS a aaa 5 ct Sasa ie eee EEFOpCr EY 
SI@PRPINT™ \errrercerececece - F ” 
eat a8 WO ea EFEEEREEFEEREEFE/S 
PSA ER LVTENEREERER RGR EEERODREEN S fon oop ° 13 Ee 
cereeetl, PFRPRRES RF er repererrrerrerrP rere ree RE TEOE Renee ee ee Eee 


Ne eeee eee cece ce eee ee /EEEFEEFEEFFEEEEER 
FREORFFFFFEPEEEPEREEEERERE Q EEEEEE? 
ERRE PEP ESP REERPEEEPEEEFEEEEEEREEEE/" 


Q6APRINT" \FPRER PERC CCE CE OEE PrErCerEr rr erere FREEFE 
972 G0 TO 652 ce ae . 
1892 PPINT * fie 

18@1 PRINT ” 7/441" 

1892 PRINT ™ X> T/HHHH1" 

18A3 PRINT ™ FICO IO aK x 

Se cs ae FAO III ka 


1947 PRINT "WOULD von LiKe to TRY AGAIN's 
19M] INPUT 7 ; 
1992 TF 7e="verqn” TYTN S 

2000 END 


NErAnv 
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SAMPLE RUN 


THIS TS THF GAME OF WAR RFTWFTN A SUBMARINE AND A 

NAVAL GIIN BOAT, WOULD vO! LIKF INSTRUCTIONS? YES 

vO] ARF THF CAPTAIN OF TH SIBMARINE AND THE 

COMPIITTR IS THF CAPTAIN OF THF GUN ROAT. 

THE SPFFD OF THF GIN ROAT WILL RF GIVEN AT THE BEGINNING OF 
THF GAME AND YON HAVE TO YIT THF GUN BOAT TWICE 

IN AT LFAST TWO VIILNERABLS PLACES, OR ONCE IN A 

VULNERABLF PLAC® AND TWICF IN ANY OTHFR PART OF THE 

HULL OF THF GUN 3O4T. BUT IF YOU MISS ANY ONE TIME THE 

GUN BOAT WILL OPFN FIRF ON VO! IINTIL IT SINKS YOU OR YOU 
SINK THF GUN ROAT! YO! WILL 8F ALLOWED TO TAKE TURNS FIRE- 
TNG AT THS GUN BOAT ...6--G00D LIICK , MEIN FURHERIIIIIS09! 
TUF SPEED OF THE GUN BOAT IS NOW 17.99828 KNOTS 

THE RANGF FROM THF GIIN ROAT TO THF SUBMARINE IS 

NOW 5136,849 YARDS. 

THE APPROXIMATS ANGLF YO!! SHONLD FIRE YOUR TORPEDO IS 
BETWEEN 69 AND 73 DFGREFS, 


Pt 
SOK KI K+ 
SOIR —kokok bok ok 
HHH 
un 
N\N\NNE 


----/0NNP /JYHHHH 9 © 0 O © HHHH\  /PDDD\---- 
\EFFRPFPPERFRPPERPEEPEPEE .,  ... . 6.505 ceee 0 e/FEEEFEFEEEEFEFERE7 


EPCrerrerererpeercer EFFEE 0 EEEEEE/ 
\FEFFFEEPPESRPSEE EEFFEEEEEEEEEEEE/ 
seo YOU MANE A VUL?N?TRARLE STRIKE) 2 oREEK 
THF SPFFN OF THE GIN ROAT IS NOW 17.18836 KNOTS 
THF RANGE FROM THE GIIN 2O4T TO TH SUBMARINE IS 
NOW 3427,992 YapDs. 
THF APPROXIMATF ANSI yo! SHONLD TIPF YOUR TORPEDO IS 
RSTWlFN 69 AND hes NeGRers, 
2? 1A 
you MISSFn! 
THE SHOT FIRFD FROM THF GIIN ROAT TO THE SUBMARINE 
WAS WITHIN 6.328317 VAIRD State! eve- cere 
THF SPFFD OF THF GIN SOAT TS NOW 322.91102 ¥NOTS 
THF RANGE FROM THF CIIN 804T TO THF SIIBMARINE IS 
NOW 1787.37 YARDS, 
THE APPROXIMAT® ANGLF VOI! SHONLD FIRE YOUR TORPEDO Is 
B° TWEEN 54 AND 58 DFGRETS, 
56 
Skok ok K+ ! 
SISK dokokpokp | 
44H! 
WY tte] 
----/DDNR /HRHRH 0: 0" -O: O OO  HHHH\ /PDDD\---- 


FEPPEREFREEN scleeec cee cele e see es/EEEREEEEEEFEREREEREE? 
PREPPEE PEPE rr er PP errr er Proce PPE REEER O EEEEEEEEE/s 
a ERCP ORRECP ER POCOP OPE re PEPFFEEFEERFEEREEEEEEEEE/ 


woe YOU MANE A WNLIN?PRABLF STRIKE! FIO I IKK 
T AM SIINKT,......68000 RYE CRIFL WORLD ....(GLUB..GLUB..) 
Ufa} 
Vor hlll 
¥> T/YHHHI 
FOI I I II II IK 


WOULD YOU LIK? TO TRY AGAIN? NO 


READY 


BOM BER FLY A WORLD WAR II BOMBER 


Description 


In this program, you fly a World War II bomber for one of the 
four protagonists of the war. You then pick your target or the 
type of plane you are flying. Depending upon your flying ex- 
perience and the quality of the enemy defenders, you then may 
accomplish your mission, get shot down, or make it back through 
enemy fire. In any case, you get a chance to fly again. 


Program Author 


This program was somewhat modified at DIGITAL. The original 
author is: 


David Sherman 
Cuctis Junior High Schoolk 
Sudbury, MA 01776 
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PROGRAM LISTING SAMPLE RUN 


YOU ARE NOW A PILOT IN A WORLD WAR IT BOMBER 


Ter TRODURERINT NYOONARE NOMAD PILOT INA WORKD. WAR TI BONBER ITALY(41), ALLIES( JAPANESE (Z). GERMANY (4)? 2 


10 INPUT "WHAT SIDE == ITALY(1), ALLIES(2), JAPANESE(3), GERMANY(4) "yA HHAT SIDE -- ates ee Sy aes Aya Don 
2@ IF A>O AND A<S THEN 25 ELSE PRINT "TRY AGAIN... "\GOTO 1a AIRCRAFT ~- LIBERATOR<4), B-29(2), B-17(Z), LANCASTER(4)? @ 
TRY AGAIN... 


25 ON A GOTO 34,11%,2n0,229 2 Te ee 
3Q INPUT "WHAT IS YOUR TARGET <= ALBANTAC1), GREECE(2), NORTH AFRICA(3) "9B AIRCRAFT -~- LIBERATOR(1), B-29¢2). B-170%). 


40 IF B>@ AND Bed THEN 45 ELSE PRINT "TRY AGAIN,,.,"\GOTO 3A 


45 PRINT\GONB GOTO 5¢,8%,92 
5@ PRINT"SHOULD BE EASY,YOU'RE FLYING A NAZI*®MADE PLANE, 


LANCASTER (4)? 1 


YOUVE GOT 2 TONS OF BOMES FLYING FOR PLOESTI 


6@ GOTO 289 HOW MANY MISSIONS HAVE YOU FLOWN? 14 
80 PRINT "BE CARFFULIIJ1"\GOTO 280 i : 

90 PRINT "YOU'RE GOING FOR THE OIL, ER?"\GOTO 280 FRESH OUT OF TRAINING, EH? 

110 INPUT "AIRCRAFT o= LIBERATOR(1), R=29(2), Be17(3), LANCASTER(4) "9G P2 

120 IF G>® AND G<5 THEN 125 ELSE PRINT "TRY AGAIN,.,,"\GOTO 110 MISSED TARGET BY 24 MILES! ! 


125 PRINT\ON G GOTO 1329,154,179,190 NOW YOURE REALLY IN FOR IT 1! 


134 PRINT "YOU'VE GOT 2 Tons OF FOMBS FLYING FOR PLOESTI" 
140 GOTO 286 DOES 
15@ PRINT "YOU'RE DROPPING THE A@BOMB ON HIROSHIMA," j 4 kite kr a 
160 GOTO 284 ; WHAT IS THE PERCENT HIT RATE GF THE ENEMY GLINNERS (410 TO Sa)? 15 
178 PRINT "YOU'RE CHASING T4E RISMARK IN THE NORTH SEA," 


THE ENEMY HAVE GUNS(1)., MISSILES(C2). OR BOTHCE)? 4 


188 GOTO 28” YOU MADE IT THROUGH TREMENDOUS FLAK?! 
190 PRINT "YOU'RE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR," 

195 GOTO 28u 

200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON," 

245 INPUT "YOUR FIRST KAMIK4ZE MISSION (Y OR ND "EFS PLAY AGAIN ¢Y OR ND 

208 IF FSE"N" THEN Ss4\GOTO 358 WHAT SIDE -- ITALY ALLI 2). JAPRNESE(Z). 

210 PRINT\IF RND>.65 THEN 325 FLSE 38¢ AIRCRAFT -- LIBERATOR(1). & (2), B-17¢3), 

220 PRINT "A NAZI, EH? OH WELL. ARE YOU GOING FOR RUSSTA(1), ENGLAND(2)" 

230 INPUT"OR FRANCE(3)"sM\IS Moy AND M<d THEN 235 ELSE PRINT "WHAT??"\GOTO 220 YOURE CHASING THE BISMARK IN THE NORTH SER 

235 PRINT\ON ™ GOTO 250,262,270 

250 PRINT "YOU'RE NEARING STALINGRAD,,,.."\GNTO 289 HOW MANY MISSIONS HAVE YOU FLOWN? zoe 

260 PRINT "NEARING LONDON, 3F CAREFUL, THEY'VE GOT A GonD AIR@RAID DEFENCE," MISSIONS. NOT MILES... 

265 GOTO 28” 154 MISSIONS 15 HIGH EWEN FOR LD-TIMERS. NOM THEN, 

270 PRINT "NEARING VERSAILLES, MUCK SOUP, THEY'RE NEARLY DEFENSELESS," HOW MANY MISSIONS HAVE YOU FLOWN? Se 

280 PRINT 

285 INPuT "HO, MANY MIssIONS HAVE vyOU FLOWN"yD 

290 IF O<16% THEN 3a” ELSE RINT "MISSIONS, NOT MILES,,,," MISSED TARGET BY 28 MILES!) 

295 PRINT "154 MISSIONS IS AIGH FVEN FOR OLD=TIMERS, NOM THEN, "\GOTO 2e5 NOW YOU'RE REALLY IN FOR IT 1! 

30@ PRINT\IF O<1Me THEN 314 ELSE PRINT "THATIS PUSHING THE ODDSI"\GOTO 320 

310 IF D<25 THEN PRINT "FRESH QUT MF TRAINING, EH?" DOES THE ENEMY HAVE GUNS(4), ILES OR BOTHCZ)? 2 


320 PRINT\IF U<160#RND THEN 330 

325 PRINT "DIRECT HITII1| "INTC1@A*RND)"KILLEDI MISSION SUCCESSFUL."\GOTO 390 

330 PRINT "MISSED TARGET BY"INT(2+30*RNO) "MILES I" YOU MADE IT THROUGH TREMENDOUS FLAK!) 
335 PRINT "NOW YOU'RE REALLY IN FOR IT LI"\PRINT 

34@ INPUT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR ROTH(3)"gR 

345 IF R>y AND Rea THEN 354 ELSE PRINT "TRY AGAIN,..,"\GOTO 340 


350 PRINT\IF H=2 THEN 36u PLAY AGAIN ¢4 OR ND? Y 
355 INPUT "WhAT IS THE PERCENT HIT RATE OF THE ENEMY GUNNERS (1% TO 5Z)"35 WHAT SIDE -- ITAL'¢4). ALLIES » JAPANESEC ZS). GERMAIN (497 4 
$58 IF S<}O THEN PRINT "YoU LIE, gUIT YOU'LL PAY,.,."\PRINT\GOTO 38¢ A NACT, EH? OH WELL. ARE YOU GOING FOR RUSSTACL). ENGLAND 

369 PRINT\IF R>1 THEN T=35 OR FRANCE » 2 

365 IF S+#T>1H%*eKND THEN Sra 

370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAKII":GNTO 390 NEARING LONDON. BE CAREFUL, THEY ¥E GOT A GOOD AIR-RAIO DEFENCE 
S82 (PRINT We w & w + BOOM * © w « wll 

384 PRINT "YOU HAVE BEEN SHOT DOWN, eoccee" HOW MANY MISSIONS HAYE SOU FLOWN? 40 

386 PRINT "DEARLY RELOVED, wE ARE GATHERED HFRE Tonay TO PAY OUR LAST TRIBUTE,," 

390 PRINTAPRINT\PRINT\INPUT "PLAY AGAIN CY GR N)"ZuS\TF Ugenyn THEN 1a FRESH OUT OF TRAINING. EHS 

400 PRINT "CHICKENILILI"\PRINT\PRINT 

999 END MISSED TARGET BY 2 MILES!! 


HOW YOURE REALLY IN FOR IT 1! 

DOES THE ENEMY HAYE GUNS (41), MISSILES(2). OR BOTHCZ)? = 

WHAT IS THE FERCENT HIT RATE OF THE ENEMY GUNNERS (1a To Sa)? 44 
eo oe +e +e BOOM & & & & 


YOU HAVE BEEN SHOT DOWN....... 
DEARLY BELOVED, WE ARE GATHERED HERE TODAY To FRY! CUR LAST TRIGUTE 


PLAY AGAIN ¢Y OR ND? Y 
WHAT SIDE -- ITALY ¢4), ALLIES(2). JAPRNESE(S), 
WHAT IS YOUR TARGET -- ALBANTACL). GREECE? 


GERMANS (4)% 
NORTH APRICACZ)? & 


YOURE GOING FOR THE GIL, EHS 


HOW MANY MISSIONS HAYE VOU FLOWN? 124 


THAT’S PUSHING THE ooos! 


MISSED TARGET BY 43 MILES)! 
NON YOURE REALLY IN FOR IT 11 


DOES THE ENEMY HAVE GUNS(1). MISSILES(2). of BUTH(2 


i 
WHAT IS THE PERCENT HIT RATE OF THE ENEMY GLUINNERS (14 TO Sao? za 


YOU MACE IT THROUGH TREMENDOUS FLAK! ! 


PLAY AGAIN ¢€4 OR NO? W 
CHICKEN! ! 1h 


READY 
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BOUNCE PLOT OF BOUNCING BALL 


Description 


This program plots a bouncing ball. Most computer plots run 
along the paper in the terminal (top to bottom); however, this 
plot is drawn horizontally on the paper (left to right). 


You may specify the initial velocity of the ball and the 
coefficient of elasticity of the ball (a superball is about 
0.85 -- other balls are much less). You also specify the 
time increment to be used in "strobing" the flight of the 
ball. In other words, it is as though the ball is thrown 
up in a darkened room and you flash a light at fixed time 
intervals and photograph the progress of the ball. 


Program Author 


Val Skalabrin 
Newport-Mesa Unified School District 
Newport Beach, CA 92660 


BOUNCE EDUSYSTEM 36 BOUNCE EDUSYSTEM 30 

94 DIM T<2H) THIS SIMULATION LETS YOU SPECIFY THE INITIAL YELOCITY 
166 PRINT “THIS SIMULATION LETS YOU SPECIFY THE INITIAL YELOCITY" OF A BALL THROWN STRAIGHT UP. ANC THE COEFFICIENT OF 
118 PRINT "OF A BALL THROWN STRAIGHT WP. ANC THE COEFFICIENT OF" ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION 


126 PRINT "ELASTICITY OF THE BALL. PLEASE LSE A DECIMAL FRACTION" COEFFICIENT (LESS THAN 1) 
220 PRINT “COEFFICIENT CLESS THAN 1). * 


4134 PRINT YOU ALSO SPECIFY THE TIME INCREMENT To BE USED IN 
422 PRINT “YOU ALSO SPECIFY THE TIME INCREMENT TO BE USED IN" “STROBING’ THE BALL’S FLIGHT (TRY .4 INITIALLS') 
132 PRINT "“STROBING’ THE BALL’S* FLIGHT (TRY .1 INITIALLY). * 

134 PRINT TIME INCREMENT (SEC)?. 4 

125 PRINT "TIME INCREMENT (SEC)"; 

136 INPUT 52 VELOCITY (FPS)?20 

148 PRINT 

156 PRINT "VELOCITY ¢FPS)"; COEFFICIENT?. 9 

168 INPUT ¥ 

465 PRINT FEET 

174 PRINT "COEFFICIENT": 

186 INPUT C 414 000 

184 PRINT is) 

185 PRINT "FEET" 43 0 0 

186 PRINT 

487 S1=INTC POL CYS C16452))) 412 0 i) 

196 FOR I=4 TO S14 on 

288 Tél =¥HO7C1-19716 SH. 8 fa a oo 

216 NEXT I i) 0 a 

226 FOR H=INT(-16*¢¥/32)"24¥°2/z2+,5) TO @ STEP -.5 18 

224 IF INTCH)<>H THEN 225 i) a a 

222 PRINT H: 9 0 ood 
225 L=0 tl 
230 FOR I=1 TO S14 3 oO 0 a 

249 FOR T=4 TO T(1) STEP 52 cy) a 
245 L=L+52 ey 0 oO 


256 IF ABSCH-¢. S#(-22)#T 7 24¥e07C1-1)#T))>. 25 THEN 278 0 Qa 

268 PRINT TAB(L/S2)5 "0"5 6 n a 
276 NEXT T 0 

275 T=T¢1+1)22 5 0 0 

276 IF -16*T~2+¥eC7CI-1)*T<H THEN 29% o 0 
238 NEXT I 4 ra] 

296 PRINT 

384 NEXT H 30 

348 PRINT TABC1); 0 
326 FOR I=141 TO INT(L4+41)/S2+1 
30 TP RENT Ws “cs 

348 NEXT I 1 

354 PRINT 

OOM) a ins 8 

SKOMEOR =1eMOwINT EE OSS ee ae fC ee 

38@ PRINT TABCINT(17S2))5 15 8 1 
396 NEXT I 

468 PRINT 

4146 PRINT TABCINT(L+4)/(2*52)-2)3 "SECONDS" TIME INCREMENT ‘SEC)? 
420 PRINT READY 

430 GO TO 135 

448 END 


SECONDS 


READY 
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BOWL mit 


Description 


This is a simulated bowling game for up to four players. 
You play 10 frames. To roll the ball, you simply type 
"ROLL", After each roll, the computer will show you a 
diagram of the remaining pins ("0" means the pin is down, 
ete sMeansiiity is istil lestanding)sjand tt wide ugive you a 
roll analysis: 


GUTTER 

STRIKE 

SPARE 

ERROR (on second ball if pins still standing) 


Another considerably simpler bowling game was submitted by 
Bion Rogers and Mark Gustitus of Springfield, PA 716 14 
not published. 


Program Author 


Paul Peraino 
Woodrow Wilson High School 
San Francisco, CA 94134 


PROGRAM LISTING 


90 REMARK AND ORIGINAL IDEA AND PROGRAMED BY PAUL PERAINU 
18@ REMARK FROM WOODROW WILSON HIGH SCHOOL 
270 DIM C(15),A(100,6) 

360 PRINT "WELCOME TO THE ALLEY" 

450 PRINT "BRING YOUR FRIENDS" 

540 PRINT "OKAY LET'S FIRST GET ACQUAINTED" 
630 PRINT\PRINT\PRINT 

720 PRINT "WANT INSTRUCTIONS (CY OR N)") 

B10 INPUT ZS 

900 IF ZSs"y" THEN 9990 

960 IF Z$e"N" THEN 1539 


990 PRINT "THE GAME OF BOWLING TAKES MIND AND SKILL.DURING THE GAME" 


1060 PRINT "THE COMPUTER WILL KEEP SCORE,YOU MAY COMPETE WITH" 


1170 PRINT "OTHER PLAYERS(UP TO FOUR).YOU WILL BE PLAYING TEN FRAMES" 


1260 PRINT "ON THE PIN DIAGRAM '01 MEANS THE PIN IS DOWN,.,'#! 
1350 PRINT "PIN IS STANDING,AFTER THE GAME THE COMPUTER WILL SHOW YOUR" 


14a@ PRINT "SCORES ," 

1530 PRINT "FIRST OF ALL,..HOW MANY ARE PLAYING") 
1620 INPUT R 

1710 PRINT 

1820 PRINT "VERY GOOD..." 

1899 MAT ABZER 


1980 «Fai 
207” FOR Pet TOR 
2160 Msa 
2257 Bel 


2342 MBG\O8d 

2430 MAT C#ZER 

2520 REMARK BALL GENERATOR USING MOD '15! SYSTEM 
2610 PRINT "PLAYER"P" == TYPE ROLL" 
2700 INPUT N$ 

2798 K8@\Dee 

2080 FOR I#i TO 20 

2970 X#®INTCRND(I) #190) 

3060 FOR Je#ei TO 10 

3150 IF x<i5eJ THEN 3330 

3240 NEXT J 

3330 CCAS#Jex) aL 

3420 NEXT I 

351@ REMARK PIN DIAGRAM 

3600 PRINT "PLAYERS"PH rPRAMES UF! BALL3"B 
3694 FOR 1#8@ To 3 

3780 PRINT 

3879 FOR Jei TO 4a] 

3960 KeKs1 

4050 IF C(K)#i THEN 4320 

4142 PRINT TABC(I)3"+ "5 

4232 GOTO 4410 

4320 PRINT TABCI) "0 "3 

4410 NEXT J 

4500 NEXT I 

4592 PRINT\PRINT\PRINT 

4680 RemakK ROLL ANALYSIS 

4770 FOR Tei To 10 

4862 D#8D+C(I) 

4950 NEXT I 

5040 IF DeM <> @ THEN 5220 

5130 PRINT "GUTTERII" 

5220 IF NOT(Bei anv D810) THEN 5490 
5319 PRINT "STRIKEJIIII" 

5400 Qe3 

5490 IF NOT(Be2 AND Dei#) THEN 576% 
5580 PRINT "SPAREIIII" 

5672 G82 

5760 IF NOT(Bs2 AND Did) THEN 6832 
§850 PRINT "“ERRORIJI" 

$940 Qsi 

6030 IF NOT(B81 AND 0K10) THEN 6214 
6120 PRINT "ROLL YOUR 2ND BALL" 
6210 REMARK STORAGE OF THE SCORES 
6300 PRINT 

6390 A(FeP,B) ad 

6480 IF B82 THEN 7220 

6570 Be2 

6660 MsD 

6750 IF Q#3 THEN 6210 

6800 A(FeP,3)8v0eM 

6930 IF Qs0 THEN 2520 

7020 ACFeP,3)80 

7410 NEXT P 

7200 Farsi 

7290 IF Feil THEN 2070 

7295 PRINT "FRAMES" 

73e@ FOR I#i TO 18 

7470 PRINT I3 

7560 NEXT I 

7650 PRINT 

7740 FOR Psi TO R 

7830 FoR Ii TO 3 

7920 FOR J#i TO 10 

8810 PRINT ACJ,1)? 

8102 NEXT J 


8105 PRINT 
8190 NEXT I 
8280 PRINT 


8370 NEXT P 

8462 PRINT "DO YOU WANT ANOTHER GAME" 
8552 INPUT AS 

8649 IF ASe"y" THEN 2610 

8730 END 


MEANS THE" 
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SAMPLE RUN 


WELCOME TO THE ALLEY’ 
BRING YOUR FRIENDS 
OKAY LET*S FIRST GET ACGUARINTED 


WANT INSTRUCTIONS ¢4 OR ND)? 4 

THE GAME OF BOWLING TAK MING ANC SKILL. CURING THE GAME 

THE COMPUTER WILL KEEP SCORE. YOU MAS COMPETE WITH 

OTHER PLAYERSCUP TO FOUR]. YOU WILL BE PLAYING TEN FRAMES 

ON THE FIN DIAGRAM “O° MEANS THE FIN IS COWN “+° MEANS THE 
PIN IS STANCING. AFTER THE GAME THE COMPUTER WILL SHOW YOUR 
SCORES 

FIRST OF ALL...HOW MANY ARE PLAYING? 2 


VERY GOOD. . 


RUB VERG is => Pree, IROL 
? ROLL 
i MaAcis sof PRAME: 2 BREE: of 
++ + OG 
o+o 
oo 


0 


ROLL YOUR 2ND BALL 


PEASER St = Pee ROL 
? ROLL 
PRAYERS 2 FRAMES BALL: 2 


0) fb 10 
O-+ 6 
oo 
ia 


ERROR!!! 


Jia pee Se viedeiss Ifa 
? ROLL 
PLANER. FRAME: 1 BARI = 2 


0-00 10 
ooo 


ROLL YOUR 2NCG BALL 


BEAVER oot ROLE 
? ROLL 
PEAMER Sa 2 FRAME: 1 BALL: 2 


aoooo0 
uo. 0 
oo 
0 


SPARC 


RUAMER 1" == TREES ROELE 
? ROLL 
PEARTERS FRAME: 2 jet oy ey re 22h 


ROLL YOUR 2NG BALL 


Malet RE a els yn 
? ROLL 
PERVER: 2 FRAME: 2 ta Est es 


Deaget: 0 
oo 0 
oo 
a 


SPARED)! 


PRAYER 29 ——SiTre ROLE 
2? ROLL 
Rise Rin re PRAMEY 2 BAR Lae 


goood 
Gi 0 + 
00 
+ 


ROLL YOUR 2NC BALL 


RUAWERe 2 === THRE ROLE 
rede 
REAVER: 2 FRAME: 2 BALL: 2 


Deoeoe 6) 
oog 
og 


BOXING OLYMPIC BOXING MATCH 


Description 


This program simulates a three-round Olympic boxing match. 
The computer coaches one of the boxers and determines his 
punches and defenses, while you do the same for your boxer. 
At the start of the match, you may specify your man's best 
punch and his vulnerability. 


There are approximately seven major punches per round, although 
this may be varied in Statement 185. The best two out of 
three rounds wins. 


Program Author 


Jesse Lynch 
710 South Point Douglas Road 
Dee howl MN 551719 
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PROGRAM LISTING 


BOG01 

32802 

202003 

20005 

20007 

20018 
40820 
20838 
00040 
80045 
20050 
32068 
00064 
08070 
00860 
80085 
88898 
80100 
@0110 
@a120 
@0130 
80140 
80150 
@8169 
@0172 
@0175 
@01ea 
0181 
00185 
00198 
80200 
802128 
80220 
@B221 
00222 
80225 
00230 
00240 
80250 
20270 
00271 
00275 
00280 
90290 
@83008 
@2310 
90330 
00340 
00341 
08345 
00350 
02360 
02375 
00380 
80390 
20400 
22410 
88420 
00425 
90440 
00450 
00455 
00460 
00470 
00475 
08480 
@0490 
20520 
00510 
00520 
00530 
90540 
80550 
00560 
08565 
90570 
00580 
205908 
20600 
20601 
48602 
02605 
00610 
02620 
08630 
20642 
20645 
00650 
00655 
00660 
00672 
006923 
00700 
88710 
00720 
00730 
00740 
00745 
00750 
00760 
007720 
00780 
00798 
00800 
00610 
00820 
00830 
00835 
20840 
00850 
006620 
90865 
00870 
00680 
00890 
00900 
02910 
02920 


REM PROGRAM SUBMITTED BY JESSE LYNCH, ST,PAUL, MN, 


JsQ 

L3o 

PRINT "OLYMPIC BOXING ©= 3 ROUNDS" 
PRINT 

PRINT "INPUT YOUR OPPONENT'S NAME" 
INPUT JS 

PRINT "INPUT YOUR MANIS NAME" 
INPUT Ls 

PRINT 


PRINT "DIFFERENT PUNCHES ARE 1 FULL SWING 2 HONK 3 UPPERCUT 4 JAB" 


PRINT "WHAT IS YOUR MANS BEST"s 
INPUT 8 

PRINT "AND WHAT TS HIS VULNERARILITY"S 
INPUT 0 

PRINT 

Bis INT(4#RNDO1) 
DisINT(a*RND44) 

IF B18D01 THEN 99 
PRINT JS" ADVANTAGE Ig "By " 
FOR R#i TO 3 

IF J>e 2 THEN 1240 

IF L>=2 THEN 1060 

xX5Q 

Ye 

PRINT 

PRINT "ROUND "R" BEGINS..." 
PRINT "fH 

FOR Ris 1 TO 7 
TaINT(1@ #RND41) 

IF I>5 THEN 600 

PRINT LS "'$§ PUNCHND 
INPUT P 

IF PaB THEN 225 

GO TO 230 

XEX49 

IF Pay THEN 340 

IF P32 THEN 450 

IF pa3 THEN 520 

PRINT LS "JABS AT "JS"S HEAD "3 
IF Died THEN 298 
CSINT(BeRND41) 

IF c<4 THEN 310 

X2Xe3 

GO TO 958 

PRINT "ITS BLOCKED" 

GO TO 950 

PRINT LS " SWINGS AND "9 
IF Died THEN 410 

X3 SINT(3Q@ *#RND41) 

IF x3<10 THEN 410 

PRINT " HE mISSES "3 

IF xXei THEN 954 

PRINT 

PRINT 

GO TO 308 

PRINT "WE CONNECTS!" 

IF X>35 THEN 980 

xexe15 

GO TO 300 

PRINT L$ "GIVES THE HOOK "3 
IF D182 THEN 4890 

Hi sINT(2#RND+1) 

IF Hiei HEN 58 

PRINT "CONNECTS..." 


XBX+7 

GO TO 3060 

PRINT "BUT IT'S BLOCKED Jhhusiryaa" 
GO TO 302 

PRINT L$ " TRIES AN UPPERCUT "y 
IF Dis3 THEN 570 


DSSINTC(1O@A*RND41) 
IF D5<51 THEN 579 


PRINT " AND IT'S BLOCKED (LUCKY BLOCK1)" 
GO TO 300 

PRINT "AND HE CONNECTSI" 

xeXx+d 

GO TO 300 


J7 BINT(4eRND41) 

IF J7 sBi THEN 605 

Go To 618 

yryee 

IF J7s91 THEN 720 

IF J7s2 THEN 819 

IF J7 33 THEN 862 
PRINT J$" JABS AND"S 
IF Ded THEN 700 

Z4 BINT(7*#RNDO1) 

IF 24>4 THEN 692 
PRINT " IT'S BLOCKED 1" 


Go To 300 

PRINT " BLOOD SPILLS !31" 

ysy+s 

GO TO 302 

PRINT JS" TAKES A FULL SWING AND" 
IF Day THEN 770 


R6ZSINTC6Q*RND41) 

IF R6 <3@ THEN 770 

PRINT " BuT IT's BLOCKED 4" 

GO 70 300 

PRINT " PoWsLJ)) HE HITS HIM RIGHT IN THE FACE." 


IF y>35 THEN 1010 

yeyets 

GO TO 309 

PRINT JS" GETS "L$" IN THE JAW (OUCHI)" 

Yaye7 

PRINT ",,,,AND AGAINI" 

yeyes 

IF y>35 THEN 1010 

PRINT 

PRINT L$ " IS ATTACKED BY AN UPPERCUT (OH, OH). oe" 


IF D#3 THEN 8990 
Q4BINTC200#RND41) 
IF Q4>75 THEN 920 


PRINT " AND "J$" CONNECTS..." 

yayes 

GO TO 300 

PRINT " BLOCKS ANDO HITS "J$" WITH A HOOK." 


AND DISADVANTAGE Ig SFCRET" 


51 


@Q930 Kaxe5 

80949 GO TO 390 

@@950 NExy Rt 

0951 IF x>y THEN 955 

@8952 PRINT JS " WINS ROUND "R 
@2953 yaset 

88954 GO TO 960 

@8955 PRINT L$ " WINS ROUND "R 
00956 Lalet 

@096@ NEXT R 

00961 IF J>s 2 THEN 1040 

08962 IF L>s2 THEN 1068 

08984 PRINT JS 
81880 GO To 108@ 
@1@10 PRINT LS " 7S KNOCKED COLD AND " gs" 
81030 GO TO io00 
@104@ PRINT JS 
21050 GO TO {900 
81668 PRINT L$ " AMAZINGLY wINg # 
81870 GO TO 1000 

@10860 PRINT 

@1085 PRINT 


WINS (NICE GOING )" JS 


IS KNOCKED CoLD AND " Lg" 


IS THE WINNER AND CHAmp "3 


18 THE WINNER AND CHAMP "9 


81090 PRINT "AND NOW GOODBYE FROM THE OLYMPIC ARNEA," 


@1100 PRINT 


@1110 END 
SAMPLE RUN 
RUN BOS ING 
OLYMPIC BOSING -- 3 ROUNDS 


INPUT YOUR OFFONENT* 5 NAME 
? MEATHEAD 
INPUT OUR MAN’ S NAME 


CIFFERENT FUNCHES 
WHAT IS YOUR MAN 
AND WHAT IS HIS 


ARE 2 FULL SWING 2 HOOK 
BES a 1 
VULNERABILITY? & 


MERTHEAC’S AGVANTAGE IS 4 
ROUND 4 BEGINS 


JPERMAN’ S PUNCH? 2 


GIVES 
ANG AGAIN! 


MERTHERC GETS 


SUPERMAN IS ATTACKED 64 AN UPPERCUT (OH. iH) 
RNG MEATHEARCG CONNECTS 
MEATHEAD GETS SUPERMAN IN THE JAW 
. ANC AGAIN! 


COUGH!) 


SUPERMAN IS ATTACKED BY AN UPPERCUT ¢OH., OH)> 
AND MEATHERD & 


SUPERMAN? & PUNE ah 
SUPERMAN SWINGS ANC HE MISSES 
-UIPERMAN’S PUNCH? 4 
5 ANC HE CONNECTS! 
Seu NG Msc: 
SWINGS ANG HE MISSES 


MEATHERC WINS ROUND 4 
ROUND @ BEGINS 
MERTHERO TAK 


MEATHEACG GETS 
ANC AGAIN! 


eh RUB SWING ANG? Pe) Ae 
SUPERMAN IN THE JAW COLICH! > 


SUPERMAN IS ATTACKED BS AN UPPERCUT (OH. OH) 
ANC MEATHEAC CONNECTS 
MEATHERO TAK A FULL SWING ANC POW! ttt! HE 
MERTHERC GETS SUPERMAN IN THE JAW (OLICH!) 
ANC AGAIN! 
SUPERMAN IS KNOCKED COLO AND MEATHEAC IS THE 


AND NON GOODEYE FROM THE OLYMPIC ARNER 


AND VULNERABILITY 


SUPERMAN’ 5 PUNCH? 
SUPERMAN IM THE JAM 


UPPERCUT 4 JAE 


fs SELRER 


COUCH! > 


HITS HIM RIGHT IN THE FACE! 


HITS HIM RIGHT IN THE FACE! 


WINNER AND CHAMP 


DRAW A BUG VS THE COMPUTER 


Description 


The object of this game is to finish your drawing of a bug 
before the computer finishes his. You and the computer roll 
a die alternately with each number standing for a part of 

the bug. You must add “the parts in the right order; aim other 
words, you cannot have a neck until you have a body, you 
cannot have a head until you have a neck, and so on. After 
each new part has been added, you have the option of seeing 
pictures of the two bugs. 


if you elect to see all the~pictures, this program has the 
ability of consuming well over six feet of Teletype paper 
per run. We can only suggest recycling the paper by using 
the other side. 


Program Author 


The author of this program is in the 7th grade at Harrison 
Junior-Senior High School. 


Brian Leibowitz 
27 Danner Avenue 
Harrison, NY 10528 
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PROGRAM LISTING 


418 
420 


460 
470 
480 
490 
500 
518 
520 
538 
548 
550 
560 
570 
580 
592 
620 
618 
620 
630 
640 
652 
660 
670 
688 
699 
700 
710 
720 
730 
748 
7528 
760 
770 
780 
79@ 
820 
810 
820 
g3a 
840 
850 
860 
870 
880 
890 
980 
910 
920 
9308 
948 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1102 
1110 
1120 
1130 
1140 
1150 
1160 
1178 
1180 
1196 
1200 
1210 
1220 


REM BRIAN MONTE LEIBOWITZ GRADE 7 

REM HARRISON JR, SR, HIGH SCHOOL 

REM HARRISON N.Y, 

DIM Z$1(3) 

AsBsHa_eNsPeQeRaSeTaleVsYeg 

PRINT "THE GAME BUG IS LIKE THE GAME coorTr," 
PRINT "I HOPE yOu ENJOY THIS GAMEN 


PRINT 
PRINT "DO YoU WANT INSTRUCTIONS") 
INPUT ZS 
a4 ae THEN 300 
IN HE OBJECT OF BUG 1S TO FINISH YOUR RUG BEFOR NISH MINE" 
PRINT "EACH NUMBER STANDS FOR A PART OF THE Sie ooper Seow 
PRINT "I WILL ROLL THE DIE FOR YOU, TELL YOU WHaT I ROLLED FOR YOU" 
PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART," 
PRINT "IF YOU CAN GET THE PART I WILL GIVE IT TO YoU," 
PRINT "THE SAME WILL HAPPEN ON MY TURN" 
PRINT “IF THERE IS A CHANGE IN EITHER BUG I WILL GIVE YOU THE 1 
PRINT "OPTION OF SEEING THE PICTURES OF THE BUGS," 
PRINT "THE NUMBERS STAND FOR PARTS AS FOLLOWS?" 
PRINT "NUMBER", "PART","NUMBER OF PART NEEDED" 
PRINT "1","Body", "ym" 
PRINT "2", "NECK, "qu 
PRINT "3","HEADN, "gH 
PRINT "4","FEELERS","on 
PRINT "S","TATEN, ngH 
PRINT "6", "LEGS", "6" 
PRINT 
PRINT 
IF Y>9 THEN 2489 
LET Z3INT(C6*RND(B) 41) 
Cet = 
PRINT "YOU ROLLED A "Z 
GOTO Z OF 358,430,540,650,760,870 
PRINT "{eBobdy" 
IF Bsi THEN 414 
PRINT "YOU NOW HAVE A BODY" 
Bay 
cae 
GOTO 974 
PRINT "YOU DO NOT NEED A pony" 
GOTO 972 
PRINT "d=NECK" 
IF Ney THEN 599 
IF Be@ THEN 52a 
PRINT "YOU NOW HAVE A wECK" 
NeBi 
Cet 
GOTO 974 
PRINT "YOU DO NOT NEED A NECK" 
GOTO 97a 
PRINT "yOu DO NOT HAVE A BODY" 
GOTO 972 
PRINT "“3SHEAD" 
IF N®2 THEN 614 
IF HEL THEN 63¢ 
PRINT "YOU NEEDED A HEAD" 
Hel 
Cea 
GOTO 974 
PRINy "yOu DO NOT HAVE A NECK" 
GOTO 970 
PRINT "YOU HAVE A HEAD" 
GoTo 970 
PRINT "4efEELERS" 
IF H®O THEN 740 
IF Aws2 THEN 720 
PRINT "TI NOW GIVE YOU A FEELER" 
LET AcA+y 
Co 
GOTO 9748 
PRINT "YOU HAVE TWO FEELERS ALREANY" 
GOTO 979% 
PRINT "YOU DO NOT HAVE A HEAD" 
GOTO 970 
PRINT "Se7tAI_" 
IF B2@ THEN 8630 
IF TE1 THEN 850 
PRINT "y NOW GIVE YOU A TAIL" 
LET TeT+1 
Cea 
GOTO 979 
PRINT "YOU DQ NOT HAVE A BODY" 
GOTO 970 
PRINT "YOU ALREADY HAVE A TAIL" 
GOTO 97@ 
PRINT "6aLEG" 
IF Le6 THEN 9428 
IF B8Q THEN 960 
GET Este! 
C20 
PRINT "YOU NOW HAVE "L" LeG(s)" 
GOTO 972 
PRINT "YOU HAVE 6 FEET ALREADY" 
GOTO 978 
PRINT "YOU DO NOT HAVE A BODY" 
LET X#INT(6#RND (0) +1) 
PRINT "I ROLLED A "xX 
GOTO x OF 1004,12080,1198,1390,1410,1520 
PRINT "1=BQDY" 
IF P#1 THEN 1060 
PRINT "J NOW HAVE A BODY" 
C20 
Pel 
GOTO 1632 
PRINT "I DO NOT NEED A BODY" 
GOTO 1630 
PRINT "2eNECK" 
IF gai THEN 1150 
IF pa@ THEN 1170 
PRINT "7 NOW HAVE A NECK" 
qei 
Cad 
GOTO 1630 
PRINT "I DO NOT NEED A NECK" 
GOTO 1630 
PRINT "I DO NOT HAVE A BODy" 
GOTO 16328 
PRINT "3BHEAD" 
IF G80 THEN 12608 
Ip R81 THEN 1280 


PRINT "I NEEDED A HEAD" 


53 


1238 
1240 
1250 
1268 
1270 
1289 
1298 
1300 
1310 
1320 
1330 
1340 
1350 
1362 
1370 
1388 
1390 
1400 
1418 
1420 
1430 
1440 
145¢@ 
1464 
1478 
1480 
1499 
1502 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
15920 
1600 
1610 
1628 
1630 
1640 
1650 
1668 
1672 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1758 
17690 
17708 
1780 
1790 
16802 
1810 
1820 
1830 
1842 
18590 
1869 
1870 
1880 
1892 
1900 
1910 
1920 
1932 
1940 
1958 
1968 
1970 
1980 
1992 
2000 
2810 
2020 
2030 
20428 
2050 
2060 
2078 
2080 
2098 
2100 
2110 
2120 
2132 
2140 
21520 
2160 
2178 
2180 
2190 
22008 
2210 
22220 
2230 
2240 
2250 
2260 
2278 
2288 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2372 
2388 
2398 
2400 
2410 
2420 
2430 
2450 


Rey 

Ceg 

GOTO 1638 

PRINT "I DO NOT HAVE A NECK" 
GOTO 4638 

PRINT "I DO NOT NEED A HEAD " 
GOTO 1630 

PRINT "4e8FEELERS" 

IF R®® THEN 1390 

IF S82 THEN 1370 

PRINT "y GET A FEELER" 

LET SeSe#1 

CQ 

GOTO 16328 

PRINT "I HAVE 2 FEELERS ALREADY" 
GOTO 16398 

PRINT "I DO NOT HAVE A HEAD" 
GOTO 1638 

PRINT "6Sey7AIL" 

IF Pe@ THEN $480 

IF usi THEN 1500 

PRINT "I noW HAVE A TAIL" 
u=1 

Cea 

GOTO 1638 

PRINT "I DO NOT HAVE A BODY" 
GOTO 1630 

PRINT "I DO NOT NEED A TAIL" 
GOTO 1630 

PRINT "68LEGS" 

IF V®6 THEN 1590 

IF P®@ THEN 1618 

LET VEVet 

C22 

PRINT "IT NOW HAVE "V" LEG(S)" 
GOTO 1630 

PRINT "I HAVE 6 FEET" 

GOTO 1632 

PRINT "I Do NOT HAVE A Body" 
GoTo 1630 

IF As2 AND T#1 AND L®6 THEN 1650 
GOTO 167a 

PRINT "YOUR BUG IS FINISHED" 
LET Yeyelt 

IF Seo AND Pey AND V86 THEN 4699 
GOTO 1710 

PRINT "My BUG Ig FINISHED" 
LET yeys2 

IF Cei1 THEN 300 

PRINT "DO YOU WANT THE PyCTURES"3 
INPUT Z$ 

IF ZS=e"NO" THEN 320 

PRINT "ewewe YOUR BUGeteun" 
PRINT 

PRINT 

IF Ae@ THEN 1860 

FoR Z®1 To 4 

FOR Xi TO A 

PRINT TAR(10)3 

PRINT OTA ts 

NEXT X 

PRINT 

NEXT Z 

IF Heg THEN 1889 

GOsyuB 2476 

IF ye@ THEN 1920 

FOR Zai toe 


PRINT " N Nt 
NEXT Z 

IF Baa THEN 2900 

PRINy " BBBRABBBBBBBBY 
FOR Z#i 10 2 

PRINT " B Bb" 
NEXT Z 

IF T#1 THEN 1990 

PRINT "TTTTTB B{" 
PRINT " BBBBBARBRARB" 


IF L#Q THEN 2080 
FOR 7®1 10 2 
PRINT TAB(S)35 
For X#1 ToL 
PRINT a cM 

NEXT xX 

PRINT 

NEXT Z 

FOR Zs, TO 4 
PRINT 

NEXT Z 

PRINT "eee ewe yY BUG Heat el 
PRINT 

PRINT 

PRINT 

IF s*@ THEN 223¢@ 
FOR Z#1 To 4 
PRINT TAB(10)3 
FOR X#1 TO S$ 
PRINT "F "3 


NEXT X 

PRINT 

NEXT Z 

IF R#1 THEN 2252 

GOsuB 24720 

IF gea THEN 2280 

PRINT " NN" 
PRINT " NN" 

IF PeQ@ THEN 2360 

PRINT " BBBBBBRBBBBB" 
FOR Z®1 TO 2 

PRINT " B Br 
NExT Z 

IF U#i THEN 2350 

PRINT "TTTTTB 6" 
PRINT " BBBBRBBBBABBB" 


IF V®@ THEN 2452 
FOR Zei TO 2 
PRINT TAB(S)} 
FOR X#i TO V 
PRINT TEs 

NEXT X 

PRINT 

NEXT Z 

IF y#@ THEN 2540 


2460 GOTO 300 


2470 PRINT " HHHHHHH" 
2480 PRINT " H HN" 
2490 PRINT " HOO H" 
2500 PRINT " H H" 
251@ PRINT " H Vv HM 
2520 PRINT nw HHHHHHH" 


2530 RETURN 
2540 PRINy "I HOPE yOu ENJOYED THE GAME, PLAy AGAIN sOON 4)" 


2550 END 
THE GAME BUG IS LIKE THE GAME COTI. SAMPLE RUN 
I HOPE YOU ENJOY THIS GAME 


CO YOU WANT INSTRUCTIONS? YES 
THE OBJECT OF BUG TS TO FINISH YOUR BUG BEFORE I FINISH MINE 
EACH NUMBER STANOS FOR A PART OF THE BUGS BODY! 

TWILL ROLL THE DIE FOR YOU. TELL YOU WHAT I ROLLED FOR yOu 
WHAT THE NUMBER STANCS FOR, AND IF YOU CAN GET THE FART 

IF YOU CAN GET THE FART I WILL GIVE IT To YoU 

THE SAME WILL HAPPEN ON MS TURN 

IF THERE IS A CHANGE IN EITHER BUG I WILL GIYE “OL! THE 
OPTION OF SEEING THE PICTURES CIF THE BGs 

THE NUMBERS STAND FOR PARTS AS FOLLO 
NUMBER PART NUMBER OF PART NEEDED 
Booby : 
NECK 
HERL 
FEELERS 
TAIL 
LEGS 


TOR WR 
TREE 


YOU ROLLED A 5 
S=TAIL 

YOU DO NOT HAVE A BOY 
I ROLLEG A 5 

S=TAIL 

I DO NOT HAVE A BODY 
SOU ROLLED A 5 

5=TAIL 

YOU DO NOT HAYE A BODY! 
1 ROLLED A = 

2=HEAD 

1 DO NOT HAVE A NECK 
YOU ROLLED A 4 

4=6004' 

YOU NON HAVE A Boo 

1 ROLLED A 2 
Z=NECK 

1 DO NOT HAVE A BODY 
GO YOU WANT THE PICTURE 
YOU ROLLED A 4 
4=FEELERS 

YOU OO NOT HAYE A HEAD 
1 ROLLED A 2 

S=NECK 


I G0 NOT HAVE A Boo4 
VOU ROLLED A 6 

-=LEG 

YOU NOW HAY 4 DEGES) 
I ROLLEC A 

2=HEARD 


I CO NOT HAWE A ONE 
CO YOU WANT THE FIC 
sees CUR BIG tobe: 


Pee Ss 


BEEBEEBEEBEE 
B B 
B EB 
BEBBEBEEEEEE 
tk 
LE 


a eR! BUG tetobsto aca 


YOU ROLLED A = 
Z=HEAD 

“OU BO NOT HA 
TROIS E DS trie 
==HERD 

I 00 NOT HAVE A NECK 

TOU ROLLED A 4 

1=B0b4 

TOU 0G NOT NEED A BoDY 

I ROLLED A 4 

4t=6004 

I NOW HAVE A Boy 

CO YOU WANT THE PICTURES? No 
YOU ROLLED A 4 

1=BOD4 

YOU DO NOT NEED A BooYy 

JT ROLLED A 6€ 
&=LEGS 

INOW HAVE 4 LEG 
CO YOU NANT THE PICTURES? NO 
YOU ROLLED A «4 
S=LEG 

OU NOW HAVE 

I ROLLED A 2 
2=NECK 

I NON HAVE A NECK 
OO YOU WANT THE PICTURES? No 


A NECK 


LEG<S) 
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sek ETT EUG at ak oka aoe 


HHHHHHH 
H H 
H 0 OH 
H H 
A MO 
HHHHHHH 
NON 
NON 
BBBBEGBBBEEE 
6 5 
B EB 
TTTTTE B 
BEEBEBEBEBEE 


Pama pet Sr 
{Binley So) se) 
YOU ROLLED A 4 
4+=FEELERS 
OU HAYE TWO FEELERS ALREACY 
I ROLLEG A 4 
4+=FEELERS 
1 GET A FEELER 
CO YOU WANT THE PICTURES? No 
YOU ROLLED A 5 
S=TAIL 
VOU ALREADY HAYE A TAIL 
IT ROLLEC A 4 
1=B6004 
1 0O NOT NEEC A BooYy 
SOLU ROLLEG A 4 
+=FEELERS 
WOU HAWE TWO FEELERS ALREACY 
I ROLLED A 4 
1=BODY 
IDO NOT NEED A BODY 
OU ROLLED A 5 
S=TAIL 
YOU ALREACY HAVE A TAIL 
I ROLLED A 5 
S=TAIL 
I G0 NOT NEEC A TAIL 
YOU ROLLEG A § 
S=TAIL 
TOU ALREAGY HAYE A TAIL 
T ROLLED A 2 
Z=NECK 
I DO NOT NEED A NECK 
TOU ROLLED A 4 
4=FEELERS 
YOU HAVE TWO FEELERS ALREADY 
ISROELED SAS 4 
4+=FEELERS 
1 GET A FEELER 
MY BUG IS FINISHED 
CO YOU WANT THE PICTURES? YES 
sea Y OUR BLING aaa: 


AA 
AOA 
AOA 
AOA 
HHHHHHH 
H H 
Ho oOuH 
H H 
HD SH 
HHHHHHH 
NON 
NON 
BEBEBEBEBEEBE 
6 E 
B B 
TITTTB 6 
EGEBRERBEEEEB 
eae 
[eft seals Ik 


Sera T ESL G acaba 


FF 
FOF 
FOF 
FF 
HHHHHHH 
H H 
HoOoOdH 
H H 
Bi OA 
HHHHHHH 
NON 
NON 
BEBBEBEEEEEE 
6 & 
B B 
TTTTTE E 
BEBBBEBEBEEE 


leat Sete as. A 
DOES ieee 


IT HOPE YOU ENJOVED THE GAME. PLAY AGAIN 


READY 


SON 


BULCO : : BULLS AND COWS GUESSING GAME 


Description 


In this game, a somewhat advanced version of BAGLES, the idea 
is that each player (you and the computer) tries to guess a 
5-digit number thought up by the opposing player. A BULL is 
scored for each correct digit in the correct position and a 
COW for each correct digit but out of position. For example: 


Mystery number 51340 
Your guess 21734 scores 1 BULL and 2 COWS 


In the first sample run, the human player's mystery number was 
12345. In the second run, the number was 13579. Notice that 
on the fourth computer guess, 35719, the human player told the 
computer 0,5 (i.e., no BULLS and 5 COWS). This was incorrect; 
it should have been 1,4, but the computer could not know that 
until two turns later when it realized that the human had given 
it impossible scores. 


By about the fourth or fifth guess, the computer starts taking 
quite a bit of time to narrow its choices between guesses. 
Be patient. 


Program Author 


Geoff Wyvill 
Bradford University 
Bradford, Yorkshire, England 


a5 


PROGRAM LISTING 


5S GOSUES&& 
16 DIMND(14, 4),6618).0¢18),6¢14) 
15 RANCOMIZE: PRINT: PRINT: PRINT 
26 LETA=4;GOTOZa4 
30 PRINT: PRINT: PRINT: LETJ=a 
25 PRINT"YOUR GLE i 
49 FORI=67T04:-LETG¢I) 
44 FORK=8TOI-41:IFG¢1)=G¢K) GoTO4174a 
42 NEXTK 

43 NEXTI 

45 LETP=4:LETA=8:GO0S5UBza0 

5@ PRINTY"BULL"; : IF Ys THENF RINT" 
55 IFY=STHENPRINT" - YOU WIN": GOT 
69 PRINTHW-¥"COW"s : TFWS>¥+4 THENPRINT"S "5 
65 IF J=@THENLETA=1:G0TO2a0 

68 GOSUBdaa 

?@ PRINT" - MY GUESS IS "; 

?5 FORI=8T04 -PRINTCHRE (OCI, 1448 
86 PRINT" MY SCORE"; - INPUTBCJ) 
$1 IFB¢J)>-4THENIFE (JS) <STHENIFE GI) 
82 PRINT" - RIDICULOUS! '"; -GoTO 7a 
83 IFBCJ)=47HENIFCCJ)=560TO 


i: NEXTI 
CHOSLETEGL Y= 
CETHENTIFC CI 


196 FORI BTOF:PRINTCHRE (DCG. 144595 -NEXTI 

115 GOTO26 

156 PRINT: PRINT"YOU HAVE GIVEN ME IMPOSSIBLE 
:GOTO 5 

1°76 PRINT"REPEATED DIGITS NOT ALLOWED" GOTOES 

FORP=a8TO4 

LETOCA, FX=INT(C1M4RNDC41)) 

FORI=GTOFP-1:7FDCA. 19=0¢8. PGOTOZ1A 

NEXTI 

NENTP 

IFA=6G0TO24 

LSE /GoTara 

LETY=8:LETN=o5 

TOP: IFDCA, I)= 


CI) THENLETY! 
§¢T) THENLETW=W+4 


3 NEXTK 
246 NESXTI 


P)=060,F) 
416 FORI=8TOP-4:1FG¢1)=G¢F)G0TO4Ea 
415 NEXTI 


CP) IFS 
4 IFP=Q@THENIFGCP)=0¢4 
435 IFGCPI<>OCI, FOGOTOS1A 

1: IFP<@THENGOTOLSA 


BoT0LSa 


LETP=P+41:>1FP<SG0TO4aS 
LETJ=J+4 
FORI=67T04:LETOGS, 19=5¢1) NEXTI 
RETURN 

S68 PRINT: PRINT: PRINT" 


516 GOTO16 
999 END 


SAMPLE RUN 


BRADFORG UNIVERSITY BULLS AND OMS 


YOUR GUESS? 
§ BULLS 
YOUR GUES 
tT BUEER2 
YOUR GUESS? 
§ BULLS 
YOUR GUES 
@ BULLS 
YOUR GUES 
2 BULLS 
YOUR GUE 


21 M4 Store? 


MY GUESS 


My GUESS 


MY GUESS 15 16425 py SCORE? 


MY SCORE? 2, 
YOUR GUES 
2 BULL 
YOUR GUE 
S BULLS 


SCORE? 


YOUR GUESS 
1 BUELL. 4 
YOUR GUESS 
8 BULLS 
YOUR GUES 
6 BULLS 
YOUR GUES 
§ BULLS 
YOUR GUES 
@ BULLS 2 
YOUR GUESS 
4 BULLS 
YOU HAVE GIVEN ME IMFO 


SCORE? A, 


SCORE? 


56 


2=STHENFRINT" - I WIN - MY NUMBER was": 


=INTC1G#N) -LETN=404N-INT (LGN) 


CT)+B 07) 
I-B¢J)3-160T0 


16070188 


SRE SS. 


GAME 


Ds 


1S 61952 my Score? aw, 


S 


he 


= 


fs 


- GAME SPOILED" 


(RO THENTF 4-P2=C (A) -WTHENIF4-PS=6¢8) -YonTO44s 
STHENLETG(F)=6¢(F)-14a 


BRACFORCD UNIVERSITY! BULLS AND COWS GAME 


Our mystery number was 12345 
Computer's score is 1 BULL for the 3 
and 2 COWS for the 1 and 2. 


Our mystery number was 13579 


This clue was incorrect because the 9 is in 
the right place. Score should have been 1,4, 


BULEYE ....... 


Description 
In this game, up to 20 players throw darts at a target with 
10-, 20-, 30-, and 40-point zones. The objective is-to get 
200 points. 


You have a choice of three methods of throwing: 


Throw Description Probable Score 
1k Fast overarm Bullseye or complete miss 
Z, Controlled overarm LOp ec OF -Or SON posners 
a Underarm Anything 


You will find after playing a while that different players 
will swear by different strategies. However, consider the 
expected score per throw by always using Throw 3 (program 
line 220): 


Score (S) Probability (P) Dex oe 
40 12-00=.95 = 205 2 
30 295—.75. = 220 6 
20 ~75-.45 = .30 6 
10 -45-.05 = .40 4 
O s05-—~00' = 205 e) 
Expected score per throw = 18 


Calculate the expected scores for the other throws and you 
may be surprised: 


Program Author 


Digital Equipment Corp. 
Maynard, MA 01754 


Sr, 


PROGRAM LISTING 


REM*** bULLSEY. BY DAVE AHL 
PRINT “GAME OF BULLSEYE"\PRINT\RANDOMI2E 
PRINT “IN THIS GAME, UF To 26 PLAYERS THROW DARTS AT A TARGET" 
PRINT ‘WITH 48. 26, 36, AND 4a POINT ZONES. THE OBJECTIVE IS" 
PRINT "TO & T 208 POINTS. "SPRINT 
PRINT "THROW", "DESCRIPTION"... "PROBABLE SCORE" 
PRINT “ 4", "FAST OV @ARM",. "BULLSEYE OR COMPLETE miss" 
PRINT “ 2". “CONTROLLED OVERARM", “1a, 26. OR 36 POINTS” 
FRINT “ 3") "UNDERARM". . "ANS THING "\FRINT 

DIM AS (269, 5026). WC109\R, M=ONSCL) =a FOR T=4 To 2 

INPUT “HOW MANY! PLAYERS": MSPRINT 

FOR I=4 TO N 

PRINT "NAME OF PLAYER"I; SINPUT ASCL> 

NEXT I 

R=R+1SFRINTSPRINT "ROUND OR 

FOR I=4 TO N 

PRINTSFRINT Figely"es THROW"; SINFLT T 

LEST Se OR T= THEN 
ON T GOTO 248, 244, 
Pie. 65\ P25. 


BK 
wb SS 
S 


So 


Shab 
08S oy 


OR 3"\GoTO 178 


MER B RRB RE 


aos 


" WIS=FP4 THEN PRINT "BULLSEWE! ! 44 POINTS! "\8=4a\gorTo 298 
IF UD>=FP2 THEN FRINT "S6-POINT 2ONE! "\B=za\GoTa 296 
IF U>=P3 THEN PRINT "26-POINT ZONE"\G=2 \GOTO 298 
IF U>=F4 THEN PRINT "WHEW! 10 POINTS. "\6=1a\GoTo 290 
PRINT "MISSED THE TARGET. Ton BAD! "\B=9 
S¢1=5¢1)+BNP RINT "TOTAL SCORE EXSCLM NEXT 1 
FOR I=4 TO N 
IF £¢C1)>=288 THEN MEM+1 WOM YET 


IF M=4 THEN 150 
PRINTSPRINT "WE HAVE WINNER! } “SPRINT 
PRINT F¢cWcMy ys” SEO"SCH CMS Y "POINTS. " FOR I=1 TO Mm 
PRINTSPRINT "THANKS FOR THE GAME! "SEND 


REFICY 
SAMPLE RUN 
GAME OF BULLSEYE 


IN TH UP TO 268 PLAYERS THROW DARTS AT A TARGET 

WITH » 38. AND 40 POINT ZONES. THE OBJECTIVE IS 

TO GET 2 FOINTS. 

THR CESCRIFTION PROBAGLE SCORE 
gt FAST OVERARM BULLSEVE OR COMPLETE MISS 
z CONTROLLED CVERRRM 14, 20, OR 38 POINTS 
zs UNDERARM ANYTHING 


ROUND & 
HOW MANS PLAYERS? 2 
DAVES 


NFIME OF PLAYER 4 > DAWE BULLS oa 
NAME OF PLAYER 2 > MAIS TOTAL SCORE = 168 
RUNG 4 MRR! S THR 2 
20-Fo cl 

CRVESS THROWS 4 Tada 4 186 
BULLSEVE!! 4a BOINTS : ik te 
TOTAL SCORE = 44 ROUND 7 
eee 4 CAVES THROW? 2 
acerAe ; Seng pre WHEW! 14 POINTS. 

OTH ‘E = 2 TOTAL SCORE = 446 
RONG MFRS THROWS > 

WHEW! 5 
DAVES THROW? 4 rared 
THE TARGET. TOO BAD! 
TOTAL SCORE = 44 RQWUIND! s 
MFIRG' & THROW 4 FIVE? S UW 
BULLSEYE! ! 4a POINTS! REA eel ll 
TOTAL SCORE = 66 TOTAL SCORE = 126 
ROUND = <; 
N S THROW? 2 


"INT ZONE! 


CAVES THROW? 4 OTRL Store = 144 


SEC THE TARGET. TOO BAD! 
TOTAL SCORE = 44 


RUNG 3 
MARS S THROWS 4 

sSEC THE TARGET. Too EAD! 
TOTAL SCORE = 6a 


CAVE’ S THROW? 4 
BULLSEVE!! 44 POINTS! 
TOTAL SCORE = 176 


RING: 4 

MARYS THROW? uf 

MISSED THE TARGET, TOO BAD! 
TOTAL SCORE = 14a 


CAVES S THRs 


ROUNC 4% 
MARS S THROW? = 

S6-POINT ZONE 
TOTAL 


CAVE’ S THROWS 4 
ORE = sa BULLSEVE!) 44 POINTS! 
TOTAL SCORE = 218 | 


ROWING § 
5 MARS S THROW? 4 


MISSEO THE TARGET. TOO BAD! 


DAVES THROW? = : 
WHEW! 40 POINTS. MOTALSSCORE = 44g 
TOTAL SCORE = 64 


WE HAVE FF WINNER! ! 


MARYS THROW? 
MISSED THE TARGET. Too BAD: OVE, SCGRED. 220 POINTS 
TOTAL SCORE = 96 


THANKS FOR THE GAME! 


58 


BULL = 


Description 


In this simulated bullfight, you are the matador--i.e., the 
one with the principal role and the one who must kill the 
bull or be killed (or run from the ring). 


On each pass of the bull, you may try: 
O Veronica (dangerous inside move of the cape) 
1 Less dangerous outside move of the cape 
2 Ordinary swirl of the cape 
Or you may try to kill the bull: 
4 Over the horns 
5 In the chest 


The crowd will determine what award you deserve, posthumously 
if necessary. The braver you are, the better the award you 
receive. It's nice to stay alive too. The better the job 
the picadores and toreadores do, the better your chances. 


This program was converted to standard BASIC (DIGITAL 
Timeshared-8) by students at Lexington High School under 
the direction of Walt Koetke. 


Source 
David Sweet 


Dartmouth College 
Hanover, NH 03755 


PROGRAM LISTING 


18 DIM D(20) 
200 RANDOMIZE 
202 LET L=1 . 
205 PRINT"DO YOU WANT INSTRUCTIONS"; 
206 INPUT Z$ 
07 IF Z$="NO" THEN 400 zy 
21a PRINT“HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS 
220 PRINT"HERE IS YOUR BIG CHANCE TO KILL A BULL” 
230 PRINT te 
240 PRINT"ON EACH PASS OF THE BULL, YOU MAY TRY 
250 PRINT"® - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)” 
260 PRINT” | - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE” 
278 PRINT"2 - ORDINARY SWIRL OF THE CAPE" 
288 PRINT 
290 PRINT”INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL” 
$00 PRINT"ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)" 
312 PRINT"BUT IF I WERE YOU," 
$20 PRINT"I WOULDN’T TRY IT BEFORE THE SEVENTH Pass” 
332 PRINT 
$40 PRINT"THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE" 
350 PRINT"POSTHUMOUSLY IF NECESSARY" 


36@ PRINT"THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE” 


378 PRINT 
380 PRINT"THE BETTER A JOB THE PICADORES AND TOREADORES DO,” 
390 PRINT"THE BETTER YOUR CHANCES ARE” 

40@ PRINT 

410 PRINT 

420 LET D(5)=1 

43@ LET D¢4)=1 

450 DIM L$(5) 

455 LET A=INTCRND(2)*5)+1 

460 FOR I=1 T0 5 

463 READ LS(I) 

467 NEXT I 

476 DATA "SUPERB", "GOOD", "FAIR", "POOR", "AWFUL" 
490 PRINT"YOU HAVE DRAWN A "L$(A)" BULL” 
500 IF A>4 THEN 530 

510 IF A<2 THEN 559 

528 GOTO 570 

530 PRINT”YOU'RE LUCKY" 

540 GOT057B8 

350 PRINT"GOOD LUCK. YOU’LL NEED IT” 

56@ PRINT 

578 PRINT. 

598 LET A$="PICADO” 

595 LET BS="RES™ 

600 GOSUB 1612 

610 LET D(1)=c 

638 LET A$="TOREAD™ 

635 LET B$="0ORES” 

$48 GOSUB 1619 

658 LET D(2)=c 

660 LET E=E 

678 PRINT 

680 IF Z=1 THEN 1316 

698 LET D¢3)=D(3)+41 

700 PRINT”PASS NUMBER “D(3) 

716 IF D(3)<3 THEN 760 

720 PRINT"HERE COMES THE BULL! TRY FOR A KILL"; 
738 GOSUB 1939 

735 ON Z! GOTO 113,740 

740 PRINT "CAPE MOVE"; 

758 GOTO 880 

76 PRINT™THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR--" 
770 PRINT"DO YOU WANT TO KILL THE BULL"; 
780 GOSUB 1930 

785 ON Z1 GOTO 1130,792 

79@ PRINT"WHAT MOVE DO YOU MAKE WITH THE CAPE"s 
800 INPUT E 

816 IF E<>INT(ABS(E))THEN 830 

820 IF E<3 THEN 859 

830 PRINT"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER" 
848 GOTO 820 

858 LET D=D 

860 IF E=8 THEN 920 

870 IF E=1 THEN 9200 

880 LET M=0.5 

892 GOTO 9390 

908 LET mM=2 

918 GOTO 939 

$20 LET M=3 

930 LET L=L+" 

948 LET FS (6-A+M/10)*RND (G)/ CCD (1)-4D (2)+4D (39/13) *5) 
950 IF F<@.51 THEN 660 

96@ PRINT”THE BULL HAS GORED YOu" 

970 ON FNACB) GOTO 982,1012 

98@ PRINT”YOU ARE DEAD" 

998 LET D¢4)=1.5 

1008 GOTO 1319 

1018 PRINT"YOU ARE STILL ALIVE" 

1020 PRINT"DO YOU RUN FROM THE RING": 

1836 GOSUB 1930 

1035 ON ZI GOTO 1048,1270 

1048 PRINT” COWARD” 

1058 LET D¢4)=9 

1868 GOTO 1312 

1072 PRINT"YOU ARE BRAVE, STUPID, BUT BRA VE" 
1888 ON FNACO) THEN 1090,1110 

1898 LET D¢4)=2 

1128 GOTO 669 

1110 PRINT"YOU ARE GORED AGAIN” 

1128 GOTO 979 

1138 LET C=c 

1148 LET Z=1 


1258 IF K>@.2 THEN 960 

1260 PRINT”YOU KILLED THE BULL” 
1270 LET D(5)=2 

1288 GOTO 1328 

1298 IF K>@,8 THEN 962 

1382 GOTO 126@ 

1318 PRINT 

1328 PRINT 

1338 PRINT 

1340 IF D(4)<>@ THEN 1399 


1358 PRINT"THE CROWD BOOS FOR TEN MINUTES. IF YOU EVER DARE TO SHOW" 
1360 PRINT"YOUR FACE IN A RING AGAIN. THEY SWEAR THEY WILL KILL YOU--" 


1578 PRINT"UNLESS THE BULL DOES FIRST" 
1388 GOTO 1588 


1398 DEF ENC CQ) = (4 o54L/6~(D C1)+D (2) )*2 .54+44D (4 +24D (5)= (D (3) 12) 120-4) xB 


1400 IF D¢4)<>2 THEN 1430 
1418 PRINT“THE CROW CHEERS WILDLY” 
1428 GOTO 14590 
1438 IF D¢(5)<>2 THEN 1450 
1440 PRINT"THE CROWD CHEERS" 
1450 PRINT”THE CROWD AWARDS You 83 
1460 IF FNC(Q)<2.4 THEN 1570 
1470 IF FNC(Q)<4.9 THEN 1558 
1480 IF FNC(Q)<7.4 THEN 1520 
1500 PRINT"OLE! YOU ARE ‘MUY HOMBRE"! OLE! OLE!” 
1518 GOTO 1580 
1520 PRINT”BOTH EARS OF THE BULL” 
1530 PRINT"OLE!" 
1548 GOTO 1580 
1550 PRINT"ONE EAR OF THE BULL” 
1566 GOTO 1580 
1570 PRINT” NOTHING” 
1588 PRINT 
1598 PRINT"ADIOS"” 
1688 GOTO 2830 
1612 LET B=3/A*RND (@) 
1620 IF B<9,37 THEN 1742 
1630 IF B<@.5 THEN 1720 
1640 IF B<2,63 THEN 1790 
1650 IF B<8.87 THEN 1689 
1668 LET C=0.1 
1676 GOTO 175¢ 
1688 LET C=0.2 
1698 GOTO 1759 
1708 LET C=@,.3 
1710 GOTO 1750 
1728 LET C=6.4 
1738 GOTO 1753 
1748 LET C=0.5 
1758 LET T=INT(10*C+0,2) 
1760 PRINT"THE "A$$B$" DID A “ESTO” JOBS 
1778 IF 4>T THEN 1992 
1780 IF 5=T THEN 1870 
1798 ON FNACK) GOTO 1828,1980 
1808 IF A$="TOREAD" THEN 1829 
1810 PRINT"ONE OF THE HORSES OF THE "A$$;B$" WAS GORED” 
1820 ON FNACK) GOTO 1838,1859 
1830 PRINT"ONE OF THE "AS3BS" WAS KILLED" 
1848 GOTO 19¢2 
1850 PRINT"NO "AS33$" WERE KILLED” 
1862 GOTO 1990 
1876 IF AS="TOREAD” THEN 1892 
1882 PRINT FNACK)" OF THE HORSES OF THE "A$S$B$" GORED” 
1890 PRINT FNACK)" OF THE "AS$B$" KILLED" 
1980 PRINT 
1918 RETURN 
1928 DEF FNACK)=INTCRND CO) *2)41 
1938 INPUT A$ 
1958 IF A$="YES" THEN 199@ 
ieea IF AS="NO" THEN 2010 
70 PRINT"INCORRECT ANSWER, P| . . "NO'"s 
1982 GOTO 1939 » PLEASE PRINT "YES* oR NO°"s 
1998 LET Z1=1 
2008 GOTO 202¢ 
2018 LET Z1=2 
2028 RETURN 
2638 END 


READY 


1158 PRINT"IT IS THE MOMENT OF TRUTH. How po YOU TRY TO KILL THE BULL"; 


1168 INPUT H 

1170 IF H=4 THEN 123¢ 

1180 IF H=5 THEN 123g 

1218 PRINT"yYou PANICKED. TH 7 
1228 GOTN Soe THE BULL GORED you, 
1230 LET K= (S=A) *1G*RND(O)/((DC1)+4D (2) *5%D (3) 
1240 IF J=4 THEN 1299 
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SAMPLE RUN 


DO YOU WANT INSTRUCTIONS? YES 


HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS 
HERE IS YOUR BIG CHANCE TO KILL A BULL 


ON EACH PASS OF THE BULL, YOU MAY TRY 

@ - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE) 
1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE 

2 - ORDINARY SWIRL OF THE CAPE 


INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL 
ON ANY TURN: 4 (OVER THE HORNS), 5 CIN THE CHEST) 


BUT I 


F I WERE YOU, 


I WOULDN*T TRY IT BEFORE THE SEVENTH PASS 


THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE 


POSTH 


UMOUSLY IF NECESSARY 


THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE 


THE B 
THE B 


YOU H. 
GOOD 


ETTER A JOB THE PICADORES AND TOREADORES DO, 


ETTER YOUR CHANCES ARE 


AVE DRAWN A SUPERB BULL 
LUCK. YOU"LL NEED IT 


THE PICADORES DID A SUPERB JOB 


THE TOREADORES DID A SUPERB JOB 


PASS 
THE .B 


NUMBER 1 
ULL IS CHARGING AT YOU! 


YOU ARE THE MATADOR-- 


DO YOU WANT TO KILL THE BULL? NO 
WHAT MOVE DO YOU MAKE WITH THE CAPE? @ 


THE 3. 
YOU A 


ULL HAS GORED YOU 
RE DEAD 


THE CROWD AWARDS YOU ONE EAR OF THE BULL 


ADIOS 


READY 
RUN 
DO YO 


YOU H 


THE-P 


U WANT INSTRUCTIONS? NO 


AVE DRAWN A POOR BULL 


ICADORES DID A POOR JOB 


ONE OF THE HORSES OF THE PICADORES WAS GORED 


ONE OF THE PICADORES WAS KILLED 


E TOREADORES DID A POOR JOB 


TH 
NO TO 


PASS 


READORES WERE KILLED 


NUMBER 1 


THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR-- 
DO YOU WANT TO KILL THE BULL? NO 
WHAT MOVE DO YOU MAKE WITH THE CAPE? 2 


PASS 
THE B 


WHAT 


PASS 
HERE 
CAPE 


PASS 
HERE 
CAPE 


PASS 
HERE 
CAPE 


PASS 
HERE 
CAPE 


PASS 
HERE 
CAPE 


PASS 
HERE 


NUMBER 2 
ULL IS CHARGING AT YOU! 


NUMBER 3 


YOU ARE THE MATADOR-- 
DO YOU WANT TO KILL THE BULL? NO 
MOVE DO YOU MAKE WITH THE CAPE? 2 


COMES THE BULL! TRY FOR A KILL? NO 


MOVE? I 


NUMBER 4 
COMES THE BULL! TRY FOR 
MOVE? @ 


NUMBER 5 
COMES THE BULL! TRY FOR 
MOVE? 1 


NUMBER 6 
COMES THE BULL! TRY FOR 
MOVE? @ 


NUMBER 7 
COMES THE BULL! TRY FOR 
MOVE? 2 


NUMBER 8 
COMES THE BULL! TRY FOR 


A 


A 


A 


A 


A 


IT IS THE MOMENT OF TRUTH. HOW 


THE B 
YOU A 


ULL HAS GORED YOU 
RE DEAD 


KILL? NO 


KILL? NO 


KILL? NO 


KILL? NO 


KILL? YES 
DO YOU TRY TO KILL THE BULL? 4 


THE CROWD AWARDS YOU ONE EAR OF THE BULL 


ADIOS 


READY 
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UN 


BUN NNYBUN 
BUNNYB NYBUNNYBUN 
BUNNYBUN UNNYBUNNYBUN 
UNNYBUNNY NYBUNNYBUNNYBU 
NNYBUNNYBU UNNYBUNNYBUNNYB 
NYBUNNYBUNN YBUNNYBUNNYBUNNY 
YBUNNYBUNNY NNYBUNNYRUNNYBUNN 
BUNNYBUNNYB UNNYBUNNYBUNNYBUN 
UNNYBUNNYBU BUNNYBUNNYBUNNYB 
NNYBUNNYBUN YBUNNYBUNNYBUNNY 
NYBUNNYBUNNY NYBUNNYBUNNYBUNN 
YBUNNYBUNNYB NNYBUNNYBUNNYBU 
BUNNYBUNNYRU UNNYBUNNYRUNNYB 


UNNYBUNNYBUN SBUNNYBUNNYBUNN 
NNYBUNNYBUN YBUNNYBUNNYBU 
NYSUNNYBUNNYBUNNYBUNNY 
YBUNNYBUNNYBUNNYBUNN 
BUNNYBUNNYBUNNYBU 
NNYBUNNYBUNNY 
NYBUNNYBUN 
YBUNNYBU 
UNNYBUNNYBUNN 
NYBUNNYBUNNYBUNNYB 
UNNYBUNNYBUNNYBUNNYBU 
BUNNYBUNNYRUNN YBUNNYBUN 
NYBUNNYBUNNYBUNN YBUNNYRUNN 
NNYBUNNYBUNNYBUNNYBUNNYBUNNY 
UNNYBUNN UNNYBUNNYBUNNYBRUNNY 
BUNNYBUN UNNYBUNNYBUNNYBUNNYB 
YBUNNYBUN UNNYBUNNYBUNNYRUNNYB 
NYBUNNYBUN BUNNYBUNNYBUNNYRUNNYB 
NNYBUNNYBUNNYBUNNYBUNNAYBUNN YBUNNYB 
UNNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB 
NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY 
NYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY 
YBUNNYBUNNYBUNNYBUNNYBUNNYBUNN 
UNNYBUNNYBUNNUBUNNYBUNNYRUNN 
BUNNYBUNNYBUNNYBUNNYRUN Y 
YBUN YBUNNYS NYBU B 


BUNNY NYBUNNYB U 
YBUNN U YBUNNYB N 
NYBUNN NYBUNNY NYBUNN 


NNYBUNNYBUNNYSBUNNY UNN 
UNN N ¥ N YSBUNNYBU 


BU NN N ¥ x 
NN UNNY 
NNY 


NY 
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PRINTS THE PLAYBOY RABBIT 


BUZZWORD GENERATOR 


BUZZWD 


Description 


This buzzword 


Your audience will never know that 


Full instructions for running are given in 


This program is an invaluable aid for preparing speeches and 


briefings about computers and high technology. 
generator provides sets of three highly-acceptable words to 


work into your material 
the phrases don't really mean much of anything because they 


sound so great 
the program. 


Source 


BUZZWORD was adapted from the GE timesharing program by 


Tom Kloos 


Up rg 
rs . 
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97200 


Oregon 


a 


Oregon Museum of Science and Industry 


Portland 


PROGRAM LISTING 


100 
110 
120 
132 
140 
150 
162 
178 
160 
190 
191 
210 
220 
230 
240 
250 
268 
265 
270 
260 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
458 
460 
470 
480 
490 
520 
512 
520 
530 
540 
558 
560 
570 
580 
590 
628 
610 
620 
630 
640 
652 
660 
678 
680 
690 
708 
712 
720 
730 
748 
758 
768 
770 
788 
798 
800 
810 
820 
830 
840 
850 
860 
878 
880 
890 
988 
910 
920 
932 
940 
950 
962 
972 
982 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1072 
1062 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1202 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1292 
1300 
1310 
1320 


PRINT"THIS COMPUTER DEMONSTRATION IS A NEW AID FOR" 
PRINT"PREPARING SPEECHES AND BRIEFINGS, IT?S A BUZZWORD" 
PRINT"GENERATOR WHICH PROVIDES YOU WITH A SET OF 3 HIGHLY" 
PRINT"ACCEPTABLE WORDS TO WORK INTO YOUR MATERIAL, THE WORDS" 
PRINT®DON’T ACTUALLY MEAN ANYTHING, BUT THEY SOUND GREAT," 


PRINT 

PRINT"THE PROCEDURES" 

PRINT" THINK OF ANY THREE NUMBERS BETWEEN @ AND 9, ENTER" 
PRINT" THEM AFTER THE °?° SEPARATED BY COMMAS, your" 
PRINT" BUZZWORD WILL BE PRINTED OUT, TYPING °100* FOR" 
PRINT" EACH OF YOUR CHOICES STOPS THIS PROGRAM," 

PRINT "WHAT ARE YOUR THREE NUMBERS"; 

GOT0260 

PRINT 

PRINT 


PRINT" THREE MORE NUMBERS"} 
INPUT N,M,P 
IF N®1@0 THEN 1299 
IF NSO THEN 1240 
IF P<@ THEN 1240 
IF M<Q THEN 1240 
IF N>9 THEN 1240 
IF P>9 THEN 1240 
IF M>9 THEN 1240 
PRINT 
IF N®Q THEN 640 
IF NE1THEN 660 
IF NS2THEN 680 
IF N®3THEN 720 
IF NeG THEN 720 
IF N®STHEN 740 
IF NS6THEN 760 
IF N®&7THEN 780 
IF Ne8THEN 800 
IF NE9THEN 820 
IF M®Q THEN 840 
IF M81 THEN 860 
IF Me2 THEN 880 
IF Me3 THEN 900 
IF med THEN 920 
IF Me&5 THEN 940 
IF M36 THEN 960 
IF M27 THEN 980 
IF M28 THEN 1002 
IF M29 THEN 1020 
IF P#Q@ THEN 1040 
IF P=1 THEN 1060 
IF P=2 THEN 1080 
IF P#3 THEN 1102 
IFP=4 THEN 1120 
IF P85 THEN 1142 
IF P86 THEN 1160 
IF P37 THEN 1180 
IF P#8 THEN 12200 
IF P29 THEN 1220 
PRINT" INTEGRATED") 
GOTO440 
PRINT" TOTAL"? 
GOTO440 
PRINT "SYSTEMATIZED") 
GoTO44a 
PRINT" PARALLEL"? 
GO TO 440 
PRINT" FUNCTIONAL"? 
GOTO44O 
PRINT" RESPONSIVE") 
GoTO44a 
PRINT" OPTIMAL"} 
GoTO44a 
PRINT" SYNCHRONIZED"5 
GOTO440 
PRINT " COMPATIBLE"; 
GOTO44a 
PRINT" BALANCED"; 
GOTO44a 
PRINT" MANAGEMENT") 
GOTO 540 
PRINT" ORGANIZATIONAL"; 
GOTO 540 
PRINT" MONITORED"; 
GOTO 54a 
PRINT" RECIPROCAL") 
GOTO 540 
PRINT" DIGITAL"} 
GOTO 540 
PRINT" LOGISTICAL"? 
GOTO 54a 
PRINT " TRANSITIONAL"? 
GOTO 540 
PRINT" INCREMENTAL"; 
GOTO 540 
PRINT" THIRD@GENERATION"} 
GO To 540 
PRINT" POLICY"; 
GOTO 540 
PRINT" OPTIONS" 
GOTO 230 
PRINT " FLEXIBILITY" 
GO TO 230 
PRINT" CAPABILITY" 
GoTO230 
PRINT" MOBILITY" 
GOTO0e3a 
PRINT" PROGRAMMING" 
GO TO 230 
PRINT" CONCEPT" 
GOTO230 
PRINT" TIME=PHASE" 
GOT0230 
PRINT" PROJECTION" 
GOTO230 
PRINT" HARDWARE" 
GOTO230 
PRINT" CONTINGENCY" 
GOTO230 
PRINT 
PRINT 


PRINT"NUMBERS MUST BE BETWEEN @ AND 9, PLEASE SELECT THREE MORE.” 


GOTO 260 

GOTO 260 

PRINT "GOODBYE FoR NOW] " 
PRINT\PRINT\PRINT 

CHAIN "DEMON " 


END 6 4 


SAMPLE RUN 


BUZZWD EDUSYSTEM-35 

THIS COMPUTER DEMONSTRATION IS A NEW AID FOR 
PREPARING SPEECHES AND BRIEFINGSe IT'S A BUZZWORD 
GENERATOR WHICH PROVIDES YOU WITH A SET OF 3 HIGHLY 


ACCEPTABLE WORDS TO WORK INTO YOUR MATERIAL+« THE WORDS 
DON'T ACTUALLY MEAN ANYTHINGs BUT THEY SOUND GREAT. 


THE PROCEDURE? 
THINK OF ANY THREE NUMBERS BETWEEN @ AND 9+ ENTER 
THEM AFTER THE ‘?* SEPARATED BY COMMAS. YOUR 
BUZZWORD WILL BE PRINTED OUT. TYPING ‘100° FOR 
EACH OF YOUR CHOICES STOPS THIS PROGRAM. 

WHAT ARE YOUR THREE NUMBERS?71,253 


TOTAL MONITORED MOBILITY 


THREE MORE NUMBERS?2,344 


SYSTEMATIZED RECIPROCAL PROGRAMMING 


THREE MORE NUMBERS?706,06,5@ 


INTEGRATED MANAGEMENT OPTIONS 


THREE MORE NUMBERS?9, 857 


BALANCED -THIRD-GENERATION PROJECTION 


THREE MORE NUMBERS? 7,859 


SYNCHRONIZED THIRD-GENERATION CONTINGENCY 


THREE MORE NUMBERS?5, 3,6 


RESPONSIVE RECIPROCAL HARDWARE 


THREE MORE NUMBERS?2,6,4 


SYSTEMATIZED TRANSITIONAL PROGRAMMING 


’ 


THREE MORE NUMBGRS?3,4,5 


PARALLEL DIGITAL CONCEPT 


THREE MORE NUMBERS? 10@6,10@1-,100 
GOODBYE FOR NOW! 


CAINDR occu. 


Description 


This program prints out a calendar for any year. You must 
specify the starting day of the week of the year in Statement 
EKO (Sunday (0), Monday (-1), Tuesday (-2), etc.). You can 
determine this by using the program WEKDAY. You must also 
make two changes for leap years in Statements 360 and 620. 
The program listing describes the necessary changes. Running 
the program produces a nice 12-month calendar. 


Program Author 
Geoffrey Chase, OSB 


Portsmouth Abbey School 
Pertsmouth, *RI “02871 
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PROGRAM LISTING 


REM: VALUES FOR 19733 SEE NOTES 
FOR 1=1 TO 6\ PRINT CHR$(1G)3\ NEXT 1 

D=-i "1973 STARTS ON MON. [6=SUN.,-1=MON.»-2=TUE..-3 
S=0 

REM: READ DAYS OF EACH MONTH 

FOR N=Q TO 12 \ READ M(N) \ NEXT N 

treenens 

FOR N=1 TO 12 

PRINT \ PRINT \ S=S+M(N-1) 

PRINT "«"3S3TABC7)3 

FOR 1=1 TO 18 \ PRINT "*"3 \ NEXT 1 

ON N GOTO 230,240,250, 260,270,280, 290,380. 310, 320s 330,346 
PRINT " JANUARY "3 \GOTO 356 


PRINT " FEBRUARY"'3 \GOTO 356 
PRINT * MARCH "3 \GOTO 3590 
PRINT “" APRIL "3 \GOTO 356 
PRINT " MAY "3 \GOTO 359 
PRINT "* JUNE “3 \GOTO 356 
PRINT " JULY "3 \GOTO 350 
PRINT " AUGUST "3 \GOTO 350 
PRINT "SEPTEMBER"$ \GOTO 350 


PRINT " OCTOBER "3 \GOTO 356 


PRINT " NOVEMBER"; \GOTO 350 

PRINT " DECEMBER" 

FOR I=1 TO 18 \ PRINT "x3 \ NEXT I 

PRINT 365-S3 "xx" 

(366-S; ON LEAP YEARS] 

PRINT CHR$(1@) \ PRINT ” 5 M T ws 
PRINT T F s 

PRINT 

FOR 1=1 TO 59 \ PRINT "x3 \ NEXT 1 


eene 


FOR W=1 TO 6 
PRINT CHR$(1) 

PRINT TABC4)3 

an 

FOR G=1 TO 7 

D=D+1 

D2=D-s 

IF D2>M(N) THEN 586 

IF D2>@ THEN PRINT Des 

PRINT TAB(4+8%G) 3 

NEXT G 

on 

1F D2=M(N) THEN 596 

NEXT W 

veer 

D=D-G 

NEXT N 

teeveeee 

FOR I=1 TO 6\ PRINT CHRS(10)3\ NEXT 1 
DATA 8,31,2843143031,30531,31,30.31430.31 
*  €0431,29, ++, ON LEAP YEARS] 
END 


IF YOU HAVE NO CHRS$(), SUBSTITUTE “PRINT” FOR “PRINT CHRS(19)3" 


AND "PRINT \ PRINT" FOR “PRINT CHR$(10)"* (WITHOUT SEMICOLON). 
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SAMPLE RUN 


ae sO A JANUARY eke ee eee eek eee 365 #* 
s M iE W T F s 


HA AM EK RRR KR E KR EREEEERERERER ERE AAA ER EKER EERE 


1 @ 3 4 5 6 
7 8 9 16 11 12 13 
14 15 16 17 18 19 20 
21 22 23 24 as 26 27 
28 29 36 31 
HK Ql KKKRKKKAEKKERKKKEK FEBRUARY £4 £484 eee EKEKEEKEX 334 #% 
Ss M ny Ww T ¥ s 


FRM AHHH KK EK KK KEK KERR EK EEE ERE EERE ERE KEREEEEEK 


1 2 3 
4 SS 6 7 8 9 16 
11 12 13 14 15 16 17 
18 19 20 21 22 23 24 
25 26 27 28 
HR SD RERKKEKKERER KEK MARCH eR KRRKERARKRREER BBG be 
Ss M T Ww T F s 


AKA EK KH KAR RIOR AR RRO IORI OR OR IO IO 


1 2 3 
4 5 6 7 8 9 10 
ys) 12 13 14 15 16 17 
18 19 20 21 22 23 24 
25 26 27 23 29 38 31 
** DG CeRKKKRR KERR ARR APRIL 2 KRIKRERKEKK RRR 275 4K 
s M WW Ww T F Ss 


JERI IIUIOIOGIOIOIIIOIOI I IOIUICIIOIOIO ICICI IOIIOIOIIIOIIOI IOI I Iot foi 


1 2 3 4 5 6 7 

8 9 18 11 12 13 14 
15 16 17 18 19 26 21 
2e 23 24 2s 26 27 23 
29 30 


HH 12D RHKERRE RHEE ERR MAY REE DAS ke 


s M T Ww T F s 
JORDI OIGIOIDIOIOI CIRC IOIGIOII IOI IOC II IO IGOI EIR katona tok 
1 2 3 4 5 


6 7 8 9 
STOF 


CAN-AM 


Description 


CANADIAN-AMERICAN AUTO RACE 


CAN-AM is a simulation of a Canadian-American Challenge Cup auto 
mece. Ihe road Course is fast (speeds up to 200 m.p.h.jJ. It is 
long (5.3 miles) and complex (8 curves and 8 straights). You are 
racing the latest Group 7 cars (McLarens, Lolas, etc.). 


The instructions provided by the program are self-explanatory. 
You should really take heed of track hazards--i.e., rain and oil, 
except, of course, slowing down too much puts you out of con- 
tention. BEWARE: This game is very challenging and addictive! 


Computer Limitations 


The program was written for the Honeywell/GE 635 at Dartmouth. 
The main inconsistency with other computers is that several 
people may race using multiple terminals; this is generally 
not possible on smaller machines. 


The comments on the listing are extremely comprehensive and 


entertaining. We apologize for not having a sample run, but 
Poe gOt wiped out. 


Program Author 


Mark Manasse 
Hanover, NH. 03755 
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PROGRAM LISTING 


109 
110 
129 
130 
140 
150 
160 
170 
160 


939 

270 

930 

°s0 

100 
1610 
1320 
1030 
1349 
1050 
1350 
1070 
1080 
1030 
1100 
1110 
1120 
1130 
1140 
1150 
1150 
1170 
1180 
1190 
1200 
1210 
1220 
1236 
1240 


CAN-AM*** (BASIC PROGRAM BEGINS AT LINE 610) WAS PROGRAMMED BY MARK 
4ANASSE, TO REPLACE THE AILING VERSION HE WROTE AS A SIXTH GRADER 


« 

‘ 

* AT HANOVER ELEMENTARY SCHOOL. 

* LAST CHANGE 12/27/72 BY LIANE MATHER, KIEWIT 
' 
' 


DESCRIPTION--THE PROGRAM ALLOWS YOU TO RACE AROUND A HIGHLY 
" PERILOUS COURSE, RISKING BOTH LIFE AND MACHINE, IN AN 
" EFFORT TO RACE FRIENDS OR THE COMPUTER'S VERY OWN SLOW- 
' POKE SAM, WILDMAN WILLY, AND HOTSHOT HARRY 


* INSTRUCTIONS -- 
" YOU ARE ABOUT TO RACE. RACE ON ONE OF THE FASTEST COURSES 


* IN THE WORLD. A ROAD COURSE. A LONG ONE. 5.3 MILES. SPEEDS 
*" UP TO 200 MPH. YOU CAN RACE FRIENDS(?) OR THE COMPUTER. 
" TO RACE THE COMPUTER, TYPE THE SEQUENCE: 


M /OLD CAN-AM***/RUN 

" TO RACE FRIENDS, TYPE: 

' 

: /OLD CAN-AM**X/LINK <KEYWORD>,N 

’ 

" REPLACE <KEYWORD> WITH ANY NORD OF LENGTH 1 THROUGH 8 INCLUSIVE 
* THAT YOU CHOOSE. REPLACE N WITH THE NUMBER OF PLAYERS COUNTING 
* YOURSELF. HAVE YOUR FRIENDS TYPE: 

‘ JOIN <KEYWORD> 

' 

" <EYWORD> SHOULD BE THE KEYWORD YOU USED IN THE *LINK* COMMAND 
1 

" WHEN THE COMPUTER TYPES A QUESTION OF THE FORM 

s STRAIGHT A? OR CURVE 1: 

* RESPOND BY TYPING THE SPEED (IN MPH) YOU DESIRE TO TRAVEL AT, 

" AND HIT THE RETURN KEY. GOOD LUCK. YOU MAY NFED IT. 
’ 

' 
1 

. 
' 

' 

‘ 


IF YOU ARE USING A TERMINAL WITH BOTH UPPER AND LOWERCASE, TYPE 
NORD ANSWERS (SUCH AS YES OR NO) IN CAPITAL LETTERS. 


10 STOP THIS LISTING, PRESS THE “S" OR "ATIN® KEY. 


FOR MORE INFORMATION ON MULTIPLE-TERMINAL FROGRAMMING, (AS 
* WHEN SEVERAL PEOPLE RACE EACH OTHER), SEE TMO009 WHICH IS 
* RVAILABLE FROM THE KIEWIT DOCUMENT CENTER (SECRETARIAL AREA), 


" KIEWIT COMPUTATION CENTER, HANOVER, N. H. 03755, PHONE 
" (603) 646-2643. 


* EXPLANATION OF CHANGES-- 
" 12/27/72--TG REWORD INSTRUCTIONS. 
’ 


woe Ok * OER x sie ok * * x ae * 2 Ba re keh Ey * * 


FEM PLEASE REFER ALL BUGS OR COMMENTS TO DIANE 
REN MATHER, PROGRAM LIBRARIAN, 105 KIEWIT 


LET 0(0)=2 "STANDARL MOTIF HEADER 
LET O(1) = ASC(SOH) 
LET 0(2) = ASC(N) 


CHANCE 0 TO 01$ 
LET 0(2) = ASC(Q) 
CHANGE O TO O$ 
PRINT 019799; CHRS(13);"XX ARE YOU FAMILIAR WITH THE WAY THIS GAME WORKS"; 
LATA NON, OUI,PARLEZ-VOUS ANGLAIS?,NEIN,JA,SPRECHEN SIE ENGLISCH? 
LATA NOPE,YUF,COMPUTERS AKE SOPHISTICATED MACHINES. USE APPROPRIATE LANGUAGE. 
LET «3=5 "TWICE NUMBER OF KNOWN LANGUAGES 
FOR X=l TO K9=1 STEP 2 
REQD FS(X),FS(X#1),25((X-1)/2+1) 
NEXT X 
REN WE AAVE JUST LEARNED FOREIGN LANGUAGES 


DATA WILDMAN WILLY,HOTSHOT HARRY,SLOWPOKE SAM ‘NAMES OF DRIVERS WHO COMPETE AGAIN \T ONLY ONE PERSON. 


VAT FFAD 9S$(3) "NAME ARRAY 

DRDRS 2c Sipe Dig = 5) “AMT. SPEED TO BE SUBTRACTED FROM AUTO-PILOT' SPEEDS 
rRT READ Q(3) 

MAT RERDOMSICS)) "READ NAMES OF TYPES OF ROADWAY 

READ X$ “DEATH MESSAGE 

INPUT AS "RESPONSE TO DO YOU KNOW WHAT YOU'RE DOING? 

IF AS>"29" THEN 890 ‘IF BETWEEN O1 AND 09, THEN MULTI-TERMINAL 


IF A$<"61" THEN 890 

LET O39=VAL(AS) 

Cote 360 

LET oS="" "SET THING 

ceca as THINGS UP FOR SINGLE TERMINAL 
IF AS="NO" THEN 1070 

FRINT "RATE YOURSELF AS A DRIVER. (1-BEST,3-WORST)"; 


INPUT 0 

LT 3(3)=0(3)*0 

GoTe 1050 

Lit 0(2) = ASC(A) "CREATE OS ARRAY FOR MULTI-TERMINAL 
CHANGE 0 TO O0$(10) "STANDARL MOTIF 


FIR I = 0 TO 09 
LET 0(2) = ASC(C)+I 
CHANCE 0 TO OS(TI) 
NEXT di 
PRINT 9$(10);"YOU MAY *DRAFT' (SLIPSTREAM) OFF OF ANY CAR AHEAD" 
PRINT "OF YOU. (BUT NOT MORE THAN 1 SECOND AHERD). TO DO THIS" 
PRINT “TYPE HIS CAR NUMBER+1000 AS YOUR SPEED.” 
RANDOMIZE 
IF A>="YES" THEN 1110 
FRINT 0$(0) 
oe "FOR INSTRUCTIONS, PLEASE TYPE LIST AFTER THE COMPUTER SAYS READY." 
IF AS="NO" THEN 2290 
LET F2=INT(RND*10)+6 


FORK A=2 TO 09 "ASSIGN NUMBERS AND ADHESION FACTORS 


(RUTO-PILOTS) 


PRINT GS(R); "YOUR DRIVING NUMBER IS";F2*(A+1)4+A "ADHESION FACTOR IS HOW WEL YOUR CAR GRIPS THE ROAD 


LET A(A)=RND*.05+.05 
Gee pre OS(A);"ALHESION FACTOR"; A(A)*100-5;". (THE LOWER THE BETTER)” 


PRINT O$(10);"YOUR MAX. SPEED IS 200 MPH. 
PRING: "Ong Goue cpecan TO SEE STANDINGS INPUT" 


Cee WOULD YOU LIKE TO SEE THE COURSE"; CHRS( 63*SGN(09));0S; "PRINT ? IF ULT-TERM, 
FRINT 0$(10); 

LET AS=AS(NUM) 

GOSUR 2190 

IF AS="NO" THEN 1450 
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OTHERWISE DON'T 


1250 
1250 
1270 
1280 
1290 
1300 
1310 
13296 
1330 
1340 
1350 
1369 
1370 
1380 
1390 
1400 
1419 
1420 
1430 
1440 
1450 
1450 


1470 


IF BRS<>"YES" THEN 1190 

PRINITAB(4); "---------------- i "PRINT COURSE 
FRINTTAB(3) 5"/1";TAB(11);"B";TAB(19);"2\" 
PRINITAB(2);"/A";TAB(20);"C\" 
FRINTTAB(1)7"/";TAB(22);"\" 

PRINT “/";TAB(21)3"31" 

PRINT "A-STARTXFINISH";TRB(22);"1" 

PRINTS Wate ta 22 eT 

PRINT! VA" TAB (21); br" 

PRIND QA"; TRB(22)5 "0" 

ERENT SAAB G22 ig ete 

PRINT "AH";TAB(22);"1I" 

RINE WANS TRB (2207 "ID" 

PRINT "A";TAB(21);"41" 

TSIEN PCA ISSN OSU) Ec ey Ai 
PRINT"AS";TAB(15)3"(5 BE" 

PRINT "A"; TAB(16)7"\" 


PRINT "\";TAB( 17); "----------- "FCHRS (13) 7TAB(20)7"/PITS\" 
FRINT " \7";TAB(14);"G";7TAB(21);"FA"; TAB(27)7"61" 

BUEN Lege weer ere see ee cee See ft 

LET N=RND*3+1 

PRINI" 

NOTE: THIS IS A"; INT(N);"LAP-RACE.” 

FAO 


GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 


1480 
1490 
1390 
1510 
1320 
1530 
1540 
Vs50 
1360 
1570 
1580 
15390 
1€00 
1610 
L200) 
1630 
1043 
1550 
1660 
1670 
1680 
1630 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 


1780 
17390 
1300 
1610 
1820 
&30 
340 
1850 
350 
1870 
1330 
13890 
130C 
ESE) 
1920 
1339 
1940 
1556 
PS6ee 
370 
380 
1990 
2u09 
2010 
2020 
2030 
2940 
2050 
2069 
2070 
2080 
2590 
2100 
2110 
220) 
2130 
214) 
2150 
2150 
2170 
2180 
2190 
2200 
2210 
222) 
2230 
2240 
2250 
2260 
PEAR 
2280 
2290 


FRINT“OFF YOU cor 

DATA STRAIGHT, HAIRPIN, CURVE 

DATN MAY I SHOW YOU TO A PLOT? WE HAVE A NICE CHOICE OF HEADSTONES. 

EE =a: 

LET 4=LNT(N) 

FOR V=l TO N "WORKING PORTIOV 
LET Y=FNA(MS(1),290,1,3/10,65) “STRAIGHT A, 200 MAX., 3/10 MILE LONG 
LET Y=FNA(MS(3),125,1,1/10,49) “CURVE 1, 125 MAX., 1/120 MILE LONG 
LET Y=FNA(MS(1),200,2,13/20,65) “STRAIGHT B, 200 MAX., 13/20 MILE LONG 
LET Y=FNA(MS(3),125,1,1/10,50) "CURVE 2, 125 MAX., 1/10 MILE LONG 
LET Y=FNA(MS(1),200,1,1/5,67) ‘STRAIGHT C, 200 MAX., 1/5 MILE LONG 
LET Y=FNA(MS(3),150,1,3/20,51) ‘CURVE 3, 150 MAX., 3/20 MILE LONG 
LET Y=FNA(MS(1),200,2,3/5,68) ‘STRAIGHT D, 200 MAX., 3/5 MILE LONG 
DET Y=FNROMS(3),125,1,1/10,52) “CURVE 4, 125 MAX., 1/10 MILE LONG 
LET Y=FNA(MS(1),230,1,1/4,69) “STRAIGHT E, 200 MAX., 1/4 MILE LONG 
LET Y=FNA(NS$(2),100,.75,3/20,53) “*HAIRFIN 5, 100 MAX., 3/20 MILE LONG 
LET Y=FNA(MS(1),200,1.5,9/20,70) “STRAIGHT F, 200 MAX., 9/20 MILE LONG 
LET Y=FNA(MS(2),100,.75,3/20,54) “HAIRPIN S, 190 MAX., 3/20 MILE LONG 
LET Y=FNA(MS(1),200,2,1,71) "STRAIGHT G, 200 MAX., 1 MILE LONG 
LET Y=FNA(MS(3),125,1,1/10,55) "CURVE 7, 125 MAX., 1/10 MILE LONC 
LET Y=FNA(MS(3),150,1,3/20,56) "CURVE 8, 150 MAX., 3/20 MILE LONG 
LET Y=FNA(M$(1),200,2,7/10,72) ‘STRAIGHT H, 20C MAX., 7/10 MILE LONG 
IF V=H THEN 1740 
LET Y=FNA("START-FINISH (CURVE 3)",150,1,3/20,127) 
REM NAME OF TRACK oMAX,#,LEN ,ASC 
REM START-FINISH, 150 MAX., 3/20 MILE LONG 

NEXT V 

IF Gl=l THEN 2040 "ALL DEAD? 


PRINT 0$(10);"DG YOU MEAN THAT EVERYONE ISN'T DEAD? WELL, HERE ARE " "NO, SO PRINT OUT RESULTS OF RACE 


PRINI"“THE RESULTS STRAIGHT FROM THE CHECKERED FLAG: 


LET wW=LE+37 
IF 69=06 THEN 1820 
LET S5=09 
GoTo 1830 
GET ¢5=3 
FOR Z=0 TO G¢5 
IF 09>0 THEN 1880 
IF Z=0 THEN 1880 
PIRSA eioabe Le) hy, 
GOTO 1890 
PRINT"GUY #";F2*(Z+1)+2;7 
IF D(Z)=0 THEN 1950 
PRINT" IS LOOKIN’ AT THEM PEARLY GATES." 
IF 09=0 THEN 1990 
PRINT GS€Z)5 "TELL ST. LUCEFER ROT TO) EXPECT ME, O.K27" 
PRINT 9$(10)7 
GOTO 13390 
PRINT" TOOK";T(Z);"SECONDS. WHICH AVERAGES OUT TO";3600%5.3*H/T(Z);"MPH" *T ARKAY IS TIME 
IF T(Z)>W THEN 1990 
LET W=T(Z) "NEW LEADING TIME AND DRIVER 
LET N=F2*(Z+1)+Z 
NEXT Z 
IF 03>0 THEN 2020 
IF N>FZ THEN 2040 
PRINT OS((N-F2)/(F2+1));"NICE RACE, MR"GN 
PRINT OS(10);"AND THAT MEANS THAT GUY #";N; "WINS!!!" 
PRINE OS(0);"ANOTHER RACE";CHRS(63%SGN(09))70S7 
YRAT INFUT AS 
LET AS=AS(NUM) 
GOSUB 2190 
IF AS="NO" THEN 2290 
IF hS<>"YES" THEN 2040 


FOR Z=0 TO 1U “RESET FOR NEXT GAME 
LET T(Z)=D(Z2)=6 
NEXT Z 
PRINT O$(10);"NEW SET-UP. NO RAIN, NO DEBRIS"; 
IF Gl=0 THEN 2160 "IF EVERYS3O0DY'S DEAD, BE NASTY. 
PRINT ", AND (PLEASE!) BETTER DRIVERS." 
ion -obarse0 "UNKILL EVERYBODY AND UNCIL THE TRACK 
Reeth k9 "FOREIGN LANGUAGE HANDLER 
IF AS=FS(X) THEN 2230 
NEXT X 


GOTO 2280 

PRINT 9$(0);R$((X-1)/2+1) 
IF X=INT(X/2)*2 THEN 2270 
LET AS="NO" 


COTC 2280 
LET A$="YES" 
RETURN 

STOP 
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ARRAY 


CONTROL FUNCTION 


2300 
2310 DEF FNA(AS,R,B,C,D) "KIND TRACK, MAX. SPEED, ADHESION FUDGE FACTOR, LENGTH 
2320 "ASC(LETTER FOLLOWING KIND OF TRACK) 
3 Gl=l THEN 4250 "ALL DEAL? 
5340 ev 2800 "GET SOME HAZARDS (IE RAIN, OIL) 
2350 GOSUB 3220 "GET EVERYONE*’S SPEET 
2360 FOR G=0 TO 09 "CHECK FOR SAFE SPEEDS 
2370 IF D(G)=1 THEN 2780 
2380 IF (B+A(G)+E)*S(G)/B<=RA(1+RND*.1) THEN 2500 
2390 PRINT O$(G);X$ "PRINT DEAD MESSAGE 
2400 LET F5=F541 "INCREMENT OIL CJUNTER 4 
2410 LET E(F5)=D "AND THE 635 SAID “LET THERE BE OIL. AND THERE IT WAS. ’ 
2420 FOR Z=0 TO 09 "AND THE TRACK ABOUNDED WITH OIL- AND THE 635 SAID "BOY, WHAT 
j IF Z=G THEN 2450 "R MAN TRAP!" 
ak PRINT 0$(2); "GUY &";F2*(G4+1)+G;"JUST WIPED REAL GCOD ("N DEAD!)" *IN THE MEANTIME, IT HAS BEEN BUSY NOTIFYING PEOPLE 
2450 NEXT Z "OF THEIR COMRADE'S DEMISE. 
2466 LET D(G)=1 "OFFICIALLY PRONOUNCE DEAD. D IS FOR DEATH 
2470 LET Q=U+1 "INCREMENT DEAD COUNTER 
2480 IF Q=09 THEN 4230 "EVERYBOLY DEAD? 
2430 GOTO 2780 ; 
2500 LET Y4=T(G) "RATS. HE DIDN'T WIPE 


2510 IF (3+4(G)+E)*S(G)/B<=R THEN 2530 
2520 PRINT OS(G);"NEARLY HAD TO SAY COOD BYE.” "ALMOST WIPED 


2530 LET T(G)=T(G)+C/(S(C)/3600)+L(G) "UPDATE HIS TIME 

2540 IF 09>0 THEN 2660 "SEE IF, HEAVEN FORBID, HE PASSED SOMEBODY 
2550 FOR X4=1 TO 3 

2350 IF D(X4)=1 THEN 2650 

2570 LET 24=T(X4)-(C/(S(X4 )/3600)) 

2580 LET Zl=Y¥4-24 

2530 LET 22=1(G)-T(X4) 

2600 IF SGN(Z2)<>-SGN(Z1) THEN 2656 

2610 IF SGN(Z2)=1 THEN 26406 

2320 PRINT “YOU JUST PASSED “7 0S(X4) 

2€30 GOTO 2650 

2640 PRINT Q$(X4);" JUST PRSSED you" 

2550 NEXT X4 

2660 FOR X4=C+l1 TO 69 

2070 IF D(X4)=1 THEN 2770 

2580 IF S(X4)=0 THEN 2770 

2690 IF SGN(Y4-T(X4))=OCN(1(G)-(T(X4)+C/(S(X4)/3600))) THEN 2770 
2700 IF SGN(T(G)-(T(X4)+C/(S(X4)/3600)))<>-1 THEN 2740 
2710 PRINT OS(X4); "GUY"; F2*(G+1)+6;"JUST PASSED yoy." 
2720 PRINT O$(G);"YOU JUST PASSED GUY"; F2*(X4+41 )+x4 
2730 GOTO 2770 

2740 IF SGN(T(S)~-(T(X4)+C/(S(X4)/3600)))=0 THEN 2770 
2750 PRINT OS(G)s"GUY"FZF2*(X441)#X4;"JUST PASSED YOU." 
2760 PRINT O$(X4);"YOU JUST PASSED GUY"; F2*(G+1)+G 
2770 NEXT X4 


2780 NEXT G ‘PROCEED TO THE FATE OF THE NEXT VICTIM 
2790 COTO 4250 "NO MORE VICTIMS. (THIS TIME!!) 

2300 REM HAZARDS 

2810 FRINT 0$ (10); 


2320 LET E=0 “MAKE SURE WE DOV'T JSE LAST SECTION*S OIL ON THIS SECTION 
2830 “AT L=ZER “KILL PIT STOPS FROM LAST TIME 

2840 LET L(C)=0 

2850 IF F5<2 THEN 2900 ‘IF COURSE WELL GREASED, DISSOLVE GREASE 


2550 PRINT "THE RED FLAG HAS BEEN PUT OUT. CARS REMAIN" 

2870 PRINT "MOTICNLESS UNTIL DEBRIS IS CLEARED" 

2380 4AT E=ZER 

2390 LET F5=0 

2900 FOR X=1 TO FS "SEE IF THOSE PLAYING DESERVE OIL 
2910 IF £(X)=D THEN 2949 

2920 NEXT X 

2930 GOTO 2970 

2940 PRINI"YIKES! OIL CN THE TRACK!" ‘IF SO, NOTIFY SURVIVORS AND OTHERS 
2950 LET S22 

2°60 GOTO 3130 


2970 IF F3=1 THEN 3130 "HAVE WE HAD RAIN? 

2330 IF RND>.025+G8 THEN 3139 "SEE IF IT SHOULD BE STOPPED OR STARTED 
299C IF R(0)<.1 THEN 3080 "IS IT RAINING? 

3000 IF RND>.5 THEN 3130 MOT OR Ane, 

3010 FRINT "GLORY BE, THE RAIN HAS STOPPED! BUT REMEMBER IT IS STILL wET" 

3020 Let te . "RAIN, RAIN, GO AWAY, WON'T COME BACK ANOTHER DRY 
3040 LET R(R)=A(A)-.075 ‘DELETE MOST OF THE EFFECTS 

3950 LET G8=.025 "MAKE IT LESS LIXELY TO RAIN IN LATER RACES 
3060 NEXT A 

3370 G)TO 3139 

30U8G PRI*tT "SAINI SLOW | OWNEE" "HALLE R 4 

3090 FOR 4=0 To 69 'HAKE Pete Pape 

3100 LET R(AR)=A(A)+ 1 

3110 LET G8=.1 

3120 NEXT A 

3130 IF ¢<>9/20 THEN 3210 ‘PIT stops? 


3140 IF RND <.125 THEN 3210 
3150 FOR X=9 TO 09 


3160 IF RNDASGN(09)<.75 THEN 3200 
3179 IF D(X)=1 THEN 3200 
ane LET L(X)=RND*34+5 

PRINT OS(X);"YOU ARE IN THE PITS FOR SECS EC Sr 
3200 NEXT X oath 
3210 RETURN "WE WUZ + v ! 
Hae er Z HERE (AND LEFT!) 
3230 4AT S=ZER "RESET SPEED ARRAY 


3240 IF 03>0 THEN 3270 
3250 PRINT AS;" ";CHRS(D); 
3260 SITO 3280 

3270 PRINT 0$(10);AS;" "ZCHRS(D)e": "308; 


3230 LET $(3)=0 CET © ' = 
ge et T EVERYBODY'S SPEEDS 


“PRINT OUT SOMETHING LIKE “STRAIGHT a? 


ee IF D(A)=0 THEN 3330 
319 PRINT OS(A) : 0 
Soli ae IF HE'S DEAD, DON'T GIVE HIM A CHANCE To INPUT 


3330 NEXT AR 

3340 WAT INPUT J 

3350 IF NUM=1 THEN 3390 
3350 LET N=J(1) 

3370 LET S=J(2) 

3330 GITO 3419 


‘INPUT SOMEBODY'S SPEED 


"SOMEBODY TYPED SOMETHING. SET uP SPEED RND TTY# 
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3390 LET S=J{1) 
3400 LET N=0 
on IF Tee THEN 3450 "IS THE GUY DEAD? 
PRINT 3$(N);"BUT I THOUGHT YOU WERE D 2" © RE= - 

=y Cheeta: R EAD RE-INFORM HIM THAT HE IS AN UN-PERSON 
3440 GCIITO 3340 
Ane SAO EN Ae fang mee 2 "HAS THIS GUY ALREADY TOLD US HIS SPEED? 

; - I STILL NEED";09-U-Q;" ie ‘ 
or ees 9-U-Q; "MORE SPEEDS TELL HIM TO BUZZ OFF 
3480 LET A=N 
3490 IF S<=200 THEN 3620 "DID HE TRY TO EXCEED HIS MAX. SPEELY 
3500 IF 09=0 THEN 3600 
3510 IF S<1000 THEN 3600 


3520 LET R4=(S-1000-F2)/( F2+1) "IT'S OK. HE ONLY WANTS TO DRAFT 
3530 IF R4=INT(R4) THEN 3560 "NOW SEE IF HE PICKED A LEGAL CAR 
3540 PRINT OS(N);"ILLEGAL CAR" "HE DIDN'T 


3550 GOTO 3640 

3560 IF R4>39 THEN 3540 

3570 IF D(R4)>0 THEN 3540 

3530 IF ABS(T(N)-T(R4)-.5)=>.5 THEN 3540 

3590 G)'TO 3700 "HE DID!!! 

3600 PRINT OS(N);"MAYBE A LITTLE HARD ON THE PEDDLE? BE REALISTIC." "OPTIMIST 

3519 GITO 3640 

3520 IF S>0 THEN 3660 

3639 GCOSUB 3990 "HE WANTS TO SEE HOM HE'S DOING. POOR GUY 

3640 PRINT "HOW FAST"; CHRS(63*SGN(09));0$; 

3550 GOTO 3340 

366) IF S=>20 THEN 3690 "WHERE DOES HE THINK HE IS? THE LON3S ISLAND EXPRESSWAY? 
3670 FRINT O$(N);"I DOUBT YOU WANT TO GO THAT SLOWLY" 

3680 SITO 3640 

3690 LET S(N)=S “SINCE HE MADE IT THIS FAR, ASSUME THAT IT*S LEGAL 
3700 LET U=U+1 

3713 1F R450 THEN 3740 


3720 LET H(N)=R4 "IF HE*’S DRAFTING, TELL ME TO WHOM 
3730 LET R4=0 

3740 IF U<09-G THEN 3430 "BRE WE LONE? 

3759 LET U=0 OYESS 

3760 IF G9>0 THEN 3890 "SET SPEEDS FOR AUTO~PILCTS 
3770 FOR FO=1 TO 3 

3786 IF D(FO)=1 THEN 3870 

3790 LET S=R*B/( B+.1+E+G8)+(RND*3+9(FO)) 

3300 IF (B+.1+68+E)*S/B<=R THEN 3850 

3816 LET D(FO)=1 

3829 PRINT O$(1L0)7Q0S(FI)7" JUST WIPED" “AND INFORM US IF THEY WIPE 
3830 LET F5=F5+1 

3349 LET E(F5)=D 

3650 LET T(FO)=T(FO)+C/(S/3600) 

3300 LET S(FO)=S 


3870 NEXT FO 
3389 SITO 3980 


389C FOR X2=0 TO 09 "NOW HANILE DRAFTERS 

3308 IF D(X2)=1 THEN 3970 

3910 IF S(X2)<>0 THEN 3970 

3920 IF S(H(X2))<>0 THEN 3950 

3930 LET H(X2)=HCH(X2) ) 

3949 GOTO 3920 

3950 LET S(X2)=S(H(X2)) "SET HIS SPEED TO HIS DRAFTEES, AND 
39690 LET T(X2)=(T(X2)+T(H(X2)))/2 “‘HALVE THE DISTANCE BETWEEN THEM 
3570 NEXT X2 

3980 RETURN “NOW GO COUNT SURVIVORS AND INCREMENT TIMES 
3990 REM PLACING 

400) PRINI OS(A) "TELL ME HOW I'M DOING 


4010 IF 09=0 THEN 4040 
4020 LET S5=09 

4030 GOTO 4050 

404) LET 35=3 

4050 FOR G=0 TO G5 


4060 IF G=A THEN 4200 

4070 IF 09>0 THEN 4100 

4980 PRINT QS(G);" IS"; "I AM RACING AGAINST AUTO-PILOTS 
4090 GoTO 4110 

4100 PRINT “GUY#";F2*(G+1)4+G;"IS"; “I AM RACING AGAINST FRIENDS(?) 
4110 IF D(G)<>1 THEN 4140 

4120 PRINT " OUT OF THE RACE." "IF COMPETITOR HAS MET HIS MAKER, SAy So 
4130 GOTO 4200 

4140 ON SGN(T(A)-T(G))+2 GOTO 4150,4170,4190 “BUSINESS PART 

4150 PRINT IT(G)-T(A);"SECONDS BEHIND YOU" "GOOD NEWS 

4160 GOTO 4200 

4170 PRINT " RIGHT BESIDE YOU." so so 

4180 GoTo 4200 

419u PRINT T(A)-T(G) "SECONDS AHEAD OF YOU." ‘BAD NEWS 

4200 NEXT G 


4210 PRINI™ 
YOU'VE TAKEN";T(A);"SECONDS.” "MORE BAD NEWS 


4220 RETURN "AND AN ANTI-CLIMACTIC ENDING. (STOLEN FROM SPIEL*** AND SPACEWAR) 
4230 PRINT 0$(10);"GUY#"sF2*(G+1)+G;", THE LAST OF THE GREAT RACERS, JUST WIPED." 

4240 LET Gl=1 "ALL HUMANS ARE DEAD, SO GRIND THIS MANGLE TO A HALT, AND SET A FLAG TO THAT EFFECT 
4250 FNEND "AND RETURN FROM WHENCE WE CAME 

4250 END 

READY 


yink 


C H ANGE COMPUTER IMITATES CASHIER 


Description 


In this program, the computer pretends it is the cashier at 

your friendly neighborhood candy store. You tell it the cost 

of the item(s) you are buying, the amount of your payment, pues 
it will automatically (!) determine your correct change. Aren't 


machines wonderful? 


Program Author 


Dennis Lunder 
People's Computer Co. 
Menlo Park, CA 94025 


2 PRINT "I, YOUR FRIENDLY EOUSYSTEM COMPUTER, WILL DETERMINE" 
3 PRINT "THE CORRECT CHANGE FOR ITEMS COSTING UP TO $120," 

4 PRINT\PRINT 

1@ PRINT "COST OF ITEM"s\ INPUT ANPRINT "AMOUNT OF PAYMENT"S\ INPUT P 
20 CBPmA\MBC\IF C<>® THEN 92 \PRINT "CORRECT AMOUNT,THANK YOU" 
32 GO TO 12 

98 IF C>® THEN 120 \PRINT "SORRY,YOU HAVE SHORT CHANGED ME $"pa=P 
108 GO TO 10 

120 PRINT "yOuR CHANGE, $"SC\OBINT(C/{Q)\IF Dag THEN {55 

150 PRINT Ds"TEN DOLLAR BILL(S)" 

155 CamMe(De1Q)\ESINT(C/5)\IF Ead THEN 185 

182 PRINT ES"FIVE DOLLAR BILL¢3)" 

165 Came (DelOeEw5)\FeINT(C)\IF Fed THEN 215 

218 PRINT F)"ONE DOLLAR BILL(S8)" 

215 CaMm (Del OeEe5+F)\CaCe1O0\NaC\GaINT(C/50)\IF Ge@ THEN 255 
250 PRINT Gy NONE@HALF DOLLAR(S)" 

255 CeN@(Ge5B)\HBINT(C/25)\IF Hea THEN 285 

280 PRINT He "QUARTER(S)# 

265 CON@(GeSAeHe25)\ISINT(C/I1G)\IF 18g THEN 315 

318 PRINT Ip"DIME(S)" 

315 CEN@(Ge6O+He 2541 e10)\JaINT(C/5)\IF J8® THEN 345 

348 PRINT JP"NICKEL(CS)" 

345 CON@(GaSO+He25el ui G+ Je5)\KeINT (Ce, 5)\IF KaQ THEN 380 

370 PRINT Kjy"PENNY(S)0 

388 PRINT "THANK YOU,COME AGAIN"\PRINT \PRINT \GO To 10 

999 END 


I. YOUR FRIENCLY EDUSYSTEM COMPUTER. WILL CETERMINE 
THE CORRECT CHANGE FOR ITEMS 


COSTING UP To #100 


COST OF ITEM? 4.59 
AMOUNT OF PAYMENT? 14 
YOUR CHANGE, ¢ 5. 44 

1 FIVE DOLLAR BILL¢s) 
1 GQUARTER(S) 

1 DIME<S) 

4 NICKEL<S) 

a PENNY CS) 

THANK YOU. COME AGAIN 


COST OF ITEM? 4 17 
AMOUNT OF PAYMENT? 5. ae 
YOUR CHANGE. 4. sz 

4 ONE DOLLAR BILL¢s 
1 ONE-HALF DOLLAR¢S 
4d QUARTER(¢S) 

4 NICKEL¢S) 
3 PENNY<¢S) 
THANK YOU, COME AGAIN 


COST OF ITEM? 45 
AMOUNT OF PAYMENT 
YOUR CHANGE. 4.42 

1 ONE DOLLAR BILL ¢S) 
1 DIME<S) 

2 PENNY¢5) 

THANK YOU. COME AGAIN 


a) 


TZ 


CHECKR ___...... 


Description 


This program plays checkers. The pieces of the computer are 
marked with an "X", yours are marked "0". A move is made by 
Specifying the coordinates of the piece to be moved (X,Y). 
Home (1,1) is in the bottom left and X specifies distance to 
the right of home (i.e., column) and Y specifies distance 


above home (i.e., row). You then specify where you wish to 
move to. 


Limitations 
Unfortunately, the computer program is not smart enough to 
recognize (or permit!) a double or triple jump. If you try 


one, it is likely that your piece will disappear altogether. 


Program Author 


Alan J. Segal 
151 Shrubhollow Road 
ROSIN NY 11576 


© 1967 by Creative Publications 


ips 


PROGRAM LISTING 


Ld HIS PROGRAM WILL PLAY CHECKERS- THE COMPUTER IS Xo” 11100 LET RCP)=Q 

200 PRINT“AND. YOU ARE Ge THE COMPUTER WILL GO FIRST»-NOTE! SQUARES” 11200 LETQ=0 
300 PRINT“ARE IN THE FORM-(X»Y) AND SQ» 121 IS THE BOTTOM LEFT!” 11300 RETURN 
400 PRINT’DO NOT ATTEMPT A DOUBLE JUMP OR YOUR PIECE MIGHT JUST “ 11400 IF P#0 THEN 18800 
500 PRINT’DISAPPEAR(SAME FOR A TRIPLE!) 11500 F@R J#10T@-10 STEP -1 
600 PRINT’ WAIT FOR THE COMP. TO MOVE! 1!!!" 11600 FOR F#liTOP 
700 LET Ge-) 11700 IF R¢F)#J THEN 12000 
Svoeter tect” 11900 NEXT J 
900 LET L=-1 
1000 DIM S(10210) 12000 LET K=F+p 
1100 DATA 1209120200 2-1202091200020s"1 200-1015 rekce tune 
faac ra erroe 12300 PRINT’ I MOVE FROM ("xsy")> TO ("UZ U")" 
1400 READ J 12400 LET F#0 
1500 IF J#15 THEN 1800 naoee Lex Has 

2Y)aJd = 
06 Bere a0 12700 IF V<>(€4e5+(3-5*G)) THEN 13000 
1800 RESTORE 12800 LET S(UsV)#2*G 
1900 READ S(X»sY) 12900 GOTB 13100. 
2000 NEXT Y 13000 LET S(UsV)=S¢(XsY) 
2100 NEXT X 13100 LET S¢xX+Y)=0 
2200 REM 13200 IF ABS(X-U)<>2 THEN 13400 
2300LETL#=-1*L 13300 LET S¢(CX*+U)/20¢Y+*V)/2)80 
2400 FOR X=1TO8 13400 PRINT*B@ARD"3 
2500 FOR Y=1TOS 13500 INPUT D$ 
2ao0 IF S(X»Y)=0 THEN 3500 13600 IF D$<>"YES”" THEN13900 
2700 IF G>0 THEN 3000 13700 G@SUB 14100 
2800 IF S(X»Y)>0 THEN 3500 13800 eran nee 
2900 GOTO 3100 13900 GOSUB 15 
3000 IF S(XsY)<0 THEN 3500 14000 RETURN 
3100 IF ABS(S¢(Xs¥Y))<>1 THEN 3300 14100 PRINT 
3200 G®SUB 4300 14200 FGR Y=8TO1 STEP -1 
3300 IF ABS(S(X»Y))<>2 THEN 3500 14300 FOR X=#1TO8 
3400 GGSUB 6500 14400 LET [=2*x 
35001 FX<>8 THEN 3800 14500 IF S(Xs¥)<>0 THEN 14700 
3600IFL=#1 THEN 3800 14600 PRINT TABCI)*% 0% 
3700RETURN 14700 IF S(XsY)<>1 THEN 14900 
3800NEXT Y 14800 PRINT TABC1I)"O"S 
3900NEXT X 14900 IF S(XsY)<>-1 THEN 15100 
4000PRINT 15000 PRINT TABC1)"x"s 
4100G6SUB11400 15100 IF S(XsY)<>-2 THEN 15300 
4200 G6TO 2300 15200 PRINT TABCI)*X"*3TABCI >) #'*5 
4300 FGR A=z-1TO! STEP 2 15300 IF S(XsY)<>2 THEN 15500 
4400 LET UsxX+A 15400 PRINT TABCI)"@"STABCI > #"*3 
4500 LET V#Y+G 15500 NEXT X 
4600 IF U<l THEN 6300 15600 PRINT 
4700 IF U>8 THEN 6300 15700 NEXT Y 
4800 IF V<1 THEN 6300 15800 PRINT 
4900 IF V>8 THEN 6300 15900 PRINT’ FROM" 
5000 IF SCU»V)<>0 THEN 5300 16000 INPUT EsH 
5100 G@SUB 9100 16100 LET X=E 
5200 GSTS 6300 16200 LET YH 
5300 IF S(UsV)=G THEN 6300 16300 IF S(X»¥)<>0 THEN 16700 
5400 IF S(UsV)=2*G THEN 6300 16400 PRINT “THERE IS N@ ONE GCCUPING THAT SPACE” 
5500 LET UsU+A 16500 PRINT 
$600 LET V=V+G 16600 G@TOQ 15900 
$700 IF U<1 THEN 6300 16700 PRINT’TO"3 
5800 IF U>8 THEN 6300 16800 INPUT A>B 
5900 IF V<1 THEN 6300 16900 LET XsA 
6000 IF V>8 ‘THEN 6300 17000 LET Y=B 
6100 IF S(U»V)<>0 THEN 6300 17100 IF S¢X»Y)=0 THEN 17500 
6200 G@SUB 9100 17200 PRINT“THAT SPACE IS ALREADY @CCUPIED" 
6300 NEXT A 17300 PRINT 
6400 RETURN 17400 G@TO 16700 
6500 REM KING M@VES 17500 LET S(A$B)=S(EsH) 
6600 FGR A=-1TO) STEP 2 17600 LET S(A»B)=S(EsH) 
6700 FOR B#-1TO! STEP 2 17700 LET S(EsH)=0 
6800 LET U=x+A 17800 LET T=(4e5-(3+5*G)) 
6900 LET V=Y+B 17900 IF ABS(E-A)<>2 THEN 18100 
7000 IF U<1 THEN 8700 18000 LET S((E*A)/25(H+B)/2)20 
7100 IF U>& THEN 8700 18100 IF B<>T THEN 18300 
7200 IF V<1 THEN 8700 16200 LET S(AsB)=-2%G 
7300 IF V>8 THEN8700 18300 F@R X=8T@s 


7400 IF S(Us»V)<>0 THEN 7700 

7500 G@SUB 9100 

7600 G8TO8 8700 

7700 IF S(UsV)=G THEN 8700 

7800 IF S(U»V)=2*G THEN 8700 

7900 LET U=U+A 

8000 LET V=V+B 

8100 IF U<1 THEN 8700 

8200 IF U>8 THEN 8700 

8300 IF V<1 THEN 8700 

8400 IF V>8 THEN 8700 

6500 IF S(U»V)<>0 THEN 8700 

8600 G@SUB 9100 

8700 NEXT B 

8800 NEXT A 

8900 RETURN 

9000 G8TG 14200 

9100 REM 

9200 LET P=P+1 

9300 IF P#K THEN 12300 

94O00IF V<>(465+(3e5*G)) THEN 9600 
9500 LET Q=Q+2 

9600 IF X<>(465-(3.5*G)) THEN 9800 
YTOOLET Q=Q-2 

9800 REM 

9900 IF U<>1 THEN 10100 

10000 LET Q=Q+1 

10100 IF U<>8 THEN 10300 

10200 LET Q=Q+1 

10300 F@R C=-1T@1 STEP 2 

10400 IF S(U*C.V+G)<1 THEN 10800 
10500 LET Q=Q-1 

10600 IF S(U-C»V-G)<>0 THEN 10800 
10700 LET Q=Q-1 

10800 REM THIS WAS THE EVALUATI@N SECTION 
10900 REM 

11000 NEXT C 


16400 FOR Y=8Tos 

18500 RETURN 

18600 NEXT Y 

18700 NEXT x 

18800 PRINT" VERY GOOD» YOU WIN!” 

18900 PRINT 

19000 PRINT 

19100 PRINT “CHUCK QUT” 
19200 END 
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SAMPLE RUN 


) 


6 


>TO ¢ 6 


7 


I MOVE FROM ¢ 7 


FROM 7555 
TO 2357 
BOARD ?YES 


) 


vy} 


Se oTO) (Ce3 


I MOVE FROM ¢ 4 


FROM 7157 
TO 7258 
BOARD ?YES 


THE COMPUTER IS X> 


THE COMPUTER WILL GO FIRST»-NOTEt SQUARES 
1.1 IS THE BOTTOM LEFT! 


R YOUR PIECE MIGHT JUST 
TO MOVE! !!13 


THIS PROGRAM WILL PLAY CHECKERS. 
WAIT FOR THE COMP. 


AND YOU ARE O- 
DO NOT ATTEMPT A DOUBLE JUMP 0} 


ARE IN THE FORM-(XsY) AND SQ. 
DISAPPEAR(SAME FOR A TRIPLE!) 


eX e« X 


«xX 


) 


5 


1 


6) TO ¢ 


I MOVE FROM ( 2 


BOARD ?YES 


“Oe 
ae =) 
“O° 
a] 
eo e 
a) 
“Oe 
x-O 


“Oe 
e eD 
a 


i =) 


“Oe 
«© OO 
“Oe 
e 2 O 


FROM 7357 
TO 2408 


FROM 72.58 
TO 7456 


) 


MS ek. a 


I MOVE FROM ¢ 


BOARD ?7YES 


d 


©) 


6 DSTO Ces 


I MOVE FROM ¢ 6 


BOARD ?YES 


FROM 7153 
TO 7204 


Ore 


) 


6 


T MTOWC 2S 


I MOVE FROM ¢ 1 


BOARD ?YES 


x 


Oe 
as) 
Oe 
a=) 
°° 
a) 
Oe 
°O 


Oe 
“oO 
Oe 
a) 
Oe 
°O 
Oe 
0 


FROM 27353 
TO 71565 


FROM 7456 
TO 7604 


) 


4 


Serre a 


I MOVE FROM ¢ 3 


BOARD ?YES 


) 


TO (4 6 


7 


I MOVE FROM ¢ 5 


BOARD ?YES 


FROM ?355\5\3 
TO 7454 


Owe 


d 


7 


WTO 2 


8 


I MOVE FROM ¢ 2 


BOARD ?YES 


8) 2 Os) 0) <0 


2RBeOvV. 


FROM 7105 
TO 2357 


THERE IS NO ONE OCCUPING THAT SPACE 


FROM ?7552tu 


522 


) 


3) 


GOPTORG 7 


I MOVE FROM ¢ 6 


BOARD ?YES 


FROM 7553 
TO 2454 


FROM 7254 
TO 21.5 


x 


OCCUPIED 


THAT SPACE IS ALREADY 


) 


7 


I MOVE FROM (6 8) TOC 5 


BOARD ?YES 


TO 7355 


1 PS.) TONGS <4 


I MOVE FROM ¢ 


BOARD ?YES 


AFFFFF2Y2D 0 « « 
(3) corduh 


Oe Qe 


) 


o 

oO 

- 

Oo 

we 

z 

is] 

v 

z= 

oO 
nt 

s w 

Ow oS 

ad Oo 

ao £ 
=e 

i= ~ 
nro 
ae 

{=} Oe 

° oO 
* 

ao Oe 

° a) 

Oo Oe 

e oO 

x O° 

° 0 
x ox 
exe 
ox 
xe 

x °O 

x O° 

ox ex 

xe ee 


BOARD ?YES 


FROM 7452 
TO 2353 


FROM 7753 


) 


6 


7 OV TOR CRG 


I MOVE FROM ¢ 5 


BOARD ?7YES 


TO 784 


) 


5 


6 ») TO ¢ 


I MOVE FROM (¢ 2 


BOARD ?YES 


7 xX 


x 


FROM 7252 
TO 2454 


) 


3 


5: De TO) 'Ce5 


I MOVE FROM ¢ 7 


BOARD ?YES 


2895 


FROM 


THERE IS NO ONE OCCUPING THAT SPACE 


FROM 7854 
TO 7795 


FROM 2355 
TO 7226 


b) 


6) TOG 8 4 


6 


I MOVE FROM ¢ 


BOARD ?YES 


5 


9. IT BACs (3: 


I MOVE FROM ¢ 1 


BOARD ?YES 


FROM 7521 
TO 7402 


fb) 


AT TO € 7 


I MOVE FROM ¢ 8 


BOARD ?YES 


FROM 2454 
TO 2555 


FROM 2424 
TO 7206 


») 


3 


PAPO oO) 


4 


I MOVE FROM ¢ 2 


BOARD ?YES 


d 


5 


6) 7T0¢3 


I MOVE FROM ¢ 4 


BOARD ?YES 


ia) 


FROM 7622 
TO 7804 


YOU WIN! 


VERY GOOD> 


-CHUCK OUT 


FROM 72.56 
TO 2157 


Jie TON Ce. 36) 0) 


1 MOVE FROM ¢ 3 


BOARD ?NO 


C H EM ST DILUTE KRYPTOCYANIC ACID 


Description 


The fictitious chemical, kryptocyanic acid, can only be diluted 
by the ratio of 7 parts water to 3 parts acid. Any other ratio 
causes an unstable compound which soon explodes. Given an 
amount of acid, you must determine how much water to add for 
Gijutaencsn tfe-vou:re-more than™5% off, you lose one of your 
nine lives. The program continues to play until you lose all 
nine lives or until it is interrupted. 


Program Author 


Wayne Teeter 
312 Peg Street 
Ridgecrest,;-CA 93555 


10 PRINT “THE FICTICIOUS CHEMICAL KRYPTOCYANIC ACID CAN ONLY BE" 

28 PRINT "DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACIEe" 

3@ PRINT "IF ANY OTHER RATIO IS ATTEMPTED» THE ACID BECOMES UNSTABLE” 
49 PRINT "AND SOON EXPLODESe GIVEN THE AMOUNT OF ACID» YOU MUST" 

5@ PRINT "DECIDE HOW MUCH KATER TO ADD FOR DILUTION. IF YOU MISS” 

6@ PRINT "YOU FACE THE CONSEQUENCES.” 

106 LET A=INTCRND(1)*5@) 

110 LET W=7*A/3 

120 PRINT A™“LITERS OF KRYPTOCYANIC ACIDe HOW MUCH WATER'S 

130 INPUT R 

140 LET D=ABS(W-R) 

15S@ IF D>W/28 THEN 200 

16@ PRINT "GOOD JOB! YOU MAY BREATHE NOWs BUT DON'T INHALE THE FUMES!" 
178 PRINT 

18@ GO TO 100 

208 PRINT "SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB" 

218 PRINT "OF QUIVERING PROTOPLASM!"™ 

226 LET T=T+1 

230 iF T=9 THEN 260 

248 PRINT “HOWEVERs YOU MAY TRY AGAIN WITH ANOTHER LIFEe"” 

245 PRINT 

250 GO TO 108 

268 PRINT "YOUR 9 LIVES ARE USED» BUT YOU WILL BE LONG REMEMBERED FOR" 
278 PRINT "YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BQOK CHEMISTRY." 
288 END 


RUN 
THE FICTICIOUS CHEMICAL KRYPTOCYANIC ACID CAN ONLY BE 
DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARIS ACID. 
IF ANY OTHER RATIO IS ATTEMPTED» THE ACID BECOMES UNSTABLE 
AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID» YOU MUST 
DECIDE HOt. MUCH WATER TO ADD FOR DILUTIONe IF YOU MISS 
YOU FACE THE CONSEQUENCES.~ 

19 LITERS OF KRYPTOCYANIC ACID. HOW MUCH KATER? 49 
SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB 
OF QUIVERING PROTOPLASM! 
HOWEVER» YOU MAY TRY AGAIN WITH ANOTHER LIFEe 


42 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER? 77 
SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB 
OF QUIVERING PROTOPLASM! 

HOWEVER» YOU MAY TRY AGAIN WITH ANOTHER LIFEe 


28 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER?72 
SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB 
OF QUIVERING PROTOPLASM! 

HOWEVER» YOU MAY TRY AGAIN WITH ANOTHER LIFEe 


42 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER?98 
GOOD JOB! YOU MAY BREATHE NOws BUT DON’T INHALE THE FUMES! 


49 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER?112 
GOOD JOB! YOU MAY BREATHE NOWs BUT DON'T INHALE THE FUMES! 


12 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER?28 
GOOD JOB! YOU MAY BREATHE NOwWs BUT DON'T INHALE THE FUMES! 


30 LITERS OF KRYPTOCYANIC ACID. HOw MUCH WATER?75 
SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB 
OF QUIVERING PROTOPLASM! 

HOWEVER» YOU MAY TRY AGAIN WITH ANOTHER LIFFe 
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CH | EF ARITHMETIC PRACTICE 


Description 


In the words of the program author, John Graham, 


"CHIEF is designed to give people (mostly kids) practice in the 
four Operations (addition, multiplication, subtraction, and 
division). 


It does this while giving people some fun. And then, if the 
people are wrong, it shows them how they should have done it. 


It is mostly a game, but can be used by teachers to test the 
kas." 


Program Author 


John Graham 
Friendly Road 
Upper Brookville, NY 11771 


16 FRINT " I AM CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH Gate * 

26 PRINT “ARE YOU READY TO TAKE THE TEST WO CALLEG ME CLIT Far"; 

36 INFUT AF 

46 IF A¢= "YES" THEN 64 

S@ PRINT "SHUT UP FALEFACE WITH WISE TQLINGE. " 

66 PRINT “ TAKE A NUMBER AND ADD = CIVIDE THIS NUMBER Eh! 5 ANE 

P@ PRINT "MULTIPLY BY & CIVICE EY S AND ACC THE SAME. SUBTRACT 4. " 
66 PRINT “WHAT DO YOu HAVE"; 


85 PRINT 

96 INFUT E 

106 LET C = (B+1-5)*5/64#5-% 

118 PRINT "I BET YOUR NUMBER WAS " ©" WAS I RIGHT"; 1 AM CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH GOL. 
126 INPUT DF ARE YOU READY TO TAKE THE TEST YOU CALLED ME GUT FOR? NO 
130 IF D¢="YES" THEN 514 SHUT UP PRLEFACE WITH WISE TOUNGE 

146 PRINT "WHAT WAS YOUR GRIGINAL NUMBER"; TAKE A NUMBER AND ADD X. DIVIDE THIS NUMBER EY 5S AND 
156 INPUT K MULTIPLY BY 8. DIVIDE BY 5S AND ADD THE SAME. SUBTRACT 14. 
455 LET F=K+z WHAT DO YOU HAVE 

166 LET G=F/5 3538 

176 LET H=G*& 1 BET YOUR NUMBER WAS -%.625 WAS I RIGHT? NO 

186 LET I1=H/S+5 WHAT WAS YOUR GRIGINAL NUMBER? 12 

196 LET J=1-4 SO YOU THINK YQU’RE SG SMART, EH? 

260 PRINT "SG YOU THINK YOURE SO SMART, EH?" NOW WATCH.... 

210 PRINT "NOW WATCH..." 42 PLUS 3 EQUALS 415 . THIS DIVIDED BY 5 EQUALS = , 

236 PRINT K"PLUS X EQUALS "F". THIS CIVICED BY S&S EQGUALS"G", " THIS TIMES 8 EQUALS 24 . IF WE DIVIDE BY 5 AND ADD THE SAME, 
246 PRINT "THIS TIMES & EGUALS"H". IF WE DIVIDE EY S ANC ADC THE SAME, " WE GET 9.8 . MINUS 4 EQUALS &.& 

256 PRINT “WE GET"I". MINUS 4 EQUALS "J". * NOW DO YOU BELIEVE ME? NO 

268 PRINT "NOW DO YOU BELIEVE ME"; YOU HAVE MADE ME MAD!!! 

278 INPUT 2¢ THERE MUST NOW BE A GREAT LIGHTNING BOLT! 


290 IF Z2$ ="VES" THEN 516 
295 PRINT "YOU HAVE MADE ME MACH! )* 


306 PRINT “THERE MUST NOW GE A GREAT LIGHTNING BOLT!" x x 
310 PRINTSFRINT x x 
336 FOR X=36 TO 22 STEP -4 xx 
348 PRINT TABCX) "X xX" wx 
35@ NEXT X x x 
360 PRINT TAB(Z1)"X XXX" KX 
376 PRINT TAB(26) "X x” x x 
380 PRINT TAB(19) "XX x" xX 
390 FOR Y=2@ TO 1% STEF -1 x x 
400 PRINT TABCY) "x xX" X XXX 
410 NEXT ¥ Me 
426 PRINT TABC12) "xx" ce 
430 PRINT TABC44) "x" x x 
440 PRINT TABC1G) "*" xX 
45G PRINT\FRINT “###HHRHRHEREEEEREEE REESE EESE EERE REE NER INT x x 
476 PRINT "I HOFE YOU BELIEVE ME NOW, FOR YOUR SAKE!!" 2S 
488 GOTO 520 a 
510 PRINT “BYE! !!11" OS 
526 END Ca 
OMS 

READY XX 

x 


HHHHHHRERERERER EERE REET EEE EEE EE 
1 HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE! ! 


READY 


ae, 


CHOMP oo cu. 


Description 


This program is an adaptation of a mathematical game originally 
presented in Scientific American, Jan., 1973. Up to a 9x9 grid 
is set up by you with the upper left square a poison square. 
This grid is the cookie. Players alternately chomp away at the 
cookie from the lower right. To take a chomp, input a row and 
column number of one of the squares remaining on the cookie. 
All of the squares below and to the right of that square, in- 
cluding that square, disappear. 


Any number of people can play -- the computer is only the 
moderator; it is not a player. Two-person strategies are in- 
teresting to work out but strategies when three or more people 
are playing are a real challenge. 


Source 
Peter Sessions 


People's Computer Company 
Menlo Park, CA 94025 


a ae Oe) ee ae bet ee Gn EU 


108 
1065 
118 
126 
138 
148 
156 
164 
178 
166 
196 
206 
216 
226 
236 
248 
256 
266 
278 
286 
290 
368 
318 
328 
3308 
346 
356 
366 
378 
372 
375 
37? 
org. 
388 
396 
468 
416 
428 
436 
446 
4568 
468 
476 
489 
496 
5o6 
516 
S36 
546 
558 
56a 
576 
S84 
5968 
666 
616 
626 
638 
648 
658 
668 
678 
686 
696 
rea 
716 
?26 
card: 
746 
756 
768 
ana) 
?86 
796 
$66 
518 
826 
836 
848 
8568 
568 
878 
S8oa 
596 
908 
916 
926 
938 
946 
958 
968 
976 
986 
996 
1666 
1616 
1626 
1036 
1946 
1658 
1668 


READ 


REM eeTHE GAME OF CHOMP aa 

i BY PECGPLES COMPUTER CENTER a&:#: 

PRINT "THIS 1S THE GAME OF CHOIME CSCIENTIFIC AMERICAN, JAN 1972)" 
PRINT "WANT THE RULES ¢4=S'ES, G=NCI!)"; 

INPUT R 

IF R=6 THEN 346 


PRINT "CHOMP IS FOR 1 OR MORE PLAYERS CHUMANS CINLS'>. ™ 


PRINT "HERE’S HOW A BOARD LOOKS (THIS CINE TS 7s) Bay 7m 
GOSUB 540 


PRINT "THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS" 
PRINT “WIDE. WOU INPUT R ANC G AT THE START. IN THE UPPER LEFT" 
PRINT “CORNER OF THE COOKIE IS ft POISON SGURIRE (PF). THE ONE WHO" 
PRINT “CHOMPS THE POISON SOUARE LOSES. To TAKE A CHOMP, TYRE THE" 
PRINT “ROW AND COLUMN OF ONE OF THE SOLIFRES ON THE COOKIE. " 

PRINT “ALL GF THE SQUARES BELOW AND To THE RIGHT OF THAT SQUARE" 
PRINT "(INCLUDING THAT SQUARE, TOO) DISAFPERR —— CHOMP! ! 

PRINT “NO FAIR CHOMPING SOUIARES THAT HAVE ALREACY BEEN CHOMFED, " 


PRINT "OR THAT ARE QUTSIDE THE ORIGINAL CIMENSIONS OF THE COOKIE. " 


PRINT 

PRINT “HERE WE GO..." 
DIM AC16, 16) 

F=G 

FOR I=4 To 14 


FOR J=4 TO 14 

ACT, J9=0 

NEXT J 

NEXT I 

PRINT 

PRINT "HOW MANY PLAYERS"; 
INPUT F 

11=6 

PRINT “HOW MANY ROWS"; 
INPUT R 

IF R <= 9 THEN 474 

PRINT "TOO MANY ROWS (9 1S MAXIMUM). NOM, "5 
GOTO 426 

PRINT “HOW MAN COLUMNS”; 
INPUT C 

IF C <= 9 THEN 53a 

PRINT "TOO MANY COLUMNS (% 1S MAXIMUM. NOM, "3 
GOTO 476 

PRINT 

FOR I=1 TO R 

FOR J=41 TO C 

ACT, S324 

NEXT J 

NEXT I 

ACd, 192-4 

REM PRINT THE BOARD 
PRINT 

PRINT TABC7);"14 234567 & 9" 
FOR I=1 TO R 

PRINT I; TABK? 9; 

FOR J=41 TO 

IF ACI, J2=-41 THEN 780 

IF ACI, J2=@ THEN 72 
PRINT "* "; 

GOTO 746 

PRINT "Po"; 

NEXT J 

PRINT 

NEXT 1 

PRINT 

IF F=G THEN 774 

RETURN 

REM GET CHOMPS FOR EACH PLAYER IN TURN 


LET I4=]4+1 
LET PL=TL—-INTCI4CP)*F 
IF P41 <> @ THEN S2@ 
P1=P 
PRINT "PLAYER "Ft 
PRINT "COORDINATES OF CHOMP CROW, COLUMN)"; 
INPUT R41, C4 
IF R1i¢1 THEN 926 
IF R1i>R THEN 926 
IF C1¢4 THEN 924 
IF C1>C THEN 926 
IF ACR1,C1)=@ THEN 924 
IF ACR1,C1)=-1 THEN 1016 
GOTO 946 
PRINT "NO FAIR. YOURE TRYING TO CHOMF ON EMPTY SPACE!" 
GOTO S26 
FOR I=Rk4 TOR 
FOR J=C1 TO C 
ACI, Jo=6 
NEXT J 
NEXT I 
GOTO 618 
REM END OF GAME DETECTED IN LINE aa 
PRINT “OU LOSE, PLAYER "7 F4 
PRINT 
PRINT "AGAIN (1=ES; B=NO!)"; 
INPUT RF 
IF R=1 THEN 244 
END 


Nf 


the] 


SAMPLE RUN 

THIS 1S THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN 197%) 
WANT THE RULES ¢(1=ES, G@=NO!)7 4 

CHOMP IS FOR 1 OR MORE PLAYERS (HUMANS CONLY'> 

HERE’S HON A BOARD LOOKS <THIS ONE IS 5 BY 7): 


6g 


*¥ eX UVUP 
Hee EF EH 
ate es er ceed 
SEEKER 
elent tr ae eee oN 
ee ee ey ay 


GAkwnor 


THE BOARD 1S A BIG COOKIE - R ROWS HIGH AND C COLUMNS 
WIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT 
CORNER OF THE COOKIE IS A POISON SGUARE (PF). THE CINE WHO 
CHOMPS THE FOISON S@UARE LOSES. TO TAKE A CHOMP, TYRE THE 
RON AND COLUMN OF ONE OF THE SGUARES ON THE COOKIE 

ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SOUARE 
SINCLUDING THAT SQUARE, TOO) CISAPPEAR -- CHOMF!! 

NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPEC:, 
OR THAT ARE GUTSIDE THE ORIGINAL CIMENSIONS OF THE COOKIE 


HERE WE GO... 
HOW MANY PLAYERS? 2 


HON MANY ROWS? 4 
HOW MANY COLUMNS? ? 


Ue EC SMa ane Wl Rep he 

oh Poe ok OK OF OK 

2 OK OK Ok Ok Ok oF 

z * OK OK OK ok ok 

4 KOR OR OO OR of 

PLAYER 4 

COORDINATES OF CHOMF CROW, COLUMN)? 4,6 
Bo aS x BAe SS fale i 

4 Pook oe OK OF OK OF 

2 ook Ok Ok OK Ok Ok 

xe ae OR OR Ok Ok Ok ok 

4 oe Ro Ok ook 

PLAYER 2 

COORDINATES OF CHOMP CRON, COLUMN)? 3, = 
Be Soa ae tite dee 

a Poe oe OF OF OK OF 

2 OR OK Ok Ok OR oF 

xe * Oe 

4 * OK 

REAVER 32 


COORDINATES OF CHOMP CROW, COLUMN)? 41,4 


452 34a omer SS 
4 Pook > 
x * OK 
4 oO 
REAVER” 2 


COORDINATES OF CHOMP (ROW, COLUMND? 2.4 


LIZ S459 Gri Sed 
a Pk 
2 OK OF 
3 
4 
PUAVER. 1 


COORDINATES OF CHOMP CROW, COLUMN)? 2, = 


‘oO 


S¢35 678 
ek 


fwnPr 


PLAYER 2 
COORDINATES OF CHOMP CROW, COLUMN)? 4,2 


s4 Se 6 So 


WHR 


PLAYER 4 
COORDINATES OF CHOMP CROW, COLUMND? & 


he 
fh 


2345 6 ¢ 893 
* 


Swnr 


PLAYER 2 
COORDINATES OF CHOMP (ROW, COLUMN)? 4, 


fh 


aS 4566 1% So 


WME 
%¥ UP 


PERYER 2 
COORDINATES OF CHOMP (ROW, COLUMN)? 2.4 


i 2 3 455 6 7 Sy9 
P 


ABWHPR 


PLAYER 2 

COORDINATES OF CHOMF CROW, COLUMN)? 3,4 

NO FAIR. YOURE TRYING TO CHOMP ON EMPTY SPACE! 
PLAYER 2 

COORDINATES OF CHOMP CROW, COLUMN)? 4,4 

YOU LOSE, PLAYER 2 


CEVEDW ecu 


Description 


This simulation is based on 14 battles in the Civil War. Facts 
and figures used are based on the actual occurrence. If you 
follow the same strategy used in the actual battle, the results 
will be the same--generally, this is a good strategy since the 
generals in the Civil War were fairly good military strategists. 
However, you can frequently outperform the Civil War generals, 
particularly in cases where they did not have good enemy in- 
telligence and consequently followed a poor course of action. 
Naturally, it helps to know your Civil War history, although 

the computer gives you the rudiments. 


After each of the 14 battles, your casualties are compared to 
the actual casualties of the battle, and you are told whether 
you win or lose the battle. 


Program Author 
CIVIL WAR was written in 1968 by three students: 
i. Cram, lw. .Goodie,—D. Hibbard 


Lexington High School 
Lexington, MA 02173 


PROGRAM LISTING 


LET Le@sLET WeOsLET RieOsLET Pied 
LET QyegsLET M3egtLET Maag 
LEy P2sOsLEy yiearLey 7o8a 
REMARKABLE pRoGRAM BY L, CRAM , L, GOODIE , AND D, 
PRINT "Do YOU WANT DESCRIPTIONS (O8YES, 18®NO)"3 
INPUT Z 
FOR Usi TO 6 
PRINT 
NEXT U 
IF Z®1 THEN 120 
PRINT "THIS ITS A CrVIL WAR SIMULATION," 
PRINT "TO PLAY, TYPE A RESPONSE WHEN THE COMPUTER ASKS," 
PRINT "REMEMBER THAT ALL FACTORS aRE INTERRELATED AND THaT YOUR" 
PRINT "RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE" 
PRINT "BASED ON THE ACTUAL OCCURENCE, MOST BATTLES TEND TO RESULT" 
PRINT "AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ON YOU,y" 
PRINT 
PRINT 
PRINT 
55 prRINT "Your CHOICES FoR DEFENSIVE sTRATEGY ARE" 
66 PRINT " (1) ARTILLERY ATTACK" 
65 PRINT " (2) FORTIFICATION AGAINST FRONTAL ATTACK" 
7@ PRINT " (3) FORTIFICATION AGAYNST FLANKING MANUEVERS" 
75 PRINT " (4) FALLING BACK" 
88 PRINT "YOUR CHOICES FOR OFFENSIVE STRATEGY AREER" 
85 PRINT " C1) ARTILLERY aTTack" 
9@ PRINT " (2) FRONTAL ATTACK" 
95 PRINT " (3) FLANKING MANUEVERS" 
96 PRINT " (4) ENCIRCLEMENT" 
97 PRINT uYOU MAY SURRENDER BY TYPING A 151 
98 PRINT 
99 PRINT 
READ 
101 LET 
102 LET 
LET 
LET 
105 LET 


HIBBARD 


Ke ONOAUn = 


were ne 
Auee 


awn 
aes 


ab 
ae 


"THE OBJECT OF THE GAME Ig 7O wIN AS MANY BATTLES AS POSSIBLE" 


aaa 
no 


FOR YOUR STRATEGY," 


"yOu ARE THE CONFEDERACY, 
M1,M2,C1,C2,M,A,U 
Tiei@+(Lew)w2 

1210+ (WL) #2 

DISLABHINTCCM1#(100=71)/2098)e(14+(R1-Q1)/(R141))+0.5) 
D2alGAeINT(M2e(1ADR12)/200%4+0,5) 

Fis5eh1/6 

LET AysZ 

187 FOR Usj TO 4 

PRINT 

NEXT U 

PRINT "THIS IS THE BATTLE QF "3 

115 GosUuB 80a 

PRINT " ","CONFEDERACY"," UNION" 

PRINT "MEN," "BINT(MLw(L#(PL=TII/SCMS4+1))I—-" "BE 

131 PRINT INT(M2#(14(P2=T2)/(M44+1))) 

PRINT "MONEY", "S"jO1,"$"5D2 

PRINT "INFLATION"," "STy+q5puan,” 

PRINT 

PRINT "HOw MUCH 

18@ INPUT F 

IF F<@ THEN 750 

19@ prRINT "How MUCH 
INPUT S 

IF 8<® THEN 752 

PRINT "HOw MUCH 
INPUT B 

221 IF B<@ THEN 754 

222 PRINT 

IF F+#S+B<2#0$ THEN 230 
PRINT "THINK AGAIN] 
GOTO 160 

LET O8((2#FA2+S8A2)/FL A241) 

IF O<1@ THEN 260 

PRINT "MORALE IS HIGH" 

GOTO 300 

IF O<5 THEN 29% 

PRINT "MORALE IS FAIR" 

GoTo 3aa 

PRINT "MORALE 1S POOR" 

IF M<>3 THEN 330 

PRINT "YOU ~RE ON THE OFFENSIVE" 

GOTO 379 

IF M<>qy THEN 362 

PRINT "yOu ARE ON THE DEFENSIVE" 

GOTO 370 

PRINT "BoTH SIDES 4RE ON THE OFFENSIVE" 

PRINT 

PRINT "YOUR STEGY"3 

INPUT Y 

391 IF Ys5 THEN 1487 


GOOD Luck" 


"sTopuge 


DO yOy wIsH 7O sPEND FOR FOOD"? 


On YoU WISH To SPEND FoR SALARIES"S 


DO yOy wISH 70 SPEND FOR AMMYNITION'NG 


YOU HAVE ONLY &" DS 


392 IF ABS(y=#3)<3 THEN 395 

393 PRINT "yOy JERK] Usgl THE OTHER gET OF sTRATEGIESII" 
394 GOTO 372 

395 PRINT 

400 PRINT " ","CONFEDERACY","UNTON" 

418 LET COB(2eC1/5) e(141/(2e (ABSCINT(4#RND(1)41)-¥)4+1))) 
412 LET COPINT(CSe(1+1/0)¥(1,28+F1/(B+1) 49,5) 

414 IF CO+LAB/O<Mi*(L+(P1=T1)/ (M341) ) THEN 424 

416 LET COmINTC1LSHMI/20u (14+ (PL=TII/(MS41))) 

418 LET Es7*C5/13 

428 LET Usl 

422 GOTO 426 

424 LEy —8100/0 

426 prRInT "CASUALTIES", C5S,INT(17#C2#C1/(C5¥20) 44,5) 

430 PRINT "DESERTIONS"/INTCE) eInT(5#0) 

432 PRINT 


IF C5=Ci>=8 THEN 439 ; 
435 PRINT "YOUR CASUALTIES WERENINT(4@@#(Cy-C5)/C4+065)4"% LESS THAN" 


439 PaING wYOUR CASUALTIES WERE" INT (100#(C5=C1)/C149,5)9"% MORE THAN" 
441 PRINT "THE ACTUAL CASUALITIES AT "3 

443 LET Atal 

445 Go sUuBBauA 

450 IF UFi THEN 470 


IF CS+E<17#C2*C1/(C5#20)4+540 THEN 490 
PRINT "YOU LOSE "3 

LET Latkes 

GOTO 555 

PRINT "YOU WIN "5 

494 LET WewWey 

GOSUB 8A” 

IF w28 THEN 1498 

LET T18T14C5+E 

LET T2eT2+17*#C2eC1/(C5#20) +540 
LeT PisPi+Ci 

610 LET P2are+ce 

LET Q1mQ14+(F4+S+B8) 

LET RiakRi+Mi«#(100911)/20 
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635 LETM3aM3+M1 

637 LET M4=sMa+Mo 

650 IF Ati4 THEN 15990 

668 GOTO 19¢ 

678 DATA 18000,18500,1967,2708,1,1,0 

672 DATA 40000,44894,10699,13047,3,2,0 
674 DATA 95900,115900,20614,15849,3,3,0 
676 DATA 54900,63090,10000,14400,2,4,0 
678 DATA 40000,50000,10000,12000,3,5,0 
680 DATA 75000,120000,5377,12653,1,6,0 
682 DATA 3g208,45000,11090,12990,1,7,0 
684 DATA 3$2400,90000,13000,17197,2,8,0 
686 DATA 50009,70000,12900,19090,1,9,0 
688 DATA 72580, 85900, 20000,23900,3,19,9 
699 DATA 6600016000011 8800716000+21199 
692 DATA 37090,60090,6700,5800,2,12,0 
694 DATA 62002,110900,17723,18000,2,13,2 
696 DATA 652000,190000,8590,3700,1,14,0 
756 PRINT "GO TO JAIL," 

752 PRINT "GO DIRECTLY TO JAIL," 

754 PRINT "DO NOT PASS GO." 

756 PRINT "DO NOT COLLECT S209" 

758 GOTO 147 
820 IF A<>4 
810 PRINT "BULL RUN" 

820 IF Al=i THEN 1480 

BSOPRINT" JULY 21,1861 GEN, BEAUREGARD COMMANDING THE SOUTH MET THE" 
832PRINT"UNION FORCES WITH GEN MCDOWELL IN A PREMATURE BATTLE AT BULL" 
B34PRINT"RUN. GEN» JACKSON HELPED PUSH BACK THE UNION ATTACK," 

842 GO TO 1480 

858 IF A<>2 THEN 980 

868 PRINT "SHILOH" 

870 IF Ay#®y THEN 14489 

B8OPRINT"APRIL 6=7,1862 THE CONFEDERATE suRPRISE ATTACK AT SHILOH" 
BB2PRINT"FAILED DUE TO POOR ORGANIZATION," 

898 Go To 1486 

900 If A<>3 THEN 95” 

910 PRINT "SEVEN pAys" 

920 IF al™1 THEN 1480 

Q3OPRINT"JUNE 25=JULY 1,1862 GENERAL LEE (CSA) UPHELD THE OFFENSIVE" 
QS2PRINT"THROUGHOUT THE BATTLE AND FORCED GEN. MCCLELLAN AND THE UNION" 
934PRINT"FORCES AWAY FROM RICHMOND," 

949 GO TO 4489 

950 IF A<>q4 THEN 1000 

968 PRINT "THE SECOND BULL RUN" 

970 IF A1®{ THEN 14828 

OBAPRINT"AUG 29-30,1862 THE COMBINED CONFEDERATE FORCES UNDER LEE AND" 
9B2PRINT" JACKSON DROVE THE UNION FORCES BACK INTO WASHINGTON." 

998 GO TO 1488 

1000 IF A<>5S THEN 1050 

1010 PRINT "ANTIETAM" 

1920 IF Aya, THEN 148% 

1B3QBPRINT"SEPYT 17,1862 THE sOuTH FAILED 79 INCORPORATE MARYLAND INTO" 
1A32PRINT"THE CONFEDERACY," 

104@ Go To 1488 

1050 IF 4<>6 THEN 1184 

1060 PRINT "FREDERICKSBURG" 

1870 IF A1#1 THEN 1488 

1OBSPRINT"DEC 13,1862 THE CONFEDERACY UNDER LEE SUCESSFULLY REPULSED" 
1@g2PRINT"AN ATTACK BY THE UNION UNDER GEN, BURNSIDE," 

1890 GOTO 34484 

1190 IF A <>7 THEN 41529 
{1419 PRINT "MURFREESBORO" 
1120 IF Aleit THEN 1480 
L1ZSOPRINT"DEC 31,1862 
1142 GoTo 1480 

1150 IF A<>8 THEN 1200 
1160 PRINT "CHANCELLORSVILLE" 

1170 IF Aleit THEN 14892 

LIBS@PRINT"MaY 16,1863 THE SOUTH Had A COSTLY VICTORY aND LOST ONE" 
Lig2PRINT"OF THEIR OUTSTANDING GENFRALS, 'STONEWALL! JACKSON," 

1198 GOTO 4480 

1202 IF A<>9 THEN 1250 

12108 PRINT "VICKSBURG" 

1220 IF Aisi THEN 1480 

L23OPRINT"JULY 4,1863 VICKSBURG WAS 4 COSTLY DEFEAT FoR THE SOUTH" 
1232PRINT"BECAUSE IT GAVE THE UNIGN ACCESS To THE mISSISSIPPI," 

1240 GoTo 1482 

1250 IF A<>1@ THEN 1300 

1260 PRINT "GETTYSBURG" 

1270 IF ais®i THEN 1480 

128OPRINT" JUNE 38,1863 A SOUTHERN MISTAKE BY GEN, LEE AT GETTYSRURG" 
12g2PRINT"COST THEM ONE OF THE MOST CRUCIAL BATTLES OF THR #AR," 

1292 GOTO 4480 

43090 IF A<>44 THEN 4359 

1310 PRIN] "CHICKAMAUGA" 

1320 IF Aleit THEN 148e 

133BPRINT"NOVY 25,1863 AFTER THE SQUTH HAD SIEGED GEN, 
{332PRINT"ARMY FOR THREE MONTHS, GEN.e 
1340 GOTO 1480 

1352 IF A<>12 THEN 1400 

136@ PRINT "CHATTANOOGA" 

1370 IF Aleit THEN 1489 

{3BQPRINT"SEPT 4571863 CONFUSION IN A FOREST NEAR CHICKAMAUGA LED" 
1382PRINT"TO A COSTLY SOUTHERN VICTORY," 

1399 GOTO 1480 

1400 IF A<>13 THEN 14598 

1410 PRINT "SPOTSYLVANIA" 

1420 IF Al#i THEN 1488 
L43Q0PRINT"MAY 5,1864 
L432PRINT" HERE, 
1440 GOTO 148@ 
145@ PRINT "ATLANTA" 

1460 IF Alsi THEN 148” 

{47QPRINT"AUGUST, 14864 SHERMAN AND THREE VETERAN ARMTES CONVERGED ON" 
{472PRINT"ATLANTA AND DEALT THE NEATH RLOW TO THE CONFEDERACY," 


THEN 85a 


THE SQUTH UNDER GEN, BRAGG Won A CLOSE BATTLE" 


ROSFNCRANS!" 
GRANT BROKE THE SJEGE," 


GRANT'S PLAN TO KEEP LEE SOLATED REGAN To FArL" 
AND CONTINUED AT COLD HARBOR AND PETERSBURG," 


1480 PRINT 

1485 RETURN 

1487 PRINT "THE CONFEDERACY HAg SURRENDERED" 
1488 GoTo 1500 

1490 PRINT "THE UNION HAS SURRENDERED" 

1500 PRINT 

1510 PRINT "YOU HAVE WON" Wy "BATTLES AND LOST" Ly "BATTLES." 
1515 IF Ys5 THEN 1558 

1522 IF W<el THEN 1556 

1532 PRINT "THE CONFEDERACY HAS WON THE WAR" 
1549 STOP 

1550 PRINT "7HE UNION HAg WON THE wARt 

1560 END 


THIS IS THE BATTLE OF CHICKAMALIGA 


cE cali ie BS eg NOY 25,1862 AFTER THE SOUTH HAD SIEGEO GEN. ROSENCRANS” 
ARMY FOR THREE MONTHS, GEN. GRANT BROKE THE SIEGE 
SAMPLE RUN CONFEDERACY UNION 
NEN 65254 44 
MONEY $ 27H6HH $ 2594004 
Baa 202 
THIS I5 A CIVIL WAR SIMULATION rea INFLATION crge 4 
"LAS YPE AR INSE WHEN THE COMPLI Se siteeae = eae e 
eicks ee Oe eaeege ARE INTERRELATEC AND THAT YOUR HOW MUCH DO YOU WISH 19 SPEND FOR FOOD? Baan 
RESPONSES COuULC CHANGE HISTORY. FACTS ANC FIGURES WEG ARE HOW MUCH BO YOU WISH TO SPEND FOR SALARIES? 2 
BASED ON THE ACTUAL OCCURENCE. mMosT BATTLES TENG TO RESULT HOW MUCH BO YOU WISH TO SPEND FOR AMMUNITION? 
aS THEY DID IN THE CIVIL WAR. BLT IT ALL CEPENCS ON WoL! ! 
AS THEY DIO IN THE CIYIL i ieaiehielercn ; 
THE OBJECT OF THE GAME IS To WIN AS MANY BATTLES AS POSSIBLE BOTH SIDES ARE ON THE OFFENSIVE 
SOUR CHOICES FOR DEFENSIVE STRATEGY ARE: YOUR STEGY? 41 
(4) ARTILLERY ATTA i ef : 
‘ FORTIFICATION AGAINST FRONTAL ATTACK P cit: ae PONFEBERREX we 
FORTIFICATION AGAINST FLANKING MANLIEVERS CASUALTIES 13172 7 


t 


DESERTIONS 13 


(4) FRLLING BROCK 

YOUR CHOICES FOR OFFENSIVE 

{412 ARTILLERY ATTA 

> FRONTAL ATTACK 

€3> FLANKING MANUEVERS ; , 

¢4) ENCIRCLEMENT “OU LOSE CHICKAMAUGA 
YOU MAY SURRENDER BY TYPING A “S° FOR YOUR STRATEGY 


STRATEGY ARE: 2 y 
YOUR CASUALTIES WERE 1 % MORE THAN 
THE ACTURL CASUALITIES AT CHICKAMAUGA 


a 


YOU ARE THE CONFEDERACY GOOD LUCK! 
THIS I5 THE BATTLE OF CHATTANOOGA 
SEPT 15.1863 CONFUSION IN A FOREST NEAR CHICKAMALIGA LEC 
THIS IS THE BATTLE OF BULL RUN TO A COSTLY SOUTHERN VICTORY 
JULY 24,1864 GEN. EBEAUREGARC COMMANDING THE SCIITH MET THE 
UNION FORCES WITH GEN MCDOWELL IN A PREMATURE BATTLE AT ELL! CONFEDERACY 
RUN. GEN. JACKSON HELPED PUSH BRICK THE UNION ATTACK. HEN BEBE 
MONEY : 


CONFECERAC UN TON INFLATION 
MEN oh 4 
MONEY + 4 HOW MUCH CO YOU WISH TO SPEND Fooo? 4 
INFLATION . HOW MUCH OO YOU WISH TO END LARIES 


HOW MUCH DO YOU WISH TO SPENG FOR AMMUNITI 

q FOR FOOD? 41 
ENC FOR SALARIES 
FOR AMMUNITION? 


HOW MUCH OO YOU WISH TO 
HOW MUCH DO YOU WISH TO 
HOW MUCH DO YOU WISR TO 


MORALE IS FRIR 
BOTH SIDES ARE ON THE OFFENSIY 


MORALE IS POOR YOUR STEGY? 4 
YOU ARE ON THE DEFENSI\ 

CONFEDERACY LN TON 
YOUR STEGY? 4 CHSUALTIES 6767 4854 


DESERTIONS 16 x: 


i 


ONFECERALY UN TON 
3 


CASURLTIES 3 1 i “OUR CASUALTIES WERE 1 % MORE THAN 
GESERTIONS & THE ACTUAL CASURLITIES AT CHATTANOOGA 
SOUR CASURLTIES WERE = MORE THAN WOU LOSE CHATTANOOGA 


THE ACTUAL CASURLITIES AT BULL RUIN 


WOU LOSE BULL RLIN 
THIS 15 THE BATTLE OF SPOTSYLVANIA 


MAY 5.4364 GRANT’ S PLAN TO KEEP LEE IS0LATEG BEGAN TO FRAIL 
HERE. AND CONTINUED AT COLO HAREOR AND PETERSBURG 


S$ 1S THE BATTLE OF SHILOH 
APRIL 6-7, 1862 THE CONFECERATE SURPRISE ATTACK AT SHILOM CONFEDERACY UNION 
FAILED CUE TO POOR ORGANIZATION MEN A 
MONEY $ $5 
CONFEDERACS! LINTON (NFLATION -2 
MEN 4 
MONEY #4 HOW MUCH CO YOU WISH TO SPEND FOR FonD? 


INFLATION HOW MUCH BO YOU WISH To SPEND FOR SALAR I 


HOW MUCH BO YOU WISH TO SPEND FOR AMMUNITION? 


184800 
HOW MUCH CO YOL 

HOW NUCH OO OL 
HOW MUCH DO You 


MORALE IS FAIR 
BOTH SIDES ARE ON THE OFFENSIVE 


MORALE IS POOR YOUR STEGH? 4 
WOU ARE ON THE OFFENSIVE 

se eee UN DON 
VIBES SURESH ce CASUALTIES 12265 


DESERTIONS 


= 


[og 


CONFEDERACY UN TON 
SUALTIES lata? 11748 


YOUR CASUALTIES 


St MS = WERE 24 % MORE THAN 
SERTIONS 2s ati THE ACTUAL CASUALITIES AT SPOTSYLYANIA 

SOUR CASUALTIES WERE & % LES TAN VOU LOSE SPOTSYLVANIA 

THE ACTUAL CASUALITIES AT SHILOH 

SOU WIN SHILOH 
THIS IS THE BATTLE OF ATLANTA 
AUGUST, 1a864 SHERMAN ANC THREE YETERAN ARMIES CONVERGED ON 
ATLANTA ANC DEA YER sk oT on VER ACY 

MHIS 1S: THE GRTTL EMR eee tiene LANTA AND CEALT TRE CEATH SLOW To THE CONFEDERACY 

36 


JUNE 25-JULY { 2 GENERAL LEE (CSA) URHELO THE OFFENSIVE 
THROUGHOUT THE GSTTLE ANC FORCED GEN Moc 
FORCES AWAY FROM RICHMOND 


CONFECERACY 
64195 


ELLAN AND THE LINICIN HEN 


MONEY 3 247000 
CONFEDERACY UNION EARL AST, 3302 
ee P é =: aa HOW MUCH DO YOU WISH TO SPEND FOR Foip> a 
INFLATION on) HOW MUCH DO YOU WISH TO SPEND FOR SALARI ra 


HOW MUCH BO YOU WISH TO SPEND FOR AMMUNITION 


HOW MUCH DO YoU FOR 
HOW MUCH bo YOU FOR HORALE Ee 
HOW MUCH DO YOU WISH FOR VOU ARE GN THE DEFENSIVE 
MORALE 15 POOR YOUR STEGY? 2 
YOU ARE ON THE OFFENSIVE 
CONFEDERACY UNION 
Snrteee eee CASUALTIES 8855 28419 
DESERTIONS 16 za 


CONFEDERACY UN TON 
CASUALTIES 44 : é 
CESERTIONS 3 


YOUR CASUALTIES WERE 4 % MORE THAN 
(HE ACTUAL CASUALITIES AT ATLANTA 


SOUR CASUALTIES WERE 
THE ACTUAL CASUALITIES 


! MORE THRIN YOU LOSE ATLANTA 
AT SEVEN CAMS 


YOU LOSE SEVEN DAYS WOU HAVE WON % BATTLES ANC LosT 14 eA 5 
: G2 THE UNION HAS WON THE WAR ea 


CRAPS 


Description 


GAME OF CRAPS (DICE) 


One of the more popular computer games, six versions of CRAPS 
were submitted (although three appear to be virtually the same 
program). The version published here is based on standard 
Nevada craps table rules. That is: 


EaAgeiior Wl ontthelfirst roll wins 

Awe ee, S| OY a2 Onwtne. first wok Joses 

3. Any other number rolled becomes your "point." You 
Continue to rollwar you-get.your point, you win. 
If you roll a 7, you lose and the dice change hands 
when this happens. 


Your stake is set in Statement 210; this could be changed to 
an input statement if desired. 


Source 


An interesting version of CRAPS was submitted by Philip Bieluch 
of Trinity College which uses a file to keep track of prior 
winnings and/or losses. A short but complete version was sub- 
mitted by George Gidzinski of Adlai Stevenson High School, 
Prairie View, Illinois. 


The published version has been circulating around DIGITAL and 
its users for years. The original author is unknown. 


Digital Equipment Corp. 
Maynard, MA 01754 
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PROGRAM LISTING SAMPLE RUN 


$9 RANDOMIZE THIS DEMONSTRATION SIMULATES A CRAP GAME WITH THE COMPUTER 
SOBROR SLs tene ONE RUN Shean ee ; AS YOUR OPPONENT. THE RULES ARE SIMPLE: 

400 PRINT"THIS DEMONSTRATION SIMULATES A CRAP GAME WITH THE COMPUTER 

4416 PRINT"AS YOUR OPPONENT. THE RULES ARE SIMPLE: " an Lae OACIROLE Tea 


Ses dn 4A 2, 3 OR 12 ON THE FIRST ROLL LOSES 
428 PRINT" *A 7? OR 12 ON THE FIRST ROLL WINS" ¢ 
1449 PRINT" *A 2, 3 OR 12 ON THE FI 


58 PRINT Ne ANY OTHER NUMBER ROLLED BECOMES YOUR “FOINT’* YOU CONTINUE 
pean OU GET YOUR POINT, YOU WIN. IF YOU ROLL A 7. 
166 PRINT"ANY OTHER NUMBER ROLLED BECOMES YOUR “POINTS * YOU CONTINUE" Te as oe ee 3 s 

ae ats Sa Dad YOU LOSE. THE DICE CHANGE HANDS MHEN THIS HAPPENS 
474 PRINT'TO ROLL... IF YOU GET YOUR POINT. Yo. WIN. IF YOU ROLL A 7, ne Cate ae 


189 PRINT"YOU LOSE, THE DICE CHANGE HANGS WHEN THIS HAPPENS. " 
185 PRINT “JUST BET #4 TO QUIT. * 

BSG oRe TRS ARE YOU READY? YES 

ns Se ee meen arent Zain SFLENDID.....4OU ARE GIVEN 95 COLLARS TO PLAY WITH 
245 PRINT "ARE YOU READY"; \INFUT BS 


216 IF BS="YES" THEN 220\1F Et="NO" THEN PRINT "I’LL REPEAT MYSELF THEN eT ae 
247 60 TO 98 
226 PRINT "SPLENDID..... VOU ARE GIVEN *sZ) "COLLARS TO PLAY. WITH " bau NUEH. DOr veer ae 
228 PRINT 
248 PRINT ‘OU ROLL «4 AND 6 AND 
258 IF N-2#INT(N/2)=6 THEN 240 Le nee 
268 LET W=-4 5 gee 
5 YOU NOW HAVE 195 DOLLARS 
279 PRINT "I°LL ROLL FIRST..... ' eae 
C YO 2 
286 PRINT HOW MUCH DO YOU BET? 10 
298 PR z ; ; 
Baer ne necane YOU ROLL SAND $§ 50 YOUR POINT I5 14 
3418 LET W=1_ YOU ROLL 23 AND 5... ROLL AGAIN 
2 = : YoU ROLL 3 AND 2... ROLL AGAIN 
2 t "VOU RO BS. " 
eo ee YOU ROLL 4 AND 6 AND MAKE YOUR POINT 


$38 PRINT 

345 PRINT 

354 LET &=6 

368 PRINT "HON MUCH CO YOU BET": 
378 INPUT B 


YOU NON HAYE 145 DOLLARS 
HOW MUCH DO YOU BET? 14 


388 PRINT YOU ROLL 2 AND 2 50 YOUR POINT IS 4 
398 IF E=INTCB) , YOU ROLL 4 FIND § ...R0LL AGAIN 

396 B= INTE) 20 

Pte ee YOU ROLL 4 AND Z AND LOSE. 


448 PRINT 

448 PRINT "NO COINS PERMITTED... JUST BILLS, PLEASE. 
428 GOTO 266 

428 IF B=4 THEN 149 
446 IF B<Z+1 THEN 4 
459 PRINT "DON’T TR 
465 GOTO 364 


YOU NOW HA¥YE 185 DOLLARS 
Fy CHANGE DICE NOW. 
7a 


Y TO BET MORE THAN ‘TOL! HAVE. PLEASE. ° HOW MUCH CO YOU BET? 148 


478 LET D1=INT RNDCB3+1) T ROLL 2 AND 5 SO MY POINT IS & 
430 LET D2=INTCE#RND(B) +1) T ROLL 4 AND 5... ROLL AGAIN 
494 LET G=0+4 I ROLL 2 AND 1... ROLL AGAIN 

1 ROLL 4 AND 4 AND MAKE Mt POINT 


598 LET S=Di+D2 


514 IF W>@ THEN 544 
YOU NOW HAYE 25 DOLLARS 


520 PRINT " IT ROLL "“:043 "AND "302; 
536 GOTO 554 HOW MUCH DO YOU BET? 14 
544 PRINT "YOU ROLL ":04s "AND 9 "502; 
Sey He hese SSR AE [aROoE 6 AND MY POINT I5 8 
568 IF (S-2)#(S-3)#(S-12)=8 THEN 648 eddie beable 6 = eee ce GPa iil 
578 IF (5-7)*(5-11)=6 THEN 718 eae Oe ae eee 
Soya aie (ee) Se eee T ROLL 5 AND 1... ROLL AGAIN 
594 PRINT "SO MY POINT 18": lsu: OARS te ROC ESR EM 
2LGr COR) GSE 1 ROLL 4 AND 6 ROLL AGAIN 
618 PRINT "SO YOUR POINT [5% 5 T ROLL 2 AND 6 FING MAKE MY POINT 
620 LET P=S 
BG aT DEY YOU NOW HAYE $5 DOLLARS 
648 PRINT "AND CRAP OUT..." UTED EM Ee NE 
656 LET C=4 
Say ie Aber aR ae I ROLL 2 AND 2 50 MY POINT IS 4 
Pan 1 ROLL 4 AND 1 ROLL AGAIN 
Bera I ROLL 2 AND 1 ROLL AGAIN 
Sees I ROLL 1 ANG 5 ROLL AGAIN 
gee T ROLL 4 AND 2 ROLL AGAIN 
ear rar eanneraee < I ROLL 4 AND 5 ROLL AGAIN 
eee hea 1 ROLL 4 AND 6 ROLL AGAIN 
SG TF WOO THEN 760 T ROLL & AND 2 ROLL AGAIN 
FGpiLRaL EEoIER T ROLL 4 AND 4. ROLL AGAIN 
2 AIRY DEE I ROLL 6 AND 2 ROLL AGAIN 
66 LET 2=24e I ROLL 2 AND 4 ROLL AGAIN 
20 PRINT I ROLL 2 AND z ROLL AGAIN 
RGR Ke ica ieee 1 ROLL € AND 6 ROLL AGAIN 
98 PRINT "YOU NOW HAVE ":2; "DOLLARS* 1 ROLL 1 AND 6 AND LOSE, 
89 IF C>O THEN #3q 
148 PRINT "CHANGE CICE Now ” YOU NOW HAVE 35 DOLLARS 
26 PRINT CHANGE DICE NOW... 
20 LET W=Wec 
40 LET = HOW MUCH DO YOU GET? 16 
54 GOTO 366 
66 IF S<>? THEN 34a YOU ROLL 5 ANG 6 AND PASS 
76 PRINT “AND LOSE..." 
80 LET C=-4 YOU NOM HAYE 445 DOLLARS 
90 IF WO8 THEN 320 HOW MUCH OO YOU BET? 14 
900 LET 2=2+6 
316 GOTO 776 YOU ROLL 3 AND 6 50 YOUR POINT I5 & 
926 LET 2=2-B YOU ROLL 2 AND Se ePCL ie AGAINGN = 
scat Gain. ord YOU ROLL 2 AND 2... ROLL AGAIN 
949 IF S=P THEN 376 YOU ROLL 2 AND 2... ROLL AGAIN 
956 PRINT "...ROLL AGAIN. * YOU ROLL 5 AND 1... ROLL AGAIN 
968 GOTO 476 YOU ROLL 2 ANG 5 AND Lose 
970 IF W>G THEN 1920 AS 
a pelts “AND MAKE MY POINT" YOU NOW HAYE 35 DOLLARS 
C=1 COANG ‘ 
Ree ENGEL HANGE DICE NOW. . 
1618 GOTO 774 on mUC ‘ Ws 
1826 PRINT "AND MAKE YOUR POINT" ee Tk ee gh oe 
19236 LET c=4 THANKS FOR THE GAME. AND CONGRATULATIONS 


1446 LET 2=2+6 
1458 GOTO 776 
1666 PRINT 


FOR BEING ABLE TO GUIT WHILE YOU WERE AHERC 


1474 PRINT "YOU HAVE RUN CUT OF MONEY SORRY ABO Owes 
elg-core Gee Mist nt 9 REY ABOUT THAT 
196386 PRINT “THANKS FOR THE GAME. ANC CONGRATULATIONS * 


1400 PRINT "FOR BEING ABLE TO QUIT WHILE You WERE aHEAD © 
1419 PRINTSPRINTSERINT anger Ae: 
1128 CHAINS "DenoES” 

4438 END 
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CUBE 


Description 


TRAVEL ACROSS A 3-D CUBE 


CUBE is a game played on cube with a side dimension of 2. A 
location is designated by three numbers--e.g., 1, 2, 1. The 
Sogectmicato. travel (from it; ly 1 to, %3; 3S by moving “one 
horizontal or vertical (not diagonal) square at a time without 
striking one of 5 randomly placed landmines. You are staked 
to $500; prior to each play of the game you may make a wager 
whether you will reach your destination. You lose if you hit 
a mine or try to make an illegal move--i.e., change more than 
one digit from your previous position. 


Program Author 


Jerimac Ratliff 
5462 Woodway Drive 
Bort Worth etx -J/6133 


PROGRAM LISTING 


100 
110 
120 
13a 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
25a 
260 
270 
288 
290 
300 
310 
320 
3308 
340 
350 
360 
370 
380 
39n 
400 
410 
420 
430 
44a 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
578 
580 
590 
600 
610 
620 
630 
640 
650 
660 
672 
680 
690 
700 
710 
720 
730 
740 
759 
760 
779 
780 
790 
8aa 
810 
820 
830 
840 
850 
860 
879 
876 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


1000 
1010 
(020 
1030 
1040 
1050 
1060 
1070 
1080 
1990 
1100 
1110 
1120 


PRINT"DO YOU WANT TO SEE THE INSTRUCTIONS? (YESe#1,NO=-=0)" 
INPUT B7 aye 
IF 8780 THEN 
ReTanThine IS A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE" 
PRINT"RANDUM DECISION OF THE COMPUTER, THE FIELD OF PLAY IS A" 
PRINT"CUBE OF SIDE 3, ANY OF THE 27 LOCATIONS CAN RE DESIGNATED" 
PRINT"BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START," 
PRINT"YOU ARE AUTOMATICALLY 4T LOCATION 1,4,1. THE OBJECT OF" 
PRINT"THE GAME IS TO GET TO LOCATION 3,3,3. ONE MINOR DETAIL," 
PRINT" THE COMPUTER WILL PICK,AT RANOUM,S LOCATIONS AT WHICH" 
PRINT"IT WILL PLANT LAND MINES, IF YOU HIT ONE OF 
PRINT"YOU LOSE, ONE OTHER DETAIL, YOU MAY MOVE ONLY ONE SPACE " 
PRINT"IN ONE DIRECTION EACH MOVE, FOR EXAMPLE? FROM 1,1,2 YOU" 
PRINT"MAY MOVE TO 2912 OR 1,153, YOU MAY NOT CHANGE" 
PRINT"TWO OF THE NUMBERS ON THE SAME MOVE, IF YOU MAKE 
PRINT"MOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEY YOU MAY" 
PRINT"HAVE BET ON THAT ROUND," 
PRINT 
PRINT 
PRINT"ALL YES OR NO QUESTIONS WILL BE ANSWERED BY A { FOR YES" 
PRINT"OR A @ (ZERO) FOR NO," 
PRINT 
PRINT"WHEN STATING THE AMOUNT OF A WAGER, 
PRINT"OF DOLLARS (EXAMPLE$ 250) 
PRINT"5@0 DOLLAR ACCOUNT," 
PRINT 
PRINT"GOOD LUCK" 
LET Aie5aa 
LET ABINT(3#(RND(X))) 
IF A<>@ THEN 410 
LET As3 
LETBEINT(3#(RND(X))) 
IFB<>aTHENd4a 
LET B22 
LETC2INTC3*(RND(X))) 
IFC<>@THEN479 
LETCas 
LETDBINT(3*(RND(X))) 
IFD<>G@THENSOG 
LETDs1 
LETEBINT(3#(RND(X))) 
IFE<>ATHENS3@ 
LETE®3 
LETFEINTC3*(RNOC(X))) 
IFF<>OTHENS6@ 
LETFs3 
LETG@INT(3*#(RND(X))) 
IFG<>@THEN59O 
LETGs3 
LETH@INT(3*(RND(X))) 
IFH<>@THEN620 
LETH®3 
LETI®INTC3#(RND(X))) 
IF I<>@THEN65@ 
LETIe2 
LETJ@BINT(3#(RND(X))) 
IF J<>OTHEN680 
LETJ#3 
LETK®INT(3*(RND(¥))) 
IFK<>ATHEN7T1@ 
LETK#2 
LETL®INT(3*#(RND(X))) 
IFL<>@THEN7 40 
LETL#3 
LETMBINT(3*(RND(X))) 
IFM<>ATHEN7Z70 
LETMe3 
LETN@INT(3*(RND(X))) 
IFN<>OTHENBGO 
LET Ned 
LET O8INT (3*#(RND(X))) 
IF 0 <>@ THEN 830 
LET O83 
PRINT "WANT TO MAKE A WAGER?" 
INPUT Z 
IF Za@ THEN 920 
PRINT "HOW MUCH?" 
INPUT Z1 
IF A1<Z1 THEN 1522 
LET wei 
LET Xet 
LET Yel 
PRINT 
PRINT "ITS YOUR MOVE" 
INPUT P,0,R 
IFP>We1 THENIA3G 
IFPEWelTHENI AGA 
IFQ>X#1 THENI@38 
IF Qa(X#1) THEN 1010 
IF R >(Y#1) THEN 1630 
GO TO 1050 
IF Q>e X¢1 THEN 1030 
IF R>syet THEN 1030 
GO TO 1050 
PRINT "ILLEGAL MOVE", 
GO TO 1449 
LET wep 
LET xsd 
LET YsR 
IF Pe3 THEN 1100 
Go To 11398 
IF Q83 THEN 1129 
GO TO 1130 
IF Re3 THEN 


PRINT ONLY THE NUMBER" 


"YOU LOSE" 


15320 


1130 IF Pea THEN 
1140 GO TO 1186 
1150 IF QeB THEN 
1162 GO To 1189 
1170 IF ReC THENI400 
118@ IF Ped THEN 1200 
1198 GO To 1230 

1200 IF QsE THEN 1220 
1210 GO TO 1230 

1220 IF ReF THEN 1400 
1230 IF PaG THEN{ 259 
124@ GO To 128@ 

{250 IF Qeh THEN{L270 
1260 GO To 1280 

1270 IF ReITHEN 1409 


1150 
1170 


THESE LOCATIONS," 


AN ILLEGAL" 


YOU ARE AUTOMATICALLY STARTED WITH A" 
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1280 IF PeJ THEN 1300 
1298 GO TO 1330 

1300 IF Qek THEN1320 

1310 GO TO 133¢ 

1320 IF Rel THEN 14490 

1330 IF Pam THEN 1350 

1340 GO To 1380 

1350 IF Q8N THEN 1379 

1362 GO TO 1380 

1370 IF R#O THEN 400 

1380 PRINT "NEXT MOVE" 

1392 GO TO 930 

1400 PRINT "eweeweBANGaweuwell 

141@ PRINT "YOU LOSE" 

1426 PRINT 

1430 PRINT 

1440 If 7220 THEN 1580 

1450 PRINT 

1460 LET Z2eAiez1 

1470 IF Z2>0 THEN 1500 

1489 PRINT "YOU BUST" 

1492 GO To 1610 

1508 PRINT " YOU NOW HAVE") Z27 "DOLLARS" 
1510 LET Aiez2 

1520 GO To 1580 

1522 PRINT"TRIED TO FOOL MES BET AGAIN"S 
1525 GO To 870 

153a PRINT"CONGRATULATIONS" 

1540 IF ZeQ THEN 1580 

1550 LET Z2eAie71 

1568 PRINT "YOU NOW HAVE"$ Z2;"DOLLARS" 
1570 LET Alez2 

1580 PRINT"DO YOU WANT TO TRY AGAIN?" 
1598 INPUT $ 

1600 IF Sei THEN 380 

{610 PRINT "TOUGH LUCK" 

1620 PRINT 

1630 PRINT " GOODBYE" 

164 END 

SAMPLE RUN 

DO YOU WANT TO SEE THE INSTRUCTIONS? (YES—--41,.N0--a) 
2 ph 


THIS I5 A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE 
RANDUM DECISION OF THE COMPUTER, THE FIELD OF PLAY IS A 

CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS ESTGNATED 

BY INPUTTING THREE NUMBERS HAS 2as5.4 AT THE START. 

YOU ARE AUTOMATICALLY AT LOCATION 4.4.4. THE CEJECT OF 

THE GAME IS TO GET TO LOCATION =, ONE MINOR CETAIL, 

WHICH 

THESE LOCATIONS, 


THE COMPUTER WILL PICK. AT RANDUM.S LOCATIONS AT 
MINES 


IT WILL PLANT LAND IF YOU HIT ONE OF 


“OU LOSE ONE OTHER DETAIL. YOU MAY MOVE ONLY ONE SPACE 

IN ONE DIRECTION EACH Move FOR EXAMPLE: FROM 1.4.2 Yon 

HAY SOV SRO et 2 : SOU MAS NOT CHANGE 

THO OF THE NUMGE AME Move. IF WOU MAKE AN ILLEGAL 
MOVE. YOU LOSE AND THE COMPUTER TAKES THE MONEY Si MAY 

HAVE BET ON THAT ROUND 

ALL YES OR NO RUESTIONS WILL BE ANSWERED 64 Ad FoR YES 

OR A ® ¢2ERO) FoR NO 

WHEN STATING THE AMOUNT OF A WAGER. PRINT ONL THE NUMBER 


OF DOLLARS (EXAMPLE: 250) YoU ARE AUTOMATICALLY STARTEG WITH 


S88 DOLLAR ACCOUNT 
GO00 LUCK 

WANT TO MAKE A WAGER? 
emyal 

HOW MUCH? 

? 58 


17S YOUR MOVE 
pees lee. 

NEXT MOVE 

97 4,2,9 


MOVE 


OVE 
? 238 
NEXT MOVE 

oP Ss Sx 8 

CONGRATULATIONS 

YOU NOW HAVE 55 COLLARS 
OO YOU WANT TO TRY AGAIN? 
a al 

WANT TO 
2 4 

HOW MUCH? 
2 508 


MAKE A WAGER? 


ITS YOUR MOY 
we des ler 

NEXT MOVE 

2 24 

NEXT MOVE 

Qe Na ee 

NEXT MOVE 


2.2 


MOVE 
ze 


NEXT MOVE 
De Sie Ne NS 
CONGRATULATIONS 


YOU NOW 


dO 
2 4 


HAVE 689 DOLLARS 


YOU WANT TO TRY FIGAING 


HANT TO MAKE A WAGER? 


2 4 


A 


Di A M N I) PRINTS DIAMOND PATTERN 


Description 


This program fills an 8%x1l piece of paper with diamonds (plotted 
on a hard-copy terminal, of course). The program asks for an 

odd number to be input in the range 5 to 31. The diamonds printed 
will be this number of characters high and wide. The number of 
diamonds across the page will vary from 12 for 5-character wide 
diamonds to 1 for a diamond 3l-characters wide. 


Program Author 


Digital Equipment Corp. 
Maynard, MA 01754 
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PROGRAM LISTING 


PRINT 
PRINT 
INPUT RSFRINT 
G=INTCEAaCRD 

FOR L=1 TO @ 


“FOR A FRETT 
"TYPE IN AN CDG 


DIAMONC PATTERN, " 


NUMBER BETWEEN S AND Z4. “ 


2 
4 

6 

8 

14 K=1SY=RN2=2 

2oe ROR NSA Tact STEr 
25 PRINT TABCKR-N? 

26 FOR M=4 TO fH 

29 C=1 

B@ FOR A=41 Th N 

34 IF C=1 THEN 448 

Sem Pace cette Nias ce 

33 IF C=zZ THEN 44 
BICRRINT se ONSO Te Se 
46 PRINT "OC"; GOTO 47 
42 PRINT "E"; \SGOTO 47 
A Sey ALIN susp 

4? C=C+4 


5S NEAT A 


S23 IF M=@ THEN 66 

SS PRINT TABCKR#M+€R-N) 42); 
Sé@ NEXT 

60 PRINT 

?@ NEXT N 

SS siRex<>? THEN @Se 


85 X=R-2\Y=1\2=-2 


$6 GOTO 24 
935 NEXT L 
99 END 
READY 
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SAMPLE RUN 


FOR A PRETTY DIAMOND PATTERN, 
TYPE IN AN GCC NUMBER BETWEEN © AND 34 
? 45 
DEC y DEC 
DEC Ae DEC 
DEC Ve eal DEC 
DEC! 1 Atel CEC! 
RECo Fidteb dh VWs Beil 3 
DEG?! ) : a aL 1-3 oa 
DEE PE Vg ERG IS ORT BE Cen! 
DEC! Ve} Sih ae Raa i ie ate 
DEC BEE ey CEC 
DEC BEC CEC 
DEC DEG!! DEC 
i CEC 
ii 
o 
DEC 
DEC! DECK! DEC 
bec! BEG iM CEC 
DEC Bes eet CEC 
PEG? BE IY DEC! 
DEG Be. (SST ao maa (Se 
BEE TS oe Ee ad et eC 
DEC!) Le [et eR YE A 9 BB Fh BECK hy 
BEC! DEG USSU uaa Bee mul 
DEC! BSC eee BEG 
DEC DEGHI1) CEG! 
DEC DEG! CEC 
¥ DEC CEL 
BEE 
BEE tay 
CEG thiies 
DEGI P24 yy 
DEG Miao 
jDy] esi bees BST Ot a 
DECI}PIEIdy 
DEC h hrs 
DEC hits 
DEGiias 
CEEY 
DEC 
ti 
dD 
DEC C 
DEC! a) 
DEGiitt ea 
DEE a TAP to toy 
eh Ue iy PTT BEG Wy ee DECI): 
DEC LA TA set |) = a tec! 1 
DECA VV OE 2a Ee Cen a Se ape vt 1 
Ee Le eT DEG hr preva CED! ' 
iE Gs aU DECI a La a 
DEG isis DEGHiries DEC! 
ees USM ini=feal em CE 
DEG H CEC)! 
CEC CEC 
D o 
READY 


[seis aan al! 


ivan 
PRC baa 


DEGITS 
DEC! ! 
CEC! 


DEC 


DICE SIMULATES ROLLING TWO DICE 


Description 


Not exactly a game, this program simulates rolling ,aipair of 
dice a large number of times and prints out the frequency dis- 
tribution. You simply input the number of rolls. It is in- 
teresting to see how many rolls are necessary to approach the 
theoretical distribution: 


2 1/36 LA pa fa LY Par ae 
3 2/36 DisIIO0 6 sie 
& 3/36 B673333..0.% 


etc. 


Program Author 


The author of this program is in the seventh grade at Harrison 
Junior-Senior High School. 


Daniel Freidus 
Park Drive South 
Rye, NY 10580 


PROGRAM LISTING 


48 DIM F 6te5 

28 REM DANNY FREID 
34a 

g 


PRINT "THIS PROGRAM SIMULATES THE ROLLING 


PRINT “PRIR OF DICE. " 


58 PRINT "VOU ENTER THE NUMBER OF TIMES 


SBUPRING @TG “ROLL? THE DICE WATCH iT, 


78 PRINT "A LONG TIME. IN PARTICULAR, 


BH FOR B=1 TO 12 
98 Fén=H 

146 NEXT & 

448 PRINTSPRINT “HOW MANY ROLL 
126 INFUT * 

136 FOR 


To x 
RND+4 ) 
RNO+1) 


PRINT 
PRINT "TOTAL SPOTS". "NUMBER CF 
Tuyike 


PRINTSPRINT "TRY AGAIN", 
INPUT 2% 

24 IF 23="VES" THEN Se 

408 END 


READY 


Tvs bans 


WO WANT THE COMPUTER" 
WER LARGE NUMBERS 
NUIMEE 


TAKE” 
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SAMPLE RUN 


THIS PROGRAM SIMULATES THE ROLLING OF A 

PAIR OF DICE. 

YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER 

TO “REEL THE DICE: WATCH OUT. WER LARGE NUMBERS TAKE 
Al LONG TIME. IN FARTICULAR. NUMBERS OVER Sage 


HOW MANY ROLLS? Sea 


TOTAL SPOTS NUMBER OF TIMES 


PRP UO ONAO WHO 


fa eS 


TRY AGAIN? YES 
HOW MANY ROLLS? 169468 


TOTAL SPOTS NUMBER OF TIMES 


203 


PRPRWON HO Who 


HOW MANY ROLLS? 1468 


TOTRL SPOTS NUMBER OF TIMES 
2 3) 
3 7 
4 7 
3 14 
6 14 
3 9 
3 Ls 
14 9 
ali 4 
12 4 


TRY AGAIN? YES 
HOW MANY ROLLS? tHe 


TOTAL SPOTS 


ay 


PRPrRPW ONTO fe wh 


hr 


TRY AGAIN? NO 


READY? 


DIGIT 4y COMPUTER TRIES TO OUTGUESS PLAYER 


Description 


The player writes down a set of 30 numbers (07 2, epee) sat) random 
prior to playing the game. The computer program, using pattern 
recognition techniques, attempts to guess the next number in 

the input. 


The computer asks for 10 numbers at a time. It always guesses 
first and then examines the next number to see if it guessed 
correctly. By pure luck (or chance or probability), the com- 
puter ought to be right 10 times. It is uncanny how much better 
it generally does than that! 


source 
Keiwit Computation Center 


Dartmouth College 
Hanover, NH 03755 


Jae 


PROGRAM LISTING 


210 
220 
230 
240 
250 
260 
270 
280 
298 
308 
318 
320 
330 
340 
360 
370 
380 
480 
420 
440 
45a 
480 
510 
520 
530 
540 
550 
569 
570 
580 
590 
602 
622 
630 
660 
67@ 
690 
700 
719 
720 
730 
740 
760 
770 
780 
790 
820 
812 
820 
832 
840 
850 
860 
879 
880 
890 
900 
910 
9290 
932 
940 
9590 
960 
972 
980 
990 
1002 
1o1¢e 
1626 
1832 
1040 
1060 
1076 
1080 
1098 


PRINT "THIS IS A GAME OF GUESSING," nonie 
’ 


PRINT "FOR INSTRUCTIONS, TYPE '1', ELSE TYPE 

INPUT E 

IF Es THEN 368 

PRINT 

PRINT "PLEASE TAKE A PIECE OF PAPER AND WRITE DOWN" 


"THE DIGITS 'B', '1', OR '2' THIRTY TIMES AT RANDOM," 
"ARRANGE THEM IN THREE LINES OF TEN DIGITS," 

"] WILL ASK FOR THEM 12 aT A TIME," 

"I WILL ALWAYS GUESS FIRST, AND THEN LOOK AT YOUR" 

BY PURE LUCK I" 


PRINT 
PRINT 
PRINT 
PRINT 


PRINT "NEXT NUMBER TO SEE IF I WAS RIGHT, 

PRINT "QUGHT TO BE RIGHT 19 TIMES, BUT I HOPE TO DO BETTER" 
PRINT "THAN THAT «eae! 

PRINT\PRINT 

READ A,6,C 

DATA @,1,3 


DIM M(26,2), K(2,2)» L(8,2) 

MAT MeCON\MAT KsCON 

MAT K@(9)*#K\MAT LaCON 

MAT La(3)eLl 

L (0,0) 82\L (64,1) 82\L (8,2) 82 

Z226\Z128\Z282 

X3@ 

FOR Tai TO 3 

PRINT 

PRINT "TEN NUMBERS PLEASE") 

INPUT N(1)¢NC2)eN(3) 0NC4) 9N(5) pNC69~NO7) »NCB) NOD) PNO1O) 

FoR Ist To 10 

WEN(T)@1 

IF weSGN(W) THEN 620 

PRINT "USE ONLY THE DIGITS '@', ‘11, OR 

PRINT "LET'S TRY AGAIN,"\GOTO 534 

NEXT I 

PRINT\PRINT "MY GUESS","YOUR NO.","RESULT", "NO, 

FOR Usi TO 19 

N@N(Uu)\See 

FOR J32 TO 2 

SL8AeK (22,3) +belL (21,3) +CHM(Z,J) 

IF S>S1 THEN 760 

IF S<S1 THEN 740 

IF RND<,5 THEN 760 

SaSi\GeJ 

NEXT J 

PRINT G,N(U), 

IF GeN(U) THEN 816 

PRINT "WRONG",X 

GOTO 88a 

XeXe1 

PRINT "RIGHT",X 

M(Z/N)EM(Z,N) 44 

LOZI,N)SLOZI,N) +1 

K(Z2,N)#K(Z2,N) +14 

ZBZeINT(Z/9) #9 

Ze3uZeN(U) 

Z14Z=INT(Z/9) #9 

Z23N(U) 

NEXT u 

NEXT T 

PRINT 

IF X>10 THEN 982 

IF X<1@ THEN 1018 

PRINT "I GUESSED EXACTLY 1/3 OF YOUR NUMBERS," 

PRINT "IT IS A TIE GAME," 

GOTO 103a 

PRINT "I GUESSED MORE THAN 1/3 OF YOUR NUMBERS," 
PRINT "IL wWIN,"\FOR Q81 TO J@\PRINT CHRS(7)I\NEXT Q 
GOTO 130 

PRINT "I GUESSED LESS THAN 1/3 OF YOUR NUMBERS," 


foun 


RIGHT"\PRINT 


PRINT "YOU BEAT ME, CONGRATULATIONS #eee" 

PRINT 

PRINT "DO YOU WANT TO TRY AGAIN (3 FOR YES, @ FOR NO)"3 
INPUT Xx 


IF xe1 THEN 400 
PRINT\PRINT "THANKS FOR THE GAME," 
END 
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SAMPLE RUN 


A GAME OF GUE 
1" oa FP E 


THs rs 
FOR INSTRUCTIONS. 


[S[Ret Sets alee ee 


PLEASE TAKE A PIECE OF PAPER ANC WRITE DOWN 


THE DIGITS 


Bey Fgh ee 


THIRTY TIMES 


ARRANGE THEM IN THREE LINES OF TEN DIGITS 


FOR THEM 14 AT 
GUESS FIRST 


TOWEL ASI 
J WILL ALWAYS 
NEXT NUMBER TO SEE IF T W 
OUGHT TO BE RIGHT 14 TIMES 
THAN THAT #4 


A 


AS RIGHT. BY 


TIME 
AND 


AT RANCOM 


THEN LOOK AT OUR 
PURE LUCK I 


BUT I HOPE To On BETTER 


TEN NUMBERS PLEASE? 1.8.2.8. 2.1.4.1.2.8 

MY GUESS YOUR NC. RESULT NO. RIGHT 
4 2 RIGHT 4 
2 a WRONG fi 
4 2 WRONG 1 
2 a WRONG de 
2 2 RIGHT 2 
5h a RIGHT me 
2 4 WRONG % 
2 at WRONG 3 
2 2 RIGHT 4 
4 a WRONG 4 

TEN NUMBERS PLEASE? @.41.2.4,4.2,8,1,.2,9 

MY GUESS YOUR NU RESULT NG. RIGHT 
al 4 We CNG 4 
BA 1 FIGHT Ma 
2 é RIGHT i 
4 a WRONG 6 
“i it FIGHT if 
2 2 RIGHT & 
‘it a WRONG by 
al 4. RIGHT a 
2 2 RIGHT 1s 
4 A WRONG 14 

TEN NUMBERS: PCRASES eto eietia set so 

AY GUESS YOUR NO RESULT NO. RIGHT 
cf u RIGHT 
2 1 WRONG 
2 a WRONG 
2 ie WRONG 
2 a WRONG 
2 a WRONG 
2 e RIGHT 
al WRN 
4 WRONG 
st 2 LRN 

I GUESSED MORE THAN 1/3 OF YOUR NUMBERS 

I WIN. 

DO YOU WANT TO TRY AGAIN (1 FOR YES. @ FOR NOD? 4 

TEN NUMBERS PLEASE? 4. 45 dodo 4omti2 

MY GUESS SOUR NO RESET NO. RIGHT 
4 at RIGHT si 
2 4 WRONG el 
sil al RF TGHT Re 
2 i WRONG 2 
2 it WRONG 2 
2 1 WRONG 2 
2 2 RIGHT = 
2 2 RIGHT 4 
si 2 WRONG 4 
4 2 WRONG 4 

TEN NUMBERS PLEASE? 4,5,.8.8,4, 8. 

MY GUESS OUR NO RESULT NO. RIGHT 
uy a WRONG 4 
at is) WRONG 4 
uf a WRONG 4 
it: & WRONG 4 
1 a WRONG 4 
a 4 WRONG 4 
“ 2 WRONG 4 
1 WRONG 4 
il 2 WRONG 4 
a 2 WRONG 4 

TEN NUMBERS PLEASE? 4, 8, 28. 8, 

USE (OREN THE DRGiISe h0 Aiea ni Ay 

LET’ S TRY AGAIN. 

TEN NUMBERS PLEASE? @,2,4,.2 oly 

MY GUESS YOUR NI, RESULT Na. RIGHT 
il a WRONG 4 
4 2 WRONG 4 
a a WRONG 4 
1 2 WRONG 4 
st cs) WRONG 4 
a 2 WRONG 4 
cb 8 NRONG 4 
A 2 WRONG 4 
pl ts) WRONG 4 
a 2 WRONG 4 
I GUESSED LESS THAN 41/2 OF YOUR NUMBERS 

YOU BEAT ME. CONGRATULATIONS te 

DO YOU WANT TO TRY AGAIN (1 FOR YES. & FOR NO)? w 


THANKS FOR THE GAME 


DOGS a 


Description 


This is a dog race game similar to those found in penny arcades 
and amusement parks. The prior racing experience of each dog 
(wins and losses) has a bearing on the outcome of the race. 
After this is posted, up to 19 players may bet on a dog. 
Maximum bet is $500.00 and minimum is $2.00. 


Aftereall the bets are in, the odds will be’ posted and the race 
begins: After each days's racing, the track will close and 
record the performance of all the dogs in a permanent file 
which is called the next time the program is run. 


Computer Limitations 


DOGS was written for a DIGITAL EduSystem 50 (Timeshared-8) ; 
Consequently, the file handling soutine-«(Lines 1257.30, 435,55, 
975, 985, 1085) may have to be changed for other systems. 


Program Author 


The author remarks that he is now 15 and started using a PDP-8 
at the age of 12. Since then he has compiled 4 notebooks of 
programs in BASIC, FOCAL, FORTRAN, and ALGOL. Of his 23 BASIC 
games, 5 are published in this book. 


Victor Nahigian 
39 Beaver Road 
Weston, MA--02193 
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PROGRAM LISTING 


5 R 


120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
179 
175 
1860 
185 
190 
195 
200 
214 
215 
220 


355 
360 


385 


395 
400 
405 


425 
430 


445 
450 


465 
4728 
475 
480 
485 
490 
495 
50a 
505 
519 
515 
520 
525 
538 
535 
540 
545 
550 


EM V,NAHIGIAN 8TH GRADE DOG RACE GAME 
DIM S(1@),C(18),JS(20) +w(18),A(18) 
OImM NS(20),HS(10),P (20) 
DIM Y(1@),B(11),5(20) 
RECORD V 
ae , INS"\OPEN 9,"LOSSES" 
Ww ’ s 
IF S908 THEN 7O\FOR I81 TO 1O\GET 8,25,1\V9O8V94VNNEXT I 
IF V9<25 THEN 6A0\IF V9>2@0 THEN 55 
GOTO 104 
UNSAVE B\UNSAVE 9 
PRINT "PLEASE WAIT, DISREGARD THE 25 BELLS" 
PRINT\PRINT\PRINT\PRINT\PRINT\S9S6\GOTO 35 
FOR Is{ TO 25"VO\RANDOMIZE\HBINT(1G*RND(X))+1\GET 8,25,H 
VaVel\PUT 8,25,H\FOR Tel TO 1A\IF HeT THEN 85 
GET 9,30,T\X®X+1\PUT 9,30,T 
NEXT T 
PRINT ChRS(135)3 
NEXT I 
PRINT\PRINT\PRINT 
PRINT TAB(1@)I"WELCOME TO ROOK*A@DAY RACE TRACKI II" 
PRINT\PRINT 


PRINT "DO YOU WANT THE INSTRUCTIONS"J\INPUT I$\GOTO 215 

PRINT " THIS IS A DOG RACE GAME, THERE ARE 18 DOGS" 

PRINT "WHICH RUN IN THIS RACE, THE wINS AND LOSSES OF" 

PRINT "EACH DOG ARE RECORDED SO THAT EVEN AFTER you" 

PRINT "LOG@OFF, THE WINS AND LOSSES OF THE DOGS WILL STILL" 
PRINT "BE RECORDED." 

PRINT " THE WINNER OF THE RACE WILL BE DETERMENED AY HOW" 
PRINT "MANY WINS AND LOSSES EACH DOG HAS, AFTER THE WINS AND" 
PRINT "LOSSES OF EACH DOG HAVE BEEN POSTED, YOU WILL HAVE A " 
PRINT "CHANCE TO BET. NO MORE THAN 19 PEOPLE ARE ALLOWED" 
PRINT "TO BET IN THIS GAME, WHEN BETTING, YOU CANNOT BET OVER" 
PRINT "$5U0@,00 AND MUST BET AT LEAST $2,800, MORE THAN 1" 
PRINT "PERSON MAY BET ON THE SAME DOG, AFTER THE BETS" 

PRINT "ARE MADE THE ODDS WILL RE FIGURED AND POSTED AND THE 
PRINT "RACE WILL BEGIN," 

PRINT " THE STRADGY OF THIS GAME IS TO PICK THE WINNER" 
PRINT " TNSUCH A WAY THAT THE ODDS ON THAT DOG ARE GOOD" 
PRINT "IN YOUR FAVOR," 


PRINT\PRINT TAB(10)F"GOOD LUCKII"\GOTO 220 

IF I$s"YES" THEN 126\GOTO 220 
GOSUB 225\GUTO 255 
PRINT\PRINT\PRINT "DOG","NUMBER", "WINS", "LOSSES" 
FOR Iai TO 19 
READ HS(I) 
GET 8,25,1\GET 9,30,1 
PRINT HSCI),T/V,X 
NEXT I\RETURN 
PRINT\PRINT\PRINT "HOW MANY WISH TO BET") 
INPUT O\IF G<28 THEN 276 
PRINT "NO MORE THAN 19 ALLOWED"\PRINT\GOTO 
FOR Zai TO W 
PRINT "BETTOR'S NAME"Z\INPLIT N$(Z) 
PRINT "DOG'S NUMBER"S\ INPUT J(Z) 
PRINT "AND YOUR BET"S\ INPUT P(Z) 
IF P(Z)<2 THEN 3QQ\IF P(Z)>5@@ THEN 
PRINT\NEXT Z\GOTO 325 
PRINT "YOU MUST BET AT LEAST &2,90, TRY AGAIN "N$(Z) 
PRINT "YOUR BET"E\INPUT P(Z) 
GOTO 29a 
PRINT "YOU CAN'T BET OVER 504,40 "N$(Z)" TRY AGAIN" 
GOT) 305 

FOR Ie} TO 14 

BC 11) sB(11)4+P(1) 

NEXT 1 

FOR I#1 TO Q 'AMOUNT OF 
FOR I3s1 To 1@'DOGS 

IF JCI)<>I3 THEN 360 
ACIS) #A(I3)4P(1) 

NEXT 13 

NEXT I 

FOR Tet TO 1@ 

IF ACI)>=2 THEN 390 

BCI) SINT CBC 11) *RND(X)) 44 
GOTO 395 

BCI) BINTCCACAL)@ACIDI/CACII@(e174A(1)))) 
IF B(I)<#2 THEN 405 

GOTO 4ia 

B(I)#2 

NEXT I 

PRINT 

PRINT "DOG", "NUMBER", "ODDgn 

FOR Isi TO 120 

PRINT HSC(I),1,8°1) "2 
NEXT I 

FOR [1 TO 10 

GET 8,25,1\GET 9,30,I\IF V+Xeaa THEN 
RANDOMIZE 

YCL) SINT (V/ABS((V4X)) INTC VHRND(X) Jot) 
IF Y(I)<7 THEN 470 

GOTO 475 

YCI) SINT OC7*#RND(X) ) 44 

NEXT I 

FOR Rei TO 10 

SCR) eA 

NEXT R 

PRINT 

PRINT TAB(2)s"#1 23465678 9 19", 
PRINT CHR&(135) 5CHR$(135))CHRS(135)IC 
FOR Rei 10 1@ 

RANDOMIZE 

CCRIFEINTCY(R) *RND(X) Dot 
S(R)aS(RI+C(R) 

NEXT R 

PRINT TAB(2) #"XXXXXXXXSTARTXXXKXKK YM 
FOR Psy Tu 22 
FOR Rey TG 19 
IF P®S(R) THEN 


255 


315 


PEOPLE PLAYING 


4" 


470 


"AND THEY'RE OFFLII" 
HR$(135)1CHRS(135)3 


580 


94 


555 
560 
565 
570 
575 
580 
585 
590 
595 
600 
625 
610 
615 
620 
625 
630 
635 
640 
645 
650 
655 
660 
665 
670 
675 
680 
685 
690 
695 
700 
705 
710 
715 
720 
725 
730 
735 
740 
745 
750 
755 
760 
765 
770 
775 
789 
785 
790 
795 
800 
805 
810 
815 
820 
825 
830 
835 
840 
845 
850 
855 
860 
865 
870 
875 
880 
885 
892 
895 
909 
905 
910 
915 
92a 
925 
930 
935 
949 
945 
950 
955 
960 
965 
970 
975 
980 
985 
999 
995 
1200 
1005 
1010 
1015 
1920 
1025 
1032 
1035 
1049 
1945 
1050 
1055 
126¢ 
1065 
1079 
1075 
1980 
1285 
1099 
1095 


IF S(R)>20 THEN 590 


NEXT R 
PRINT 

NEXT P 

GOTO 625 

PRINT TAB(R#2)7¢RICHRS(141) 
GOTO 56a 

IF WC1)<>@ THEN 605 
wC1)3R 

GOTO 56a 

De2 

W(D) #R 

DsDel1 

GOTO 560 


IF W(1)<>@ THEN 640 

PRINT TAB(2) B"XXXXXXXFINISHXXXXXXXX " 
GOTO 51a 

FOR Ys2 TO 22 

PRINT TABCY)I"X"STABCY) SCHRS(135)) 


IF Ye7 THEN 665 
NEXT y 

GOTO 682 

PRINT " FINISH") 
Yei3 

GOTO 655 

PRINT 

PRINT ths 

FOR 1#2 TO 22\PRINT "#"fF\NEXT I\PRINT 
IF D<s{ THEN 735 
Gew(i) 


FOR 12281 TO D 

It S¢w(l2))<S(W(I241)) THEN 
NEXT 12 

GoTo 735 

Gew(l2+1) 

GOTO 715 

PRINT 

PRINT 

PRINT "AND THE WINNER IS DOG NUMRER"3G,HS(G) 
PRINT\GOTO 970 
RESTORE 

FOR Est TO Q 

IF GeJ¢E) THEN 
MSCE) @MS(E)@P(E) 
N7"N7+P(E) 

NEXT & 

GOTO 835 

IF B(G)£2 THEN 
GOTO &@5 

B(G)s4 
MBINT(100«(B(G)*P(E)+P(E))/100) 
PRINT "CONGRATULATION "NS(CE)" YOU HAVE WON 
MOCE) EMS(E)+M 

N7BN7=M 

PRINT 

GoTo 789 
PRINT "WOULD YOU AVID RACE FANS LIKE TO PLay AGAIN") 
INPUT Lo 

IF LS=s"yES" THEN 870 

PRINT\PRINT "PERSON","AMOUNT"\FOR Tei To @ 

PRINT NSCI),/MSCI)\NEXT I\PRINT "COMP" ,N7 
FOR I#} TO S\PRINT\NEXT I\GOTO 1985 

GOTO 1”85 
FOR Kei TO 140 

ACK) =Q 

S(K) 8G 

w(K) 8A 

C(K) ea 

JK) 36 
Blips 

B(K) #0 

NEXT K\GOSUB 225 

PRINT "ANY NEWCOMERS" ;\ INPUT C$ 

FOR Isi To @ 

PRINT NS&C(I)" YOUR DOGS NUMBER"S\ INPUT JCI) 

PRINT "AND YOUR BET"S\ INPUT Pier) 

IF P(I)<2 THEN 95@\IF P(1)>5090 THEN 96Q\NEXT I 

IF CSe"NO" THEN 325 

GOTO 125 

PRINT "YOU MUST BET AT LEAST 82.00 "NS(I) 
INPUT P(I)\GOTO 935 
PRINT "YOU CAN'T BET OVER $500,080 "N$(I)" TRY AGAIN" 
GOTO 932 

FOR Is1 TO 10 
GET 8,25,I\GET 9,30,1 

IF IsG THEN 995 

XBX+4\ PUT 9,3a,1 

GO TO 1eo? 

VaVel\PUT 8,25,1 

NEXT IT 

GOTO 755 

DATA "FASTER", "ZELDA", "SPEEDY", "ZTFFLE", "KILLERM 


728 


790 


87a 


g"5m 


YOUR BET"} 


OATA "GURBGN","BUGZY","SNOOPY", "LASSTE", UWINNERM 
GOTO 1285 
PRINT\PRINT "HOW MANY NEWCOMERS" 3\Q42A\ INPUT J6\Q48Q4J6 


IF Q4>2@ ThEN 1035\Q204\Q499\GO To 1049 


PRINT "NO MORE THAN 49 ALLOWED, YOU U NOW HAVE "Q\Q42a\GoTO 
FOR zel 10 9 

PRINT "BETTORS NAME"S\ INPUT N$(2) 

PRINT "DOGS NUMBERM}\ INPUT J(2) 

PRINT "AND YOUR BET"3\ INPUT PCZ)\IF P(Z)<2 THEN {070 


IF P(Z)>5@@ THEN 1075 

PRINT\NEXT Z\GOTO 325 

PRINT "YOU MUST BET AT LEAST $2.00"\GOTO 1955 
PRINT "YOu CAN'T RET OVER $500,00"\GOTO 1055 
GOTO 325 

CLOSE 8\CLOSE 9 

REM 

END 


1025 


SAMPLE RUN 


WELCOME TO ROOK-A-DAY RACE TRACK!!! 


DO YOU WANT THE INSTRUCTIONS? YES 


THIS IS A DOG RACE GAME. THERE ARE 16 DOGS 
WHICH RUN IN THIS RACE. THE WINS AND LOSSES OF 
FACH DOG ARE RECORDED SO THAT EVEN AFTER YOU 


LOG-OFFs THE 
BE RECORDED. 
THE WINNER OF THE RACE WILL BE DETERMENED BY HOW 
MANY WINS AND LOSSES EACH DOG HAS. AFTER THE WINS AND 
LOSSES OF EACH DOG HAVE BEEN POSTED,» YOU WILL HAVE a 
GHANCE TO BET- NO MORE THAN 19 PEOPLE ARE ALLOWED 
TO BET IN THIS GAME+ WHEN BETTING» YOU CANNOT BET OVER 
$506 +86 AND MUST BET AT LEAST $2.44. MORE THAN 1 
PERSON MAY BET ON THE SAME DOG- AFTER THE BETS 
ARE MADE THE ODDS WILL BE FIGURED AND POSTED AND THE 
RACE WILL BEGIN. 
THE STRADGY OF THIS GAME IS TO PICK THE WINNER 
INSUCH A WAY THAT THE ODDS ON THAT DOG ARE GOOD 
IN YOUR FAVOR. 


WINS AND LOSSES OF THE DOGS WILL STILL 


GOOD LUCK!! 
DOG NUMBER WINS LOSSES 
FASTER 1 4 21 
ZELDA 2 4 2i 
SPEEDY 3 7 18 
ZIFFLE 4 1 24 
KILLER 5 r) 25 
SURBON 6 1 24 
BUGZY 7, 4 21 
SNOOPY 8 4 21 
IASSIE 9 r) 25 
WINNER 16 7) 25 


HOW MANY WISH TO BET? 7 
BETTOR'S NAME? BOB 
DOG'S NUMBER? 1 

AND YOUR BET? 486 


BETTOR'S NAME? STUART 
DOG'S NUMBER? 3 
AND YOUR BET? 56 


BETTOR'S NAME? VIC 
DOG'S NUMBER? 19 
AND YOUR BET? 160 


BETTOR'S NAME? JOHN 
DOG'S NUMBER? 8 
AND YOUR BET? 126 


BETTOR'S NAME? ROBERT 
DOG'S NUMBER? 5 
AND YOUR BET? 69 


BETTOR'S NAME? ED 
DOG'S NUMBER? 9 
AND YOUR BET? 5@@ 


BETTOR'S NAME? TOM 

DOG'S NUMBER? 2 

AND YOUR BET? 688 

YOU CAN'T BET OVER 586-88 TOM TRY AGAIN 
YOUR BET? 1 

YOU MUST BET AT LEAST $200. 
YOUR BET? 358 


TRY AGAIN TOM 


DOG NUMBER ODDS 
FASTER 1 3 3 2 
ZELDA 2 asi 
SPEEDY 3 37 21 
ZIFFLE 4 15@4 3: 1 
KILLER 5 26 3:1 
BURBON 6 224 3:1 
BUGZY 7 18 Ue Ae ee | 
SNOOPY 8 1431 
LASSIE 9 Pe Te 
WINNER 10 U7 at 


Cd Eee CN CB a Ca a 8) AND THEY'RE OFFI!! 
XXXXXXXXS TART XXXXXXXX 
2 
3 


4 


16 


KXXXXXXF INISHXXXXXXXX 


XXXKXXXXXS TART XXXKKXKX 
3 
4 


18 


XKXXXXXXF IN ISHKXXXXXXKX 
XXXXXXXXS TART XXXXXXKX 


106 


XXXXKXXXF INISHXXXXXXXX 
XXXXXXXXS TART XXXXXXXK 


16 


XXXXXXF IN 1S HXXXXXXXXX 
FIC ACH I I I AC I A IO 2 AE AE 


AND THE WINNER IS DOG NUMBER 5 


CONGRATULATION ROBERT YOU HAVE WON $ 


95 


1863 


KILLER 


E : EN PICK UP AN EVEN NUMBER OF OBJECTS 


Description 


This is a game between you and the computer. To play, an odd 
number of objects (marbles, chips, matches) are placed in a row. 
You take turns with the computer picking up between one and four 
objects each turn. The game ends when there are no objects left, 
and the winner is the one with an even number of objects picked 


up. 


Two versions of this game are printed herein. While to the player 
they appear similar, the programming approach is quite different. 
EVEN, the first version, is deterministic--i.e., the computer 
plays by fixed, good rules and is impossible to beat if you don't 
know how to play the game. 


The second version, EVEN 1, is much more interesting because the 
computer starts out only knowing the rules of the game. Using 
simple techniques of artificial intelligence (cybernetics), the 
computer gradually learns to play from its mistakes until it 
plays a very good game. After 20 games, the computer is a 
challenge to beat. Variation in the human's style of play seems 
to make the computer learn more quickly. If you plot the learn- 
ing curve of this program, it closely resembles classical human 
learning curves from psychological experiments. 


Program Authors 


EVEN : EVEN l:; 
Unknown Eric Peters 
Digital Equipment Corp. 
Maynard, MA 01754 


12 


96 


¢ am 


4 24m 


12 LET Miag 


20 D 
30 P 
42 P 
3@ P 
62 P 
10° 
80 P 
92 P 
10@ 
110 
120 
130 
140 
159 
160 
170 
180 
190 
220 
210 
220 
230 
240 
250 
260 
270 
280 
290 
308 
310 
320 
330 
3498 
350 
368 
370 
380 
390 
490 
410 
420 
430 
440 
450 
460 
478 
480 
490 
520 
512 
520 
530 
540 
554 
560 
570 


589 
592 
609 
616 
620 
632 
649 
659 
664 
678 
680 
690 
700 
710 
720 
7130 
748 
758 
760% 
178 
780 
790 
800 
8190 
820 
830 
840 
858 
860 
870 
889 
890 
90% 
910 
920 
930 
949 
950 
960 
978 
988 
990 
1000 
1010 
1020 
103@ 
1948 
1050 
1260 
1070 
1080 
1090 
1120 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


IM M(20),Y(20) 

RINT" THIS IS A TWO*PERSON GAME CALLED 'EVEN WINS,!" 
RINT"TO PLAY THE GAME, THE PLAYERS NEED 27 MARBLES OR" 
RINT"OTHER OBJECTS ON A TABLE," 

RINT 

RINT 

RINT" THE 2 PLAYERS ALTERNATE TURNS, WITH EACH PLAYER" 
RINT"REMOVING FROM 1 TO 4 MARBLES on EACH MOVE. THE GAME" 
PRINT'ENDS WHEN THERE ARE NO MAKBLES LEFT, AND THE WINNER" 
PRINT"IS THE ONE WITH AN EVEN NUMBER OF MARBLES," 

PRINT 
PRINT 
PRINT" 
PRINT"(2) YOU MUST TAKE BETWEEN 1 AND 4 MARBLES EACH TURN," 
PRINT"AND (3) YOU CANNOT SKLP A TURN,” 

PRINT 

PRINT 

PRINT 

PRINT" TYPE A 1 IF YOU WANT TO GO FIRST, AND TYpE" 
PRINT"A 9 IF YOU WANT Mé& TO GO FIRST" 

INPUT ¢ 

IF C=@ THEN 258 

GOTO 1060 

LETT=27 

LET M=2 

PRINTYTOTAL ="5T 

LET M1=M1+M 


LET T=TeM 


PRINT" PICK UP"yMy" MARBLES," 
IF T8@ THEN 880 

PRINT"TOTAL ="9T 

PRINT! 
PRINT" 
INPUT Y 
PRINT!" 
IF Y<1 THEN 1160 
IF Y>4 THEN 1160 
IF Y¥<3T THEN 430 


AND WHAT IS YOUR NEXT MOVE, MY TOTAL IS'"yM14 


PRINT" YOU HAVE TRIED TO TAKE MORE MARBLES THAN THERF ARE" 
PRINT"LEFT, TRY AGAIN," 

GOTO 356 

LET YL=Y14+yY 

LET T=TeyY 


IF TSO THEN 880 

PRINT" TOTAL ="yT 
PRInT"" 

PRINT" YOUR TOTAL IS "yy¥1 

IF T<,.5 THEN 880 

LET R=T=6*INT(T/6) 

IF INT(Y¥1/2)=Y1/2 THEN 700 

IF T<4,2 THEN 580 

IF R>3,4 THEN 620 

LET M3R+1 
LET M1=Mi+M 
LET TST=M 
GO TO 300 

LET MsT 

LET T8T=M 
GO TO 836 
REM 25@ IS WHERE I WIN, 

IF R¢4,7 THEN 660 

IF R>3,5 THEN 664 

LET M=1 

GOTO 670 
LET Me4 
LET TST=M 
LET M1=M1+M 

GOTO 308 

REM I AM READY TO ENCODE THE STRAT FOR WHEN OPP TOT IS EVEN, 
IF R<1,5 THEN 1020 

IF R>5,3 THEN 1020 
LET MSRe1 

LET M1=M1i+M 

LET T2T=M 

LEMUR Ze UAE N 19D 

REM IS # ZERO HERE 

GOTO 300 
REM IS = ZERO HERE 

PRINT"I PICK UP"yMy" MARBLES," 

PRINT "" 

GOTO 880 

REM THIS IS WHERE I WIN 
PRINT "I PICK UP"3M3" MARBLES," 

PRINT!" 

PRINT "TOTAL = o" 

LET ML=EM14M 

PRINT " THAT IS ALL OF THE MARBLES," 
PRINT"" 
PRINT" 
PRINT" " 
IF INT(M1/2)=M1/2 THEN 950 

PRINT" YOU WON, DO YOU WANT TO PLAY" 
GOTO 962 
PRINT" 
PRINT"AGAIN? 
INPUT Al 

IF A1=@ THEN 1030 
LET M120 

LET Y139 
GOTO 200 
GOTO 640 
PRINT"! 
PRINT" OK, 
GOTO 12308 
GED Ghis) 27 
PRINT 

PRINT 

PRINT 
PRINT"TOTAL ="3T 
PRINT 
PRINT 
PRINT" 
INPUT Y 
GOTO 3608 
PRINT 
PRINT" THE NUMBER OF MARSLES YOU TAKE MUST BE A POSITIVE" 
PRINT" INTEGER BETWEEN 1 AND 4," 

PRINT 
PRINT" 
PRINT 
GOTO 350 
END 


MY TOTAL IS"yM1s" YOUR TOTAL IS"sY¥1 


I WON, DO YOU WANT TO PLAY" 
TYPE 1 FOR YES AND 0 FOR NO," 


SEE YOU LATER," 


WHAT IS YOUR FIRST MOVE?" 


WHAT IS YOUR NEXT MOVE?" 


THE ONLY RULES ARE THAT (1) You MUST ALTERNATE TURNS," 


oF. 


THIS IS A TNO-FERSON GAME CALLED “EWEN WINS. % 
TO PLAY THE GAME, THE PLAYERS NEED 27 MARBLES oF 
OTHER OBJECTS ON A TABLE 


THE 2 PLAYERS ALTERNATE TURNS, WITH ERICH PLAYER 
REMOVING FROM 4 TO 4 MARBLES ON EACH MOVE. THE GAME 
ENDS WHEN THERE ARE NC! MFIRELES LEFT, ANC THE WINNER: 
IS THE GNE WITH AN EWEN NUMBER OF MARBLES 


THE ONLY RULES ARE THAT (41) YOU MUST ALTERNATE TURNS, 
f2) YOU MUST TAKE BETWEEN 41 AND 4 MARBLES EACH TURN, 
AND <3) YOU CANNOT SKIF A TURN 


TYPE A 4d IF YOU WANT TO GO FIRS], AND TYPE 
AG IF YOU WANT ME TO GO FIRST 
al 


TOTAL = 27 
WHAT IS YOUR FIRST MOVE? 
oa 
TOTAL = 26 
YOUR TOTAL 1S 4 


I PICK UP 3 MARELES 
TOTAL = 23 


AND WHAT 1S YOUR NEXT MOME. My TOTAL IS 
22 


TOTAL = 24 

YOUR TOTAL IS & 
I PICK UP 4 MARELES 
TOTAL = 17 


AND WHAT IS YOUR NEST MONE, MY TOTAL 1S 


uy 
~J 


bie) 


TOTAL = 2S 

YOUR TOTAL IS 5 
I FICK UF 4 MARBLES 
EMA Ss tt 


AND WHAT IS YOUR NEST MOVE, MY TOTAL IS 44 
=a 


TOTAL = 16 


YOUR TOTAL IS 6 
DOP TOK UPS <5 HARELES: 


TOTAL = 7? 
AND WHAT 1S YOUR NEXT MOWE. My TOTAL 1S 44 
a4 
TOTAL = 6 


HAGA MCU Iae PUSS ee 
IPT UP et) SNARE eS 
TOTAL = 5 


AND WHAT IS YOUR NEXT MOVE, MY TOTAL IS 45 


TOTAL = 2 


HOUR TOTAL LS. te 


I PICK UP 2 MARBLES 
TOTAL = 4 
AND WHAT IS VOUR NEXT MOWE, MY TOTAL IS 16 


4 

THAT IS ALL GF THE MARELES. 
Ti GAS TS ae WLS TGA Tes aid 

I WON, CO YOU WANT To FLEA 


AGAIN? TYPE 1 FOR YES AND & FOR NO. 
teal 


EVEN1 PROGRAM LISTING SAMPLE RUN 


Wes RiLIN 
PRINT “GAME OF EVEN WINS - CYGERNETIC VERSION": PRINT een tae alee fee eee 
slab oer INSTRUCTIONS C¥ES BR ANCA" 584 GAME OF EVEN WINS - CYBERNETIC VERSION 
age aus : Z 
PRINT:PRINT "THE GAME IS PLAYED AS FOLLOWS: OO VOU WANT INSTRUCTIONS (YES OR NOD? YES 


PRINT "AT THE BEGINNING OF A GAME. A RANDOM NUMBER OF CHIPS ARE" 
PRINT "PLACED GN THE BOARD. THE NUMBER OF CHIFS ALWAYS STARTS" 
PRINT “AS AN OCD NUMBER. ON EACH TURN, A PLAYER MUST TAKE ONE, " 
PRINT “TWO. THREE, OF FOUR CHIFS. THE WINNER IS THE PLAYER WHO" 
PRINT "FINISHES WITH A TOTAL NUMBER OF CHIPS THAT IS EVEN. " 


THE GAME 15 PLAYED AS FOLLOWS: 

AT THE BEGINNING OF A GAME. A RANDOM NUMBER OF CHIFS ARE 
PLACED ON THE BOARD. THE NUMBER OF CHIFS ALWAYS STARTS 
AS AN ODD NUMBER. ON EACH TURN, A PLAYER MUST TAKE ONE 


1 
2 
re 
4 
Si 
& 
7 
= OF THE 
10 PRINT "THE COMPUTER STARTS OUT KNOWING ONLY THE RULES a : 4 : Sates 4 ; 
tt PRINT "GAME. IT GRADUALLY LEARNS TO PLAY WELL. IT SHOULD BE" ULSTR Mladd Sl Sea SN aS Mela a ines Lebanese Wiel Lele fehiais? (Miata 
12 PRINT "DIFFICULT TO GEAT THE COMPUTER TWENTY GAMES IN A ROW. " etal Se Sia) ial UME Cacti etele Ae ashe VENISI ey TENE 
23 PRINT "TRY IT!!! ":PRINT GAME. IT GRADUALLY LEARNS TO PLAY WELL. IT SHOULD BE 
"To O Saye 1 eae tia ’ nop Ia : GR > - SHU 
AER NTS ey eULy ete Tee: TCE ee RS Sateen CIFFICULT TO BEAT THE COMPUTER TWENTY GAMES IN A ROW 
2a DIM EE a CL recut 
25 L=6:E= : rit 
4 Bei ccgee 2 TO QUIT AT ANY TIME, TYPE “@? AS YOUR MOVE 
Bet ee 
ae Beoe ace THERE ARE 15 CHIPS ON THE BOARD 
70 A=h- B= et ees pe ie con ae 44... YOUR MOVE? 4 
ta PelN Aap EN HERE AR & CHIPS ON THE BOARD 
Se Eee i COMPUTER TAKES 4 CHIFS LEAVING 6 ... YOUR MOVE? 3 
114 PRINT "THERE ARE" "CHIFS ON THE ECARD. " THERESE Es. CHIP MONETTE Se ORI: 
qo CAse COMPUTER TAKES = CHIPS 
fae) Le GAME OVER ... YOu WIN!! 
14 E=CACZ-INTCACZ) HE ‘ a 5 PAE ae . 
450 L=INTCCP/6-INTCPYEY 2 *E+. SD THERE AIRE 21 CHIFS ON THE BOARD 
160 IF R¢E.L)>=P THEN 220 COMPUTER TAKES 2 CHIPS LEAVING 19 ... YOUR MOVE? 2 
170 M=RCE-LD THERE ARE 1? CHIFS ON THE BOARD 
ise 1f M¢=0 THEN 370 COMPUTER TAKES 4 CHIPS LEAVING 12 ... YOUR MOVE? 4 
190 P=P-m THERE ARE 3 CHIPS ON THE BOARD 
2am 1F M=4 THEN 514 COMPUTER TAKES 2 CHIPS LEAVING 7? |... YOUR MOVE? 4 
214 PRINT "COMPUTER TAKES"M"CHIPS LEAVING"P" ... YOUR MOVE"; THERE ARE 6 CHIPS ON THE BOARD 
A pease COMPUTER TAKES 4 CHIPS LEAVING 2 ... SOUR MOVE? 1 
@ INPLIT M1 THERE IS 4 CHIP ON THE BOARD 
te M=INTCM) COMPUTER TAKES 4 CHIP 
@ IF M<1 THEN 454 GAME OVER ... YOU WIN! ! 
a 1F M>4 THEN 468 : ‘ 
He Ce aan ora THERE ARE 415 CHIFS ON THE BOARD 
@ IF M=P THEN 260 COMPUTER TAKES 2 CHIPS LEAVING 12  ... YOUR MOWE? 4 
230 P=P—M THERE RARE 3 CHIPS ON THE BORRD 
Se etn COMPUTER TAKES 2 CHIPS LEAVING 7? ... YOUR MOWE? 4 
x44 GTO 4100 THERE ARE 6 CHIPS ON THE BOARD. 
a0 IF Fei THEN 556 COMPUTER TAKES 3 CHIPS LEAVING 3 ... YOUR MOVE? 3 
220 FRINT “COMPUTER TAKES"P "CHIPS" GAME CWER ... WOU WIN! ! 
344 RCE. LI=P 
25a B=B+r THERE AIRE 19 CHIPS ON THE BOARD 
SEOMIDNESEINTCEV2) THEN 420 COMPUTER TAKES 1 CHIP LEAVING 18 ... YOUR MOVE? 2 
374 PRINT "GAME OVER 0... YOU WIN! !": PRINT THERE ARE 46 CHIFS ON THE BOARD 
40 1F RCE.L)=41 THEN 480 COMPUTER TAKES 4 CHIPS LEAVING 12 ... YOUR MOVE? 4 
4am RCE. LERCE,LI-4 THERE ARE 3 CHIPS ON THE BOARD 
440 GOTO 7a COMPUTER TAKES 4 CHIPS LEAVING 4 ... SOUR MOVE? 4 
42 PRINT "GAME OVER 2... 1 WIN!!! "> PRINT GAME OVER ©. SOU WIN?! 
$24 GOTO 7a 
450 IF M=a THEN S78 THERE ARE 14 CHIFS ON THE BOARD 
460 PRINT M"IS AN ILLEGAL MOVE ... YOUR MOVE"; COMPUTER TAKES 4 CHIFS LEAVING 7 ... YOUR MOVE? 4 
$74 GOTO 230 THERE ARE & CHIFS ON THE BORED 
480 1F RCEL,L49=1 THEN 7a COMPUTER TAKES 2 CHIPS LEAVING 4 ... YOUR MOVE? 2 
$90 RCEL1., LA =R CEL, L49-14 THERE I5 4 CHIF ON THE BOARD 
Saa o0To 7a COMPUTER TAKES 4 CHIF 
S14 PRINT "COMPUTER TAKES 1 CHIF LEAVING"F" |... YOUR MOVE"; GAME OVER ... YOU WIN! ! 
S24 GOTO 226 
Sia PRINT "THERE IS 41 CHIF ON THE BOARD" THF S& ARE 45 CHIPS ON THE BOARD 
goTO 420 0 *UTER TAKES 2 CHIPS LEAVING 12 ... YOUR MOWE? 4 
PRINT "“COMPLITER TAKES 4 CHIF" The wtE ARE 3 CHIFS ON THE BORED 
eaten eie COMPLITER TAKES 2 CHIFS LEAVING 7 ... YOUR MOWED? 4 
a THERE ARE & CHIPS ON THE BORRD 
COMPUTER TAKES 2 CHIF LEAVING 5 ... YOUR MOVE? 4 
REFIDY THERE ARE 4 CHI ON THE BOARD 
COMPUTER TAKES 4 CHIPS 
GAME OVER |... YOU WIN!! 


THERE ARE 17 CHIPS ON THE BOAR 

COMPUTER TAKES 4 CHIFS LEAVING 42 ... YOUR MOVE? 4 
THERE ARE 3 CHI ON THE BOARE. 

COMPUTER TAKES ; HIFS LEAVING ? oye HORI: MOME = ete 
THERE ARE & CHIPS ON THE BORED. 

COMPUTER TAKES 1 CHIP LEAVING 5 ». SOUR MOVE? 4 
THERE ARE 4 CHIPS ON THE BOARD. 

COMPUTER TAKES = CHIPS LEAWING 4 -.. WOUR MOWE? 4 
GAME OVER ... I WIN!!! 


THERE ARE 19 CHIFS ON THE BOARD 

COMPUTER TAKES 1 CHIF LEAVING 18 ... YOUR MOVE? 2 
THERE ARE 16 CHIPS ON THE BORRD 

IOMPUTER TAKES 3 CHIPS LEAVING 42 ..» YOUR MOVE? 3 
THERE ARE 16 CHIPS ON THE BOARD 

COMPUTER TAKES 4 CHIPS LEAVING 6 .». YOUR MOVE? 4 
THERE ARE S CHIPS ON THE BORRD 

COMPUTER TAKES 4 CHIPS LEAVING 41 ven TOUR MOVES 4 
GAME CYER . TOWN 


THERE ARE 21 CHIPS ON THE BOARD 

COMPUTER TAKES 2 CHIPS LEAWING 49 ... YOUR MOVE? 4 
THERE ARE 15 CHIFS ON THE BOARD 

COMPUTER TAKES 2 CHIP LEAVING 17 |... YOUR MOVE? 4 
THERE ARE 13 CHIPS ON THE BORRD 

COMPUTER TAKES 4 CHIPS LEAVING & ... YOUR MOVE? 4 
THERE FIRE S CHIPS ON THE BOARD 

COMPUTER TAKES 4 CHIPS LEAVING 1° ... YOUR MOVE? 1 
GRIME OVER 2... YOU WIN}! 


THERE ARE 14 CHIFS ON THE BORRD 

ROMPUTER TAKES 4 CHIPS LEAVING 7 2 POURS BEWE od! 
THERE ARE 6 CHIFS ON THE BOARD 

COMPUTER TAKES 4 CHIF LEAVING 5S ... YOUR MOVE? 4 
THERE ARE 4 CHIFS ON THE BORED 

COMPUTER TAKES Z CHIPS LEAVING 4 -«. TOUR MOVES 2 
GAME OVER ... IT WIN!!! 


THERE ARE 14 CHIPS ON THE BOARD 
COMPUTER TAKES 4 CHIPS LEAVING 7 ... YOUR MOVE? @ 


REFCY 


98 


FIPFOP _....... 


Description 


The object of this game is to change this: 
OO Kt OO aC 

LOLEN 1S « 
OV O>.0" 0.0 OlOF Os 10" 6 


by typing in a number corresponding to the position of an "x" 
in the line. On some numbers one position will change while 
On Other numbers, two will Change. For example, inputting a 

3 may reverse the X and O in position 3, but it might possibly 
reverse some Other position too! -You ought to be able to 
Change all 10 in 12 or fewer moves. Can you figure out a good 
winning strategy? 


To reset the line to all X's (same game), type 0 (zero). To 
start a new game at any point, type ll. 


Program Author 


Michael Kass 
38 Lake Drive 
New Hyde Park, NY 11040 


VpULLbe hitht hh Le tel 


Ti 


Clk 


"the LfE a 


IITISMAO MMO 


PROGRAM LISTING 


es 
18 
20 
36 
48 
58 
69 
78 
88 
98 
186 
4128 
146 
1698 
1768 
188 
196 
208 
218 
2268 
2368 
246 
258 
268 
2? 
286 
2968 
368 
318 
3268 
338 
3468 
358 
368 
376 
336 
396 
409 
418 
426 
4936 
446 
458 
458 
476 
489 
498 
56 
518 
526 
52398 
548 
558 
5568 
S76 
588 
598 
658 
618 
6268 
636 
646 
658 
668 
6768 
686 
698 
asd) 
716 
v28 
736 
74g 
75a 
778 
7so 


REA 


REM x4 CONVERTED TO RSTS/E BY DAYIC AHL. DIGITAL 
REM xk CREATED 6Y MICHAEL KASS HERRICKS HS. NY 
PRINT "THE OBJECT OF THIS PUZZLE 15 TO CHANGE THIS: " 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
&"BY 
&"ON 
&"T0 
&"IN 
PRINT 
RANDOMIZE 

LET R=RNDCY) 
PRINT "HERE I5 
PRINT 

LET C= 

RE sleet cat ee 
PRINT "X X XK & 
PRINT 

DIM A¢ee) 

FOR xX=1 TO 16 

LET ASCKI="K" 

NEXT & 
60 TO 
PRINT “ILLEGAL ENTRY--TR' 
PRINT “INFUT THE NUMBER"; 
INFUT N 

IF N¢>INT CN? THEN 
IF N=44 THEN 158 
IF N>41 THEN 314 
IF N=@ THEN 226 
IF M=N THEN 514 
LET N=N 

IF AS{N>="O" 
LET ASCN2="0" 
LET R=TANCR4+N4G-NI-SINCRAND 42258 
LET N=R-INTCR? 
LET N=INTC1B4N) 
IF AF¢N>D="0" THEN 
LET AS¢ND="0" 

GO TO 618 

LET AFCND="K" 

IF M=N THEN 426 
GO TO 6158 
IF AFKND 
LET ASCND="0" 

LET R=. S924COTCRAN+G) SINC N# 2411) I 
LET N=R-INTCR)D 

LET N=INTC16+*N) 

IF ASCND="0" THEN 538 

LET AFCND="0" 

GO TO 616 

LET AFCND="K" 

IF M=N THEN 528 
PRUNES 2 as 405 
PRINT AF¢2Z>" 
BET sC=C+1 
PRINT 

FOR. Z=1) TO" 18 
Ll rea ae ori wi 
NEXT 2 

IF C>12 THEN 714 


"% KX XXX KA KAR 
TOs Secon 


"C5G) 0g 8 00" 0 ea D™ 

TYPING IN THE CORRESPONDING TO THE POSITION 
SOME NUMBERS. SITION WILL CHANGE. ON OTHER 
RESET THE LINE TO ALL &X“S. TYPE & (ZERO) AND TO 
THE MIDDLE OF A GAME, TYRE 11 (ELEVEN) * 


NUMBER 


“esse 


THE STARTING LINE OF 


228 
AGAIN" 


216 


THEN 454 


458 


THEN 


z2u 


PRINT"YERY GOOD. YOU GUESSED IT IN ONLY “C"GUESSES 
GO TO 726 

PRINT" TRY HARDER NEXT TIME. IT TOOK You “C"GUES: . 
PRINT "DO YOU WANT TO OO ANOTHER PUZZLE"; 

INPUT X¢ 

IF x$="NO" THEN 788 

PRINT 

Go T0 136 

END 
DY 


OF THE CETTERS 
THO WILL CHANGE" 


START A NEW" 


100 


SAMPLE RUN 
THE OBJECT OF THIS PUZZLE 1S TO CHANGE THIS: 


RK RR RK KX KK A 


TO) THISe 


906900 06,00 0.0 

BY TYPING IN THE NUMBER CORRESPONDING 
ON SOME NUMBERS. ONE POSITION WILL CHANGE, ON 
TO RESET THE LINE TO ALL &*S, 
IN THE MIDDLE OF A GAME, TYPE 11 (ELEWEN) 


OTHERS. 


HERE IS THE STARTING LINE OF %°5: 


Ae SIS US ceo) 48 
SOO RM OR ROR Ree 
INPUT THE NUMBER? 2 
4293-409 Wo aty oo 18 
(a Yiees ges sie Sem & Ja ae Sa as 
INPUT THE NUMBER? 2 
‘ia s 405 Bory = Site 
OORXXxXORK KKK 
INPUT THE NUMBER? = 
12 S45 6ee See te 
Oo0OxK xX OK OKR 
INPUT THE NUMBER? 4 
e2esL and (Of ono ae 
xoOoOOoOx OX OD XK xX 
INPUT THE NUMBER? 5 
1 2S ee Soe rte 
KOOOOK XOX & 
INPUT THE NUMBER? 5 
EASE Cn Sonal ERY ataseed ee) 
HOO000 KK K&R 
INPUT THE NUMBER? ? 
4, 2B 4 3607 S918 
sx 00000 K KX 
INPUT THE NUMBER? 3 
4 2 S45 668 918 
x xXooo000 0% XK 
INPUT THE NUMBER? 3 
a eee aR at conc eel se se 9 216 
Rk OO Os MeO soins 
INPUT THE NUMBER? 16 
WER SHAR Wtoal e aesyek fa 2) 
Hoe o0D oD oO OD 0 
INPUT THE NUMBER? 2 
D2) Ss 140 5) oy ee 9 1 
CSN ead v a 3 JON eek Bigs 8 el 2 
INPUT THE NUMBER? 6 
GR ak ret 5 onebe tae Y:) 
08 (00 BO) exo 6 
INPUT THE NUMBER? 3 
te2 See 6 eS. 9 18 
OPOeO ROR 0) 0 8) (08 iG 


TRY HARDER NEXT TIME. TT TOK Yew Ars GUESSES 


D0 YOU WANT TO DO ANOTHER PUZZLE? YES 
HERE IS THE STARTING LINE OF X”“S: 
42 379455 6 7 S$ 9 16 
HA KKK KK AK KR 
INPUT THE NUMBE 

12 SEGRS6 ¥ 6S 

OX XOX X KX X x 
INPUT THE NUMBER? 2 
L124 E56 7 Si 9) 5) 
80% OX XK AK RK 
INPUT THE NUMBER? = 
42S S56 7 S948 
O08 KR & KK 
INPUT THE NUMBER? 4 
42-3945 6 7 3.9 1B 
8 OX OK XX KK K 
INPUT THE NUMBER? 5 
12 S485 46 7-9-9418 
a2 4200 KK KK 
INPUT THE NUMBER? 6 
1. 26304 5 "6. te eo 18 
OX 000K X XX 
INPUT THE NUMBER? 7? 
19205 45556 7079 10 
nw 8X A DO OMOEA OX x 
INPUT THE NUMBER? 3 
i, 2 omer Cs 19 oD 
XOX 4X 000 KX 
INPUT THE NUMBER? 3 
123°4°5 6 7 8.9 46 
ROxXOxXO000 
INPUT THE NUMBER? 16 
42 SE4R5 61S S048 
8 xoooao0o0n0n0 
INPUT THE NUMBER? 2 
2) SSG ne ee Se 
Ooxxo00000 
INPUT THE NUMBER? = 
Pets SA SS citar ae) 
o00g000 00 O00 
VERY GOOD. YOU GUESSED IT IN ONLY 42 GUESSES!!! 


DO YOU WANT TO DO ANOTHER PUZZLE? NO 


READY 


TO THE POSITION OF THE LETTER 
TWO WILL CHANGE 
TYPE @ (ZERO) AND TO START A NEW PUZZLE 


FOOTBL 


Description 


GAME OF FOOTBALL 


Football is probably the most popular simulated sports game. 
Some people have elected to play computerized football in 
preference to watching a bowl game on television. 


The simulation uses standard professional football rules ex- 
cept there are no penalties. The computer takes the pakke ot 
your opposing team and also the referee. Eight plays can be 
run on offense and five on defense. The program presents 
necessary rules as you play. 


Source 


Two versions of football are presented herein. A third version 
received from Paul Garmon of Wellesley Jr. High School is not 
printed. 


FOOTBL: FOTBAL: 
Digital Equipment Corp. Raymond W. Miseyka 
Maynard, MA 01754 Bucier or. High Sehoor 


Butler, PA 16001 


s ss. , 
8 “ate 
seq gare 
as e- 


"Took! Jim has the ball! See him run! Run, Jin, baits nh 


LOW 


FOOTBL 


918 
920 
930 
948 


100 
161 
102 
103 
104 
105 
126 
197 
108 
109 
110 
111 
112 
113 
114 
115 
416 
V2, 
118 
119 


PROGRAM LISTING 


PRINT "THIS IS A DEMONSTRATION OF PDP=1i BASIC" 
PRINT "IF YOU NEED INSTRUCTIONS FOR PLAYING FOOTBALL, TYPE A 1 
INPUT I 

IF I<>{ THEN 340 
PRINT 
PRINT 

PRINT “WHEN IT ASKS YOU A QUESTION TO BE ANSWERED YES OR" 
PRINT "NO, TYPE IN @ FOR NO OR 4 FOR YES," 

PRINT 

PRINT "ON OFFENSE YOU HAVE THE FOLLOWING PERMITTED PLAYss" 
PRINT "PLAy","CODE" 

PRINT "RUN", "18" 

PRINT "PASS", "11" 

PRINT "SWEEP", "12" 

PRINT "SCREEN PASS","13" 

PRINT "LONG PASS","14" 

PRINT "DRAW PLAY", "15" 

PRINT "PUNT", "16" 

PRINT "FIELDGOAL","47" 

PRINT 

PRINT "ON DEFENSE, yOu MAY TRY ONE OF THE FOLLOWING?" 
PRINT "DEFENSE", "CODE" 

PRINT "NgRMAL","44%,"GoQD AGAINST SWEEp AND SCREEN" 
PRINT "HoLD","5","GQQD AGAINST RUN» PASS AND DRAW" 
PRINT "BLITZ","6","GoOD AGAINST PASS OR LONG PASS" 
PRINT "INTERCEPT", "7","]NCREASES THE ODDS FOR AN INTERCEPTION" 
PRINT "BLOCK","8","GIVES YOU A CHANCE TO BLOCK A KICK," 
PRINT " 4," ",BUT DECREASES THE DISTANCE RUNBACK," 
PRINT 

PRINT "TO CALL A PARTICULAR PLAY JusT TYPE ITs CODE NUMBER." 
PRINT "ALsg, AT ANY TIME DURING PLAY You MAY CALL TIME guT" 
PRINT "BY TYPING A 124, HoQwEVER YoU ARE PERMITTED ONLY THREE" 
PRINT "TIMEOUTS PER HALF," 

PRINT 

PRINT 

DEF FNT(X) SSINCX)/COS(X) 

DIM R(17) 

FOR I#a TO 17 

READ R(I) 

NEXT I 

DATA 9,13,100,9,9,19,12,11,12,9,1,5,3,4,6,2,8,7 
RANDOMIZE 

LET Fea 

LET Z3ag 

LET O20 

LET L2a 

OImM Z(5,3),P(2),0(2,5) 

FOR Az@ To 5 

FOR BRO TO 2 

READ Z(ArB),O(R,A) 

LET P(B)8@ 

NEXT B 

READ 7(4,3) 

NEXT A 

PRINT "Do YoU WANT To RECEIVE"$ 

LET xXe1 

GOSUR 3610 

LET S®2=SGN(13=0) 

LET KeS 

LET Tletea 

LET U2e3 

LET Us3 

LET C&9gqa 

GOSUB 2252 

LET Fi25a 

LET BEINTCF14+0#20*RND(A)4+ (1-0) #29%(2=RND (CO) A7=RND(A)A(3"Z2))) 
LET O8@ 

LET 2988 

GOSUB 1490 

LET Leo 

IF B<#99 THEN 2340 

PRINT "A TOUCHBACK" 

LET Beog 

LET L20 

IF S=2 THEN 770 

PRINT "MY "y 

GOTO 78a 

PRINT "YOUR "y 

GOSUB 3299 

GOSyB 2980 

LET Det 

LET F22,03 

LET 088 

IF Cee® THEN 2770 

GOSUB 253@ 

LET Z2et 

LET Z3ee3 

IF C<sF*Ty THEN 9929 

IF C<®&@ THEN 2779 

IF L22 THEN 9190 

PRINT "TIME To Gow="s 

PRINT INT(C/6Q)}3"MIN,"SC@6Q%INT(C/60)4"SEC, "9 
PRINT "YOUR PLAY"} 

GOSUB 3610 

IF Sal THEN 982 

IF Q>8 THEN 9228 

LET MsQ 

GOTO 1090 

LEY yea0es 

IF ABS(Qr1@,5)A2>3 THEN 920 
@ LET Cent (CmLw(54+23*RNO(K))) 
OPN [RR 
@ IF M87 THEN 1760 
@ IF Me8 THEN 1920 
® LET YiaYei 
@ IF RND(X)>Z(M=1,Y1) THEN 1240 
@ LET Aap 
@ GOSUB 3929 
@ IF M<4 THEN 1116 
®@ PRINT "PASS ComPLETE.."3 
® LET LESGNCINT(4*RND(Q))) 
@ IF RNDCX)<F2 THEN 2510 
® IF G>O THEN 1214 
® IF Ge® THEN 11740 

@ IF Ged<{ THEN 2170 

® PRINT "LOSS OF ";eGy 
@ GOTO 4649 
@ PRINT "NO GAIN" 
® LET Z982 
@ GOSUB 1499 


Ny 


102 


1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1362 
1370 
1380 
1398 
1400 
1410 
1420 
1430 
1440 
1452 
1468 
14708 
1480 
1498 
1500 
1510 
1520 
1530 
1540 
1550 
1568 
1579 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1662 
1678 
1680 
1699 
1720 
1710 
1720 
1732 
1740 
175@ 
1760 
1770 
1780 
1790 
1900 
1610 
1820 
1830 
1840 
1850 
1860 
1870 
1680 
1890 
1990 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
20108 
2020 
28320 
2040 
2050 
2062 
2878 
2080 
2090 
2120 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2160 
2190 
2280 
2210 
2228 
2238 
2248 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2322 
2330 
2340 
2350 
2360 
2370 
2380 
2390 


GOTO 1679 

IF B+G>99 THEN 1659 
PRINT "GAIN OF")G3 

GOTO 146140 

IF M>3 THEN 1280 

LET Asi 

GoSUB 3020 

GOTO 1120 

IF RND(X)<,26%(2°SGN(Y"3)) THEN 1366 
IF RND(Q@)<,@5+INT(Y/3.5)/5 THEN 1610 
LET 2936 

GOSUB 14948 

PRINT "PASS INCOMPLETE® 
CET Es¢ 

LET Gea 

GOTO 3120 

PRINT "PASS ##INTERCEPTED#e") 
LET Awl 

GOSUB 3920 

IF B<4@ THEN 1410 

LET Ge?aw(1+SGn(S)) 

LET Bz100=-B-G 

LET S83<S 

LET Z9"9 

GOSUB 1490 

IF B<i THEN 710 

IF B>99 THEN 1650 

PRINT "AT "jy 

GOTO 2360 

LET CaC#INy7 (4479/24 (1+RND(8))) 
RETURN 

LET Ge=(5+INTC1IM#*RND(X))) 
PRINT "THE QUARTERBACK "Jj 
IF RND(X)>,5 THEN 1560 
PRINT "TS THROWN FOR A "9 
GOTO 1110 

LET Ge=(2#G+ 8) 

LET May 

LET Az, 

PRINT "SCRAMBLES FOR A "ty 
GOTO 1110 

LET BaB+G 

PRINT "To "3 

GOSUB 33280 

IF B<=99 THEN 1670 

GOSUB 1990 

GOTO 6308 

IF Bi>B THEN 3120 

IF Bi<B THEN 1730 

IF RND(Q)>.5 THEN 1739 
PRINT "wweMEASUREMENTw#all 
GOSUB 3520 

IF RND(x)<,5 THEN 3120 
GOsuB 29828 

LET Dea 

GoTo 3120 

IF RND(X)<,06 THEN 1890 
LET BEB+3Q@+INT(15#(LeRND(X)A3)) 
LET z9s2 

GOSUB 1494 

IF B<agg THEN 1850 

LET Pis3 

GOSUB 2030 

IF Pisg THEN 740 

GOTO 63a 

PRINT "THE KICK IS "3 

LET Z2=e0 

LET 883-8 

GOTO 2340 

PRINT "#**BLOCKED#* RECOVEREDe."3 
LET Gt=INT(14*RND(X)) 
GOTO 4410 

PRINT "THE PUNT IS "9 

IF RNO(C¥)<,96 THEN 1892 
LET FieB 

LET Zend 

LET S23-s 

LEY 232.65 

GOTO 658 

PRINT "#w TOUCHDOWNwe! 
LET Pysy 

LET P(s)#P(S)+6 

LET B2130 

PRINT "THE KICK IS "3 

IF RND(X)<(B/132)44 THEN 2070 
LET Pis@ 

PRINT "NO "3 

PRINT "GOOD" 

LET P(S)sP(S)+P1 

GOSUB 2420 

LET Ss3-S 

RETURN 

PRINT "SCORE: ME"sPcdypn yOu"sP (2) 
LET Lea 

IF X<5 THEN 2160 

IF P(1)<>P(2) THEN 2770 
RETURN 

PRINT "wwSAFETY#e" 

LET P(3=S)=P(3=S)42 

LET Fy839 

LET s83-5 

GosuB 2120 

GOSUB 3440 

PRINT "FROM THe 20" 

GOTO 658 

GOSUB 3449 

IF S#2 yHEN 2330 

PRINT "ON=sSIDE") 

GosuB 3610 

IF Q<>13 THEN 2330 

LeT Fee.15 

LET Z2et 

LET O81 

RETURN 

LET B81g0=8 

PRINT "RECEIVED AT "y 
GOSUB 3300 

IF Z2#RND(X)>Z3 THEN 2490 
IF RNDCX)<F2 THEN 2500 
LET GeSe+INTC1A@*RND(Q)) 


2400 
2418 
2420 
2430 
2440 
2450 
24620 
2470 
2482 
2490 
2500 
2510 
2520 
2530 
2548 
2550 
2560 
2570 
2580 
2590 
2680 
2610 
2620 
26328 
2640 
2658 
2660 
2670 
2682 
2690 
2700 
2710 
2728 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2862 
28728 
2880 
2890 
2920 
2918 
2920 
2930 
2940 
2950 
2960 
29708 
2980 
2998 
3000 
3010 
3020 
303 
3040 
3256 
3260 
3870 
308@ 
3090 
3100 
3110 
3122 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3282 
3292 
3390 
3310 
3320 
3330 
3340 
33550 
3360 
3370 
3388 
3390 
3420 
3410 
3420 
3438 
3440 
3450 
3460 
3472 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 


IF RND(Q)<,15 THEN 2439 
LET GeINTC24*(1=RND(X)A2)) 
IF Ge@ THEN 24928 

LET Ba8+G 

PRINT ™ AND RUN BACK,,,"3 
LET tet 

IF B>99 THEN 1650 

PRINT " To "3 

GOSUB 3300 

IF RNO(@)>62 THEN 3260 
LET Gs@ 

PRINT "@##FUMBLE@wty 

GOTO 1410 

IF Sei THEN 25608 

LET YeINT(1+3,5*RNO(B)) 
RETURN 

LET, MBINT (554#RND(O)/10,5) 41 
IF (B{=B)/(5eD)<3 THEN 2590 
LET mMBINTCO=4¢RND(0)A2) 
IF L#Fe6A>2C THEN 2670 
IF 0<4 THEN 25590 

PRINT "VILL My 

IF B<55 THEN 2720 

IF O<4#RND(8)=B148 THEN 2750 
PRINT "TRY FOR A FIELD GOAL" 
LET Me7 

RETURN 

IF P(2)#u2<#P(1)*yu2 THEN 2600 
PRINT "TIME gur" 

LET U2eU294 

GOSUB 3520 

GOTO 2620 

PRINT "PUNT" 

LET Mss 

RETURN 

PRINT "GO FOR I7" 

RETURN 

IF x<4 THEN 2830 

IF P(1)5P(2) THEN 2830 
PRINT "THE GAME IS OVER" 
PRINT "FINAL "5 

GOSUB 2120 

STOP 

PRINT "END OF PERIOD")X 
GOSUB 2429 

LET Feier 

GosuB 3520 

LET Ca9a0 

LET X8X+1 

IF Fe>@ THEN 810 

LET Se3ek 

GOTO 58a 

IF 1189 THEN 9779 

PRINT "2 MINUTE WARNING" 
GOsub 3520 

LET risa 

LET C8120 

GOTO 88@ 

LET BisBelo 

IF By<2#1@0 THEN 3040 

LET Bi#100 

RETURN 

LET g81,3¥(AeRND(B)e1 =, 06 
LET Am} 

IF @>8G6 THEN 3070 

LET Aga 

LET Gs-Q 

LET MisMaj 

LET GeDCA,MI1)+FNT(GI*(D(2,M1)"D(A.M1))/3,5 
LET GeG+INT(RND(A)+,02) #Ae1ABeRND (2) 
LET GeINT(G) 

RETURN 

LET Dede1 

IF D5 THEN 3240 

IF D<> {1 THEN 3162 
PRINT "{ST"3 

IF De>2 THEN 3184 

PRINT "2QNDty 

IF O0<>3 THEN 3280 

PRINT "3RD"} 

IF 0<4 THEN 3220 

PRINT Na7Hys 

PRINT " AND"pB{eBon wy 
GoTo 812 

LET Seses 

LET 8210008 

IF S®2 THEN 770 

PRINT "My "y 

GOTO 78a 

PRINT "BALL ON "y 

IF Ba5a THEN 3400 

LET V®5Q=-48S8 (B59) 

LET C8CeINT(7+5*#RND(Q)) 
IF S81 THEN 3420 

IF B<5@ THEN 3370 

PRINT "MY "3 

GOTO 3380 

PRINT "YOUR "3 

PRINT V 

RETURN 

PRINT "THE 50" 

RETURN 

IF B<50@ THEN 3350 

GoTo 3370 

1F S82 THEN 3470 

PRINT "YOU"? 

GOTO 3480 

PRINT otitis 

PRINT " KICK OFF." 

LET F2®.96 

LET Zasq 

RETURN 

LET Lo 

PRINT "TIMEOUT CALLED..." 
PRINT 

RETURN 


3568 IF Us@ THEN 3600 

3579 LET UsueWy 

358g GOSUB 352¢ 

3598 GOTO 3610 

3688 PRINT ". WRONG, TRY AGAIN" 
3618 INPUT A 

3620 IF aBSCINT(A))>17 THEN 3600 
3638 LET QeRCINT(aBS(A))) 

3648 IF Q@e@ THEN 3600 

3650 IF Qe10% THEN 3560 

3669 RETURN 

3678 DATA 0592, 02554, 05513, .55 
368Qq DATA 645"24 63977 0650450075 
369@ DATA o4ee2e 3506 6515,,35 
3700 DATA ,65,=2,,65,6,,6,17,,9 
3718 DATA ,4,2,,7,10,,4,27,.2 
3720 DATA 644195 04,35, 52,188 y ol 
3738 END 


FOOTBL SAMPLE RUN 


THIS IS A DEMONSTRATION OF PDP-141 BASIC 
IF YOU NEED INSTRUCTIONS FOR PLAYING FOOTEALL, TYPE A 4? 4 


WHEN IT ASKS YOU A QUESTION To GE ANSWERED YES oR 
NO. TYPE IN @ FOR NO OR 4 FOR YES 


ON OFFENSE YOU HRYE THE FOLLOWING PERMITTED PLAYS: 
PLAY CODE 


RUN 19 

PASS 14a 

SWEEP 12 

SCREEN PASS 13 

LONG PASS 14 

DRAW PLAY 15 

PUNT 416 

FIELOGORL z 

ON DEFENSE. YOU MAN TRS ONE OF THE FOLLOWING: 

DEFENSE CODE 

NORMAL 4 GOOG AGAINST SWEEF AND SCREEN 

HOLD 5 GOOD AGAINST RUN. FASS AND DRAW 
BLIT2 6 GON0O AGAINST PASS OR LONG PASS 
INTERCEPT Ris INCREASES THE ODDS FOR AN INTERCEPTION 
BLOCK 3 GIYES YOU A CHANCE TO BLOCK A é 


TO CALL A PARTICULAR PLAY JUST TYPE ITS CODE NUMBER 
ALSO. RT ANY TIME DURING PLAY YOU MAS CALL TIME OT 

etre elPad ges LEV a Meee HOWEVER "OU ARE PERMITTED ONLY THREE 
TIMEOUTS PER HALF 


OO YOU WANT TO RECEIVE? 4 
I KICK OFF 
Ro TOUCHBACK 
YOUR BALL ON YOUR 26 
d4 MIN. 42 SEC. YOUR PLAY? 16 
LOSS OF 14 TO YOUR 419 
2N0 ANG 44 TINE TO GO-- 414 MIN. 24 SEL. 
Coss OF 2 7G YouUR” “ad 


YOUR PLAY? 12 


3RO ANG 45 TIME TO GO-- 14 MIN, YOUR PLAN? a4 
PRSS COMPLETE... GAIN OF 12 TO YOUR 
4TH AND 1 TIME TO GO-- 42 MIN, VOUR PLAY? 12a 


GAIN OF 16 TO YOUR 393 


AST AND 164 TIME TO GO-- 42 MIN, YOUR PLAN? 1% 
PASS COMPLETE.. GAIN OF 7 TO YOUR 

2ND ANG & TIRE 10 GO=- 13 MIN. S SEC. SOUR PLAY? 14 
PASS INCOMPLETE 

SRD AND sbee Winligha sey S120 TOR PB ts 


GAIN OF 2 TG YOUR 45 

4TH AND 2 TIME TH G8-- 12 MIN. 24 SEG, YOUR PLAN? 4 
GAIN OF S TOMY “47 

A5T AND 16 TIME TO GO-- 12 MIN. 4 SEC YOUR PLAY? 14 
PRSS INCOMPLETE 
2NO ARNO 16 


& 


TONING te SEE, YOUR PLAN? 14 


PASS INCOMPLETE 

RO AND 14 Ad MIN, eked 
PASS COMPLETE.. GRIN OF 

A57T RNG 16 11 MIN, 10 


GRIN OF 2°TO MY Rs 
2NC AND TIME TO GO== 24. MIN, 22 SEC. SOUR PLAY? 12 
NO GAIN 
3RO AND 9 TIME TO GU-- 16 MIN. S14 SEC. YOUR FLAN? 12 
PASS COMPEETE..LOSS OF 1 TO MY 34 
4TH AND 416 TIME TO GO== 10) MIN, Se SEG, YOUR PLAY? 17 
THE KICK IS NO Good 
SCORE: ME @ YOU @ 
Ro TOUCHBACK 
MY BALL ON MY 28 

16 MIN. 16 SEC SOUR PLAY? 4 
GAIN OF 2 TO MY se 
2N0 RND & TIME TO GQ=— 26 MINs = SEC 
PASS COMPLETE... GRIN OF 6 TO MY 28 
3RO ANG 2 SE Rh SUEY Reese RAE BAS fo acer de Real of 2 
GAIN OF 6 TO MWY 34 
157 AND 16 Lite TO Gh=— S$ MIN. Ss Set 
OSs) OR a Ti HY Ss 
2NO AND i4 TIME TO GO-- 3 MIN. 44 SEC 
PASS COMPLETE... GRIN OF 16 To MY 43 


YOUR PLAS? 5 
SOUR PLAY? 4 
“OUR PLAN? 5S 


YOUR PLAS? S&S 


41ST AND 14 So MN it SEL YOUR PLAY? 4 
PASS INCOMPLETE 
2NO AND 16 8 MIN. 2 SEC SOUR PLAY? S 


GAIN OF 42 TO YOUR 

15T AND 16 (ites TV Gi=— or PINS Seok VOUR PLAN? 4 
GAIN OF 4 To YOUR 3% 

2ND AND 3 TIME Te) GO== ~ MENS 22 SEL NOUR PLAN? 4 
GAIN OF 1 TO YOUR 37 

BRD AND $ TIME TO GO-- 7 MIN. YOUR FLAN? 4 


PASS COMPLETE.. GAIN OF 15 TO YOUR 
AST AND 10 TIME TO GO-- 6 MIN, 
GAIN OF ? TO YOUR 45 

2ND AND 3 TOME TO GO== 5 MIN. Se SEL: YOUR PLAY? 5S 
PASS INCOMPLETE 


YOUR FLAN? 4 
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Ke 


BUT DECREASES THE CISTANCE RUNERICK 


FOTBAL PROGRAM LISTING 

1 REN PROGRAM WRITTEN E64 RAY ONG Wo MISEWKA 

2 REM SENIOR AT BUTLER & HIGH : Oot 

3 REM BUTLER. LYANIA Lead 

4 REM DATE: 1/36/72 

5S REM COMPUTER SION- MR. WILLIAM ELLIS 

5 REM COMPUTER TO INSTRUCTION- MR. ALBERT STEWERT 

? REM I WROTE THIS PROGRAM BECALISE OF THE CHALLENGE 

8 REM INVOLVED IN OVERCOMING THE COMPLEXITIES OF SUCH A GAME 

3 REM 

18 REN 

188 RANDOMIZ 

126 DIM AC B »0C4h),HCS). TOS), WS o'C2)5 202) 

436 DIM M#¢2>.DB¢2) 

144 PRINT "RAMIS ENTERPRISES PRESENTS N.FO LL FOOTBALL ONG FORTRAN USEC" 

195 PRINTSERINT 

156 PRINT "DO YOU W "]SINPUT AS 
IF A¢="NO" THEN THEN 154 
PRINT "THIS IS A GAME FOR 2 TEAMS IN WHICH EACH PLAYER MUST" 
PRINT “PREPARE A TAPE WITH A CATA ATEMENT(A7 7a FOR TEAM 1" 
PRINT FOR TEAM 22 1N WHICH EAC : AMELES NOS. 1-24" 


SE we 


SB te 
IESG OW HR We 


f 


mann h 


~d 
on 


oom 


= 


Sano ue 


Lo 


ro] 
oS Ee 
Se 


ae 


3 PRINT 


GIVEN PLANS 
ARE PROVICED WITH" 


ARE THEN A 
ANC 


"THESE NUMBER 
I LGN Oe BeCRSs 


PRINT 


PRINT "GOTH TEAMS HAVING THE SAME FLA THE MORE SIMILAR THE" 
PRInd SEEAYS: He ee YARCAGE GAINED ORES ARE GIVEN" 

PRINT "WHENEVER : ARE MACE. : 4 MAY ALSO BE OETAINECG" 
PRINT "BY INPUTING FoR PLAY Ni. TOS) Gk A etien oe” 
PRINT “FIELOGORL. INPUT ht site PLAY NOS GUESTIONS WILL BE" 
PRINT "ASKED THEN. ON 47TH DOWN WOU WILL ALS sKEC WHETHER" 


PRINT "YOU WANT TO FUNT OR ATTEMPT A FIELD IF THE ANSHER" 


PRINT "TO BOTH GUESTIONS I5 NO. IT WILL BE WME SOU) WANT TO" 
PRINT "TRY AND GAIN YARCAGE. ANSWER ALL StU OR Ne? 
PRINT “GAME IS FLAYEO UNTIL PLAYERS TERM INFITE COONTRCIL —C) * 


5 TIF 
SINFUT E 


PRINT “PLEASE FREFARE A TAPE AND RUN 
PRINTSPRINT “INPUT IRE LIMIT ON GAME": 
FOR I=1 TO 4m" {4 THEN 254 


eo 


PRINT STERN PE Ri) CHER Te 

PRINT "NO. PLAY" SPRINT 

PRINT CcCt+L0s TAB "PITCHOUT" 

PRINT TRE TREE EMER Se « 
PRINT C 24 TRE ; "DRAW" 

PRINT © St ied "HB SNEAK" 

PRINT C* 3 TRE i; "END AROUNG 
PRINT Ct i THE i "DOUBLE REVERSE" 
PRINT C TRE aweE ts SMEER * 
PRINT TRE TenGtn pee 
PRINT 7 TRE DER TAGCKIE* 
PRINT 3 TRES 2a "WISHBONE OPTION" 
PRINT ie REAR Pe 


SCREEN FA 
J"ROLL OUT OPTION" 
¢ "RIGHT CURL” 
Fld 3) 2) SEY 
“WISHBONE OPTION" 
. CELINE FA 
ds "HALF-BACK OPTION" 
22a "RAZZLE DAZZLE" 

el esiart whit aT ST a Peta 


PRINT C¢12+b23 
PRINT bers St on 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


FoR 
For 2 
IFoL= 


SSNEaiT; 2 


Det eee 

Hea) 

Wed 

ver 

GOSUB 1944 

PRINT “TEAM 1 DEFENOS @ YD. GOAL--TEAM 2 CEFENDS 144 YD. GOAL” 
T=INTCStRND C0944) 

PROINTSPRIRT “TRE COIN Ts FLTRRPeEDe 

PEN¢T -4 674498 

GOSUB 4 PRINTSPRINT "TEAM" T"RECEIWES KICK-OFF" 
K=INTCSE+RNDCO9+48) 

PSPoWcT 4K 

IF WET? €T34+18 THEN S1@NPRINTSPRINT "BALL WENT OUT OF ENOZONE": 
PRINT "--AUTOMATIC ToL 6 =e NOT OS 

FRINTSPRINT “BALL WENT"K "YARD NOL CN Be AGOSUE 23a 

PRINT "TEAM"T"CO OU WANT To LINEA 


PN INPUT Ft 
DS Sa THEN 820 


CT 


THEN 4145 
T) THEN 


F AS<> "NO" 


PRINTSPRINT 
>1 THEN 
WOT #CPR+Y 
C=4560TO 


"TEAM" T "DOWN "0" ON 
ETT) 
CT)#1BD=80T) 


"Ps 


THEN 
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IF C=8 THEN 984 
PRINT TABC279318-¢4 
GOTO 315 
PRINT TA 
GOSUB 19 
RANDOMIZE 
U=INT(E#RND(O)-1)\GOTO 344 
PRINT “ILLEGAL PLAY NUMBER, 
PRINT “INFUT OFFENSIVE FLAY. 
rE T=2) THEN 
“INPUT Pat. PZ 
INPUT P2, P12 


ROT IAN CT Ps AROS 


IF D=4 THEN 115 


pie 


0 
+4 


mG cn Gi 


bs] 
8 


cs) 
BAS 
a 


PRINTSIF T=2 

Ne blk cP 1 THEN 144 
P2241 THEN 1449 

§ THEN 1625\F RINT 

To 1454 

iE 

"RUARTEREBA 


"PE 


B25 THEN 1444. 1F 
SCRAMBLED" 


PRINT 
PRINT 
PRINT 
PSP-We 
PRINTSPRINT 

G=RNOCOINITF 

PRINTSPRINT 
GOSUE 4 
Tikal 
IF WET? 
1g) oa che Bcd cai oh 
41149 D=Db+1\1IF 0 
PRINTSPRINT 
GOsue 1658.G0To 


1648 GI 
1845 
1448 
1656 
1668 
1676 
1435 
1166 
i116 


"PASS 
"THE BALL WAS 
Toe 


RLIN" 


SET 


YARCS 
S THEN 1114 


11486 PRINT “CUES TEAM"T"WANT TO PUNT 
1135 IF AF="NE SS > 
1136 PRINT ~PRINT "WILL UI ies 
L195 GOSUB 1856 REND CO9+2E5) 
PRINT "DOE TERM" T "WANT Ta ATTEMPT Fl 


IF AS="YES 
PRINTSPRINT 
HeTET) 2SHETET) 


46S 1F A: 


SUB 4 


PRINT "TEAM" T "D0 WANT TO PL 

CTI-WET? F="ES” THEN 

PRINTSPRINT "TOUCHDOWN BY TERM" 
RNC CO) SIF 4 THEN 


eSPRINT “EXTRA POINT NO 
PRINT "EXTRA aS 
Hi T?=H¢ ae 


oop" 


Bonn" 


PHP-W eT tk 
PRINTSPRINT "RUNBACK TEAM" Ts RY 
RANDO S=RNOCOINIF GX. 825 TH 


Giles Re ct 
IF CT THEN + ‘GOTO 
PRINTS SPRINT “TERM"T"WILL ATTEMF 


SOMIZENG=RNOCOINIF Gt. 825 TH 
S+#RNCOO +289 
SPRINT "KI FYYAR to 


SG=RNG CO) 


(To+F\RANOOM 
THENL?E5 
Ty 


THEN 17448 


GOOC FOR TEAM” 


WENT 


PRINT" BALL WIDE" 


A PRINT "FIELOGOAL UU & FUL T 
P GOSUB AS58N1F WT)» (T)+18 TH 
PRINT’ RINT NO A Site 


MER 


PRINT‘ 
PRINT 


SUG 
TEAM 2 PRI 
d€ TRINT "TERI 
RETURN 

PRINT 
8 PRINT 
bbttt" 

1374 RETURN 
BG PRINT TABCOCTI+54+F 4 
RoHS! Neleaidahh UW ag=yetnh aoe) 
dy DE 

1926 PRINT 

RETURN 

2668 ENG 


MAPEAEEAP AAFP HEPA HHH HH HT 


CTP CTS Ds 


CHECK 
DEFENSIWE PLAY"S 


"S\TNFUT At 


TI-W CT) #P 425) RNG C0) — 


“YARDS TO 157 DOWN" 


To Go" 


ANC" 


25) +#RND (09-159) 


INEGHEEETE TEAM" 7 


THEN 1445 


Woe 


pT 1454 
COMPLETED"\GOTO 1854 


GAINED ON DOWN"D"ARE "4 


ION FROM TEAM"T"TO TEAM"T<CT) 


LE REA osha td 


THEN 1: 
IND COON TF G4 


B25 THEN tame 


ST=TCTONGOTO F348 


FIELO-GOAL *s SINPUT At 


== Se 
NT INSTERO OF A KICKOFF": 


1196 
TT Me EE Ee etd 


SINPUT AS 


sees AGERE TERM" 


GOTO 1238 


SK) 


ARC 
EN 14 


FIELD GOAL” 
EN 1458 


eat 


J ase te tte tke dtd 4 EA" 


EAN rine see eee. 
EN 1745T=T6TINE 


-—ToOO BAG" 


NT 


(TOWNES datbaasctdeaakasaed "GET 


FHAHAFHAFHAFA+ FAFA +++ FEF +++ 444444444 


ox 
= 
on 


SAMPLE RUN 


RAMIS ENTERPRISES PRESENTS NF. U. FOOTBRALLONG FORTRAN LISED) 


DO YOU WISH INSTRUCTIONS 


Tees 


THIS I5 A GAME FOR 2 TEAMS IN WHICH EACH PLAYER MUST 
STATEMENT(1 778 FOR TEAM 2 


PREPARE A TAPE WITH A DATA 
1736 FOR TEAM 2)IN WHICH EACH TEAM 
THESE NUMBE ARE THEN ASSIGNED To 
A LIST OF NOS. ANG THEIR PLAYS ARE PROMIDED WITH 
BOTH TEAMS HAVING THE SAME PLA 
FEE See Es TLE | WARCAGE GAINED. 
WHENEVER SCORES ARE MADE. SCORES 
BY INFUTING 39.99 FOR PLAY NOS... TO PUNT oO 
FIELDGORL, INPUT 77.77 FOR PLAY NOS. oo 


NO 


RES ARE GIYEN 


“OU WANT TO PUNT OF 
TO BOTH QUESTIONS 15 NO. IT WILL BE 
TRY AND GAIN YAROAGE. ANSWER ALL BUESTIO 
GAME IS PLAYED UNTIL FLAYERS TERMINATE ¢ 
PLEASE PREPARE A TAPE ANC RIN, 

STOP An LPNE 


OR! 


READY 


RUNNH 


RAMIS ENTERPRISES PRESENTS N.FOU FOOTERLLONG FORTRAN LISED 


DO YOU WISH INSTRUCTIONS 3? NiO 


INPUT SCORE LIMIT ON GAME? 
TERM 2 PLAY CHART 


NO. PLAY 
a Ore PITCHOUT 
5 TRIPLE REVERSE 
4 CRAM 
44 RE SNEAK 
ale) ENC AROUND 
os COUBLE REVERSE 
48 Eat 
it RIGHT 
i OFF T 
aE WISHBONE OPTION 
ita} 
2 
bs) OUT OPTION 
24 RIGHT CURL 
Q EE ety ee 


13 WISHBONE OF TION 

16 SUPE INES iPr 

es HALF-BACK OPTION 

she RAZ2LE 0 eIZE: 

6 BOMB! thr vote 

TEAR OFF HERE --~=~~-----~--~~--~--~---~-~~~---~~~~~~~~-~~---__~ 


TEAM & PLAY CHART 
NO PABA! 


PITCHOLUT 
TRIPLE REVERSE 
CRAM 

GE SNEAK 

ENG AROUND 


od 


8 COUBLE REVERSE 
2 KEPT 
4 RIGHT 


OFF TAL 
WISHBONE OPTION 
FLARE PR 


mf io 


BE me wins 
WISHBONE OPTION 
STRELINE FA 
HALF-GACK OF TION 
RAZZLE CAZe 
BOMB! r rrr 


un 


Tm Wt 


WERDER WVE RP RE BRP oOo 


TWINS Bele ASUS arte teat EE ae 


GIVEN PLAYS. 
5. THE MORE SIMILAR THE 


MAY ALSO BE OETAINED 
ATTEMPT A 
IONS WILL BE 
ASKED THEN. GN 47H COWN YOU WILL ALSO BE ASKED WHETHER 
ATTEMPT A FIELO GOAL. IF THE ANSWER 
WMEC YoU WANT TO 


INTROL =I 9 


TEAM 41 C8 146 24 


le 


a] 44 58 6a 7a aa 38 144] TEAM 2 
TEAM 1 DEFENDS @ YD. GORL--TEAM 2 DEFENDS 140 Yo. GOAL 


THE COIN IS FLIPPED 
FEHEFHEFATALH LAFF TF PAP ETA F APA P A+++ t+ tt t+ tess eteseaggetesasesesaes 


TEAM 2 RECEIVES KICK-OFF 


BALL WENT S53 YARDS. NOW ON 32 


TEAM 406 46 26 36 40 SH 6H 7H 88 95 4a) TEAM 


ice 


TEAM 2 DO YOU WANT TO RUNEACK? ES 


TEAM 


TERM 2 DOWN 4+ GN 


TEAMeeE Lis 14 28 


INPUT OFFENSIVE PLAY. DEFENSIVE PLAY? 19.44 


PAS 


TEAM 2 DOWN 2 ON FS 


aa 
a 
i= 
tr 
= 
be 
uy 
Ef 
= 
es 


TSTaiih aU Mets! 164 ea) 24 448 Si oe 7a 


ive 
= 
= 
= 
u 
ri 
m 
aD 
= 
f 


UNPUT OFFENSIVE PLAY. CEFENSIWE PLAY? = 


PASS INCOMPLETE TEAM 2 


TEAM 2 DOWN 3 ON 73 
TEAM 2 04 45 2 mds oy 14H) TEAM 2 
INPUT OFFENSIVE PLAY. CEFENSIVYE PLAY? 3.24 

THE BALL WAS RUN 


NET YAR 


GAINED 


TEAM 2 DOWN 2 ON FAL 


Hf = 


fe 
i 
oA 
7 

= 
~ 
oS 
ae 

iad 


188) TEAM 2 


INPUT OFFENSIVE FLAY. CEFENSIYE PLAY? 218.5 


TEAM 2 DOWN 2 ON FA 


TEAM 4° 6G 46 2a =a 44 Sa eo 7a Ba a laa] TEAM 


INPUT OFFENSIVE FLAY. DCEFENSIWE FLAY? 3 


THE BALL WAS RUN 


TEAM 2 GOWN 3 ON &F 6 YARCS TO 157 DOWN 
TEAM 2 08 16 eo 4 44 Se eA 74 ae a 14a] TEAM 2 
INPUT OFFENSIVE PLAY. CEFENSIYE PLAY? 7.27 


PASS COMPLETEO 


5 GAINEG ON DOWN = 


TEAM 2 COWN 41 ON 44 


PEAM eC 168 24 26 


INPUT OFFENSIVE PLAY. DEFENSIVE FLAY? 


PASS TNCOWPLETE TEAM 2 


INEC GN COWN 1 ARE «4 


TERM 2 GOWN 2 ON 


TERM 1 C9 16 


TMPUT OFFENSIVE PLAY. DEFENSIVE PLAY? 2.418 


PR TIC CHPLET EER S 

NET YARCS GAINED ON COWN ARE 

TEAM 2 BOWN 3 ON 43 18 YAROS TO 257 DOWN 

TUS aige se Vets) 18 2 =8 44 7a Ba 38 144] TEAM 2 


lal 


cert 


INPUT OFFENSIVE PLAY. CEFENSIYE PLAY? 


PASSe UNEDHPEETE. Teh) 2 


NET YAROS GAINED ON DOWN 


FURS FUR TRADING EXPEDITION 


Description 


You are the leader of a French fur trading expedition in 1776 
leaving the Ontario area to sell furs and get supplies for the 
next year. You have a choice of three forts at which you may 
trade. The cost of supplies and the amount you receive for your 
furs will depend upon the fort you choose. You also specify 
what types of furs that you have to trade. 


The game goes on and on until you elect to trade no longer. 
source 


Thanks to Ann Brebner for sending us the program. It was 
originally written by: 


Dan Bachor 

Dept. of Educational Psychology 
University of Calgary 

Calgary, Alberta, Canada 


ul 
Ah, here’s your guide now.” 


-B.fetly 


© 1962 by The New Yorker Magazine, Inc. 
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PROGRAM LISTING 


1D 
2R 
15 


IM F(4) 
ANDOM 
GOSUB 12914 
LET le6ae 
PRINT "Do YoU WISH To TRADE FURS?" 
GOSUB 14602 
IF BSE"YES" THEN 100 
IF BSS"NO" THEN 2200 
GOSUB 1402 
PRINT 
PRINT "YOU HAVE $"yy7 "SAVINGS," 
PRINT "AND 19g FURS TO BEGIN THE EXPEDITION," 
PRINT 
PRINT "YOUR 190 FuRs ARE DISTRIBUTED AMONG THE FOLLOWING" 
PRINT "KINDS OF PELTSt MINK, BEAVER, ERMINE AND FOX," 
GosuB 1432 
RESTORE 
FOR Js1 To 4 
READ BS 
PRINT 
PRINT "HOw MANY "7B$ pH PELTS DO YOU HAve"y 
INPUT F(J) 
LET F(A) SF C1) 4+F(2)4F(3)4F (4) 
IF F(@)2#19@ THEN 1100 
IF F(@)>190 THEN 500 
NEXT J 
GO TO 112a¢ 
PRINT 
PRINT "YOU MAY NOT HAVE THAT MANY FURS," 
PRINT "D0 NOT TRY TO CHEAT, I CAN ADD," 
PRINT wYQU MUST START AGAIN,w 
GO TO 15 
PRINT 
PRINT "DO yOU WANT 7O TRADE Furs NEXT YEAR?" 
GO TO 186 
1 PRINT "You ARE THE LEADER OF A FRENCH FUR TRADING EXDEDITIan In 
2 PRINT "1776 LEAVING THE LAKE ONTARIO AREA To SELL FURS AnD GET" 
3 PRINT "SUPPLIES FOR THE NEXT YEAR, YOU WAVE A CHOICE OF THREE" 
4 PRINT "FORTS AT WHICH YOU MAY TRADE, THE COST Of SUPPLIES" 
5 PRINT "AND THE AMOUNT YOU RECEIVE FOR YOUR FURS WILL DEPEND" 
6 PRINT "ON THE FORT THAT YOU CHOOSE," 
9 RETURN 
@ PRINT "DO YOU WANT TO TRADE YOUR FURS AT FORT 4, FORT 9," 
2 PRINT "OR FORT 37 FORT 4 IS FORT HOCHELAGA (MONTREAL)" 
3 PRINT "AND IS UNDER THE PROTECTION OF THE FRENCH ARMY," 
4 PRINT "FORT 2 IS FORT STANACONA (QUEBEC) AND IS UNDER THE" 
5 PRINT "PROTECTION OF THE FRENCH ARMY, HOWEVER, YOU MUST" 
6 PRINT "MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS," 
8 PRINT "FORT 3 IS FORT NEW YORK AND IS UNDER DUTCH CONTROL," 
9 PRINT "YOU Must CROsSs THROUGH IROGYOIs LAND," 
@ PRINT "ANSwER 1, 2, Og 3," 
1 INpuT 6 
2 IF Bs} THEN 1120 
3 IF B82 THEN 1135 
5 IF Be3 THEN 1147 
6 GO TO 1110 
@ PRINT "YOU HAVE CHOSEN THE EASIEST ROUTE. HOWEVER, THE FORT" 
1 PRINT "IS FAR FROM ANY SEAPORT, THE VALUE" 
2 PRINT "YOU RECEIVE FOR YOUR FURS WILL BE LOW AND THE Cost" 
3 PRINT "OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEW YORK,n 
5 GOSUR 1400 
9 IF BSE"VYES" THEN 1110 
@ GOTO 1160 
5 PRINT "YoU HAVE CHOSEN A HARD ROUTE, IT IS, IN ComMPARSION," 
6 PRINT "HARDER THAN THE ROUTE To HOCHELAGA BUT EASIER THAN" 
7 PRINT "THE ROUTE To wEW YORK, YOU WILL RECEIVE AN AVERAGE VALU 
8 PRINT "FOR YOUR FURS AND THE COST OF YOUR SUPPLIES WILL BE AVER 
1 GOSUB 1400 
4 [F BS2"YES" THEN 1119 
5 GOTO 1198 
7 PRINT "YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE, aT" 


"FORT NEW YORK YOU WILL RECEIVE THE HIGHEST VALUE" 
"FOR YOUR FURS. THE COST OF YOUR SUPPLIES" 

@ PRINT "WILL BE LOWER THAN AT ALL THE OTHER FORTS," 

2 GOSUB 1420 
5 IF Bss"yesu 
6 GOTO 125% 
LET I2l-160 
PRINT 

LET MIBINT((,.2*RND(O) 4.7) ¥1204,5)/100 

LET ELFINT((.2*RND(A) 4,65) #10A24+,5)/10A2 

LET BLeINT((,2*RND(O) 4.75) ¥10A2+,5)/19A2 

LET DISINT((C.2*RND(O) 4,80) ¥10A2+,5)/1BA2 

PRINT "SUPPLIES AT FORT HNCHELAGA COST $150,228" 

1 PRINT "YOUR TRAVEL EXPENSES TO HOCHELAGA WERE B1{H0e00" 


@ PRINT 
9 PRINT 


THEN 1119 


al 
4Ge" 
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1199 
1198 
1201 
1205 
1206 
1207 
1209 
1218 
1212 
1213 
1215 
1216 
1218 
1219 
1220 
1221 
1222 
1224 
1225 
1226 
1230 
1231 
1232 
1233 
1235 
1237 
1238 
1239 
1240 
1244 
1246 
1248 
1250 
1254 
1260 
1261 
1262 
1263 
1270 
1271 
1272 
1273 
1274 
1281 
1282 
1283 
1284 
1291 
1292 
1293 
1295 
1300 
1301 
1303 
1304 
1326 
1307 
1328 
1349 
1341 
1312 
1320 
1322 
1400 
1402 
1403 
1404 
1410 
1412 
1414 
1416 
1417 
1418 
1429 
1422 
1425 
1430 
1432 
1434 
1436 
2000 
2046 
2200 
2210 
2220 


GO TO 1430 

LET lelei4a 

PRINT 

LET MIBINT(C.3*#RND(O)+.85) 4#10A24,5)/10A2 

LET ELFINT((,15*RND (2) 4,80) #10A2+,5)/10A2 

LET BimwINT((C,2#RND()+,90) ¥10024,5)/1 02 

LET PmaINT(1Q#RND(NG)) +4 

IF P<s2 THEN 1216 

IF P<e&6 THEN 4224 

IF P<#8 THEN 1226 

IF p<=1@ THEN 1235 

LET F(2)80 

PRINT "YOUR BEAVER WERE Too HEAVY To CARRY ACROSS" 

PRINT "THE PORTAGE, You HAD TO LEAVE THE PELTS BUT FOUND" 
PRINT "THEM STOLEN WHEN YOU RETURNED" 

GOSUB 1244 

GO TO 1414 

PRINT "YOU ARRIVED SAFELY AT FORT STADACONA" 

GO TO 1239 

GOSUB 4430 

PRINT "YOUR CANOE UPSET IN THE LACHINE RAPIDS, 
PRINT "LOST ALL YOUR FURS" 

GOSUB 1244 

GO TO 1418 

LET F(4)80 

PRINT "YOUR FOX PELTS WERE NOT CURED PROPERLY," 
PRINT "NO ONE WILL BUY THEM," 

GOSUB 1244 

GO TO 1418 

PRINT "SUPPLIES AT FORT STADACONA COST $125,008" 
PRINT "YOUR TRAVEL EXPENSES TO STADACONA WERE $15,220" 
RETURN 

LET Teleias 

PRINT 

LET MLBINT(C.15*RND (2) +1495) ¥10A24.5)/1 042 

LET ELFINTCC,15*RND(y)+,95) #1 Qa24 5) /1ga2 

LET BLSINTCC,25¢RND( 0) 41,00) H12A2+,5) /10A2 

Cer DLSINT((,25«RND (0) 41,10) ¥1GA24,5) /1BA2 

LET PaINT(1@#RND(O)) 44 

IF P<ws2 THEN 1281 

IF P<s6 THEN 1291 

IF P<aB THEN 1295 

IF P<aia THEN 1326 

PRINT "YOU WERE ATTACKED BY A PARTY OF IROQUOIS," 
PRINT "ALL PEOPLE IN YOUR TRADING GROUP WERE" 

PRINT "KILLED, THIS ENDS TRE GAME," 

STOP 
PRINT 
PRINT 
GO TO 
GOSUB 
PRINT 
PRINT 
GOSUB 4329 

GO TO 1418 

LEY B1sBi/2 

LET MisMi/e2 

PRINT "YGUR MINK AND BEAVER WERE DAMAGEN ON YOUR TRIP." 

PRINT "YOU RECEIVE ONLY HALF THE CURRENT PRICE FOR THESE FURS," 
GOSUE 1320 

GO TO 1410 

PRINT "SUPPLIES AT NEW YORK COST $80,090" 

RETURN 

PRINT "DG yOU WANT TO TRADE AT ANOTHER FORT?" 

PRINT "ANSwER YES OR NO", 

INPUT BS 

RETURN 

PRINT 

PRINT "YOUR BEAVER SOLD FOR S"FB1l*F (2); 

PRINT "YOUR FOX SOLD FOR S"s044F (4) 

PRINT "YOUR ERMINE SOLD FOR S"pE{uF(3)3 

PRINT "YOUR MINK SOLD FOR S"IM{wF CL) 

LET TOMtaF (1) 4B LeF (2) +E LaF (3) 401 eF (4) 4! 

PRINT 

PRINT "YOU NOW HAVE $"s15" INCLUDING YOUR PREVIOUS SAVINGS" 

GO To 528 

FOR gei To 4 

LET F(J) 38 

NEXT J 

RETURN 

DATA "MINK", "BEAVER", "ERMINE", "FOX 

END 

PRINT 

PRINT "yOU ENDED yOyR FUR TRADING wlyH gHiIn,n 

PRINT "HOPE yOy ENJOYED YOURSELF" 


You" 


"YoU WERE LUCKY, YoU ARRIVED SAFELY" 

"AT FORT NEW YORK." 

1311 

1430 

"YOU NARROWLY ESCAPED aN IROQUOIS RAIDING PARTY," 
"HOWEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHIND," 


SAMPLE RUN 


YOU ARE THE LEADER OF A FRENCH FUR TRACING EXPECITICN IN 
4776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS ANC GET 
SUPPLIES FOR THE NEXT ‘EAR. SOU HAYE A CHOICE OF THREE 
FORTS AT WHICH YOU MAY TRADE. THE COST OF SUPPLIES 

AND THE AMOUNT YOU RECEIVE FOR YOUR FURS WILL DEFEND 

ON THE FORT THAT YOU CHOOSE 

Co YOU WISH TO TRACE FUR 
ANSWER YES OR NO foes 


YOU HAVE ¢$ 660 SAYINGS 
AND 199 FURS TO BEGIN THE EXPEDITION. 


YOUR 196 FURS ARE DISTRIGUTED AMONG THE FOLLOWING 
KINDS OF PELTS: MINK, BEAVER. ERMINE AND Fos 


HON MANY MINK FELTS OO YOU HAVE? Se 
HOW MANY BEAVER FELTS OO YOU HAYE? 44 
HOW MANY ERMINE PELTS CO WOU HAVE? 5 


HOW MANY FOX PELTS CO YOU HAVE? 5 

CO YOU WANT TO TRACE YOUR AT FORT 1. FORT 2 
OR FORT 3? FORT 1 IS FORT HOCHELAGA (MONTREAL? 
AND IS UNDER THE PROTECTION OF THE FRENCH ARMM 
FORT 2 15 FORT STACACONA (BUEBEC? ANC IS UNDER THE 
PROTECTION OF THE FRENCH ARMY. HOWEVER. YOU MUST 
MAKE A PORTAGE ANC CR THE LACHINE RAPICS 
FORT 2 15 FORT NEW YORK AND IS UNCER CUTCH CONTROL. 
YOU MUST CROSS THROUGH IROGUOTS LANG. 

ANSWER 4, 2, OR &. 

2% 

YOU HAYE CHOSEN THE MOST CIFFICULT RUOLITE. AT 
FORT NEW YORK YOU WILL RECEIVE THE HIGHEST WALUE 
FOR YOUR FURS. THE COST OF YOUR SUPPLIES 

WILL BE LOWER THAN AT ALL THE OTHER FORTS. 

DO YOU WANT TO TRACE AT ANOTHER FORT? 

ANSWER YES OR NO 7 NO 


WOU NARROWLY ESCAPEC AN IROGLOIS RAICING PARTY. 
HOWEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHING. 
SUPPLIES AT NEW YORK COST $38. aa 

YOU NON HAVE ¢ 495 INCLUCING YOUR PREYIOUS SAVINGS 


OO YOU WANT TO TRADE FURS NEXT YEAR? 
ANSWER YES OR NO te ERE 


YOU HAYE $ 495 SAYINGS 
AND 196 FURS TO BEGIN THE EXPEDITION 


YOUR 196 FURS ARE DISTRIBUTED AMONG THE FOLLOWING 
KINDS OF PELTS: MINK, BEAVER. ERMINE AND Fox. 


HON MANY MINK FELTS CO YOU HAVE? Se 
HOW MANY BEAVER FELTS CO YOU HAYE? 44 


HOW MANY ERMINE PELTS CO VOL! HAVE? Se 


HOW MANY FOX PELTS BO YO! HAVE? 
BDO YOU WANT TO TRADE YOUR Fu AT FORT ft, FORT 2 
OR FORT 3? FORT 4 15 FORT HOCHELAGA (MONTREAL? 
AND IS UNDER THE PROTECTION OF THE FRENCH ARM 
FORT 2 15 FORT STAGACONR (BUEBEC) AND IS UNDER THE 


bal] 


FROTECTION OF THE FRENCH ARMY. HOWE WER. 1 MUST 
MAKE A PORTAGE AND CROSS THE LACHINE RAFI 
FORT 3 IS FORT NEW YORK ANG IS UNDER DUTCH CONTROL 


YOU MUST CROSS THROUGH IROGUOI 
ANSWER 4, 2. OR 3. 


sree) 


LANE: 


YOU HAYE CHOSEN A HARD ROUTE. IT IS. IN COMPARS ION, 
HARDER THAN THE ROUTE TO HOCHELAGA BUT ERSIER THAN 
THE ROUTE TO NEW YORK. 
FOR YOUR FURS ANC THE COST OF SOUR 
CO YOU WANT TO TRACE AT ANOTHER FORT? 
ANSWER YES OR NO 7 NO 


YOUR FOX PELTS WERE NOT CURED PROPERLY. 
NO ONE WILL BUY THEM. 

SUPPLIES AT FORT STADACONA © 
YOUR TRAVEL EXPENSES TO STAG 


YOUR BEAVER & 
YOUR ERMINE S$ 


LO FOR ¢ 44.4 YOUR Fox 


a SOLO FOR $ @ 
OLD FOR # 46 YOUR MINK 


OLO FoR # 46.5 


YOU NOW HAVE # 487.2 INCLUDING YOUR PREVIOUS SAYINGS 


YOU WILL RECEIVE AN AVERAGE YALUE 
SUPPLIES WILL BE AVERAGE 
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DG YOU WANT TO TRADE FURS NEXT YEAR? 
ANSWER YES OR NO Pose. 


YOU HAVE $ 487.9 SAYINGS 
AND 19@ FURS TO BEGIN THE EXPEDITION 


YOUR 196 FURS ARE DISTRIBUTED AMONG THE FOLLOWING 
KINDS OF PELTS: MINK. BEAYER, ERMINE ANC Fels 


“HOW MANY MINK FELTS GO YOU HAVE? 68 


HON MANY BEAVER PELTS OO YOU HAVE? Sa 
HOW MANY ERMINE FELTS DO SOU) HAVE? 44 


HON MANY FOX PELTS OO OU HAVE? 46 

CO YOU WANT TO TRADE YOUR FL AT FORT 1. FORT 2, 
oR FORT 2? FORT 1 15 FORT HOCHELAGA (MONTREAL) 
FIND IS UNDER THE PROTECTION OF THE FRENCH ARMY 
FORT 2 15 FORT STADACONA (QUEBEC) AND IS UNDER THE 
PROTECTION OF THE FRENCH ARMY. HOWEVER. OW MUST 
MAKE A PORTAGE-ANG CROSS THE LACHINE RAP ICS 

FORT 3 IS FORT NEW YORK ANC IS UNCER CUTCH CONTROL 
YOU MUST CROSS THROUGH ITRORUOIS LANG. 

ANSWER 41. 2. OR 3. 


rd 


YoU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT 
FORT NEW YORK YOU WILL RECEIVE THE HIGHEST ¥ALUE 
FOR YOUR FURS THE COST @F YOUR SUPPLIES 

WILL BE LOWER THAN AT ALL THE OTHER FORTS 

DO YOU WANT TO TRACE AT ANOTHER FORT? 

ANSWER YES OR NO ? NO 


YOUR MINK ANG BEAVER WERE CAMAGED ON ‘OUR TRIF 
YOU RECEIVE ONLY HALF THE RRENT PRICE FoR THESE FURS 
SUPPLIES AT NEW YORK COST #88, a8 


YOUR BEAVER SOLD FOR 


$28 YOUR FOsx SOLO FOR # 46 
YOUR ERMINE SOLC FOR # 4 


6 YOUR MINK SOLD FOR # 25.4 


YOU NOW HAVE # 535.6 INCLUDING YOUR PREVIOUS SAYINGS 


Do YOU WANT TO TRACE FURS NEXT YEAR? 
ANSWER YES OR NO ae ie 


YOU HAVE ¢ els 
ANC 196 FURS TO BEGIN THE EXPEDITION 


YOUR 494 FURS ARE DISTRIBUTED AMONG THE FOLLOWING 
KINDS OF PELTS: MINK, BEAVER, ERMINE AND Fi 


HOW MANY MINK PELTS BO YOU HAVE? Se 
HOW MANY BEAVER PELTS CO YOU HAVE? 48 
HON MANY ERMINE PELTS CO YOU HAYE? 5B 


HOW MANY FOX PELTS GO YOU HAYE? Se 

DO YOU WANT TO TRADE SOUR FURS AT FORT 1d. FORT 2, 
OR FORT 2? FORT 1 15 FORT HOCHELAGA (MONTRERL® 
AND IS UNDER THE PROTECTION OF THE FRENCH ARMS! 
FORT 2 15 FORT STACACONA (S@UEBEC® ANC IS UNCER THE 
FROTECTION OF THE FRENCH ARMY. HOWEVER. SOI MUST 
MAKE A PORTAGE AND THE LACHINE RAPICS 

FORT 3 15 FORT NEW YORK ANG IS UNCER CUTCH CONTROL 
YOU MUST CROSS THROUGH ITROeUOTS LANG 

ANSWER 4. 2, OR & 

aa 

YOU HAVE CHOSEN THE EASIEST ROUTE 
1S FAR FROM ANY SEAPORT. THE WALUE 
WOU RECEIVE FOR YOUR FURS WILL BE LOW ANC THE Cost 

OF SUPPLIES HIGHER THAN AT FORTS STADACONA OF NEW YORK 
CO YOU WANT TO TRADE AT ANOTHER FORT? 
ANSWER YES OR NO ? NO 


HOWEVER. THE FORT 


SUPPLIES AT FORT HOCHELAGA COST $4154, aa 


YOUR TRAVEL EXPENSES TO HOCHELAGA WERE #18. aa 


YOUR BEAYER SOLD FOR ¢ 
SOUR ERMINE SOLD FOR + 


TOUR Fo 
OLR MINK 


SOLE FOR # 49,5 
SOLD FOR # 42.5 


YOU NOW HAVE ¢ 536.4 INCLUDING YOUR PREYIOUS SAYINGS 


DO YOU WANT TO TRADE FURS NEXT YEAR? 
ANSWER YES OR NO ? NO 


GOLF 


Description 


18 HOLES OF GOLF 


Up to four players may play up to 18 holes of golf. The length 
of each hole and par are given to the players. Each player 
chooses a club and the computer determines the results of the 
shot. A player can duff a shot or get a hole in one. There 
ale also» water hazards, rough, and sand traps’. Notes Iteis 
Sometimes very difficult toehip out. of a sandtrap. 


Computer Limitations 


This version of GOLF was written for a DIGITAL EduSystem 30; 
however, Statements 140 and 150 are the only ones unique to 
that system and may be easily changed. When using EduSystem 30, 
the NOLINE command must be given before running. 


Program Author 


There are several good one-player golf games. Paul Raymond 
of College St. Laurent, Quebec, submitted one and another 
has been around DIGITAL for years. However, this is the 
best multi-player version we've seen. Available from DECUS 
as BASIC 8-560, it was written by: 


Howard Kargman 
194 King Philip Drive 
West’ Hartford; Cr 06117 


© 1966 by The Curtis Publishing Co 
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PROGRAM LISTING 


AGGRANDOMIZE 
ALGDINX (2H) 


A2GPRINT"DO YOU WANT DIRECTIONS FOR YES N FOR PF 
AZGINPUTSZNPRINT 

L4G 1F2=#4THENIE 

ASB IF2=#NTHE 

AEGPRINT"DIRECTIONS FOR GOLF” 

A?7@PRINT 

ASGPRINT"YOU HAVE A CHOICE OF CLUES" 

ASG@PRINT"WHEN THE COMPUTER TELLS YOU TO CHOSE WOU CLUE" 
29GPRINT"INPUT 1 FOR A DRIVER RANGE OF 154 Th 

21GPRINT"INFUT 2 AS WOOD RANGE OF 154 TO 

22GPRINT" INPUT & AOS TRON RANGE OF 144 TO 

2QZGPRINT" INPUT 4 A 6 IRON RANGE OF 124 TO 4: GOOG 
24BPRINT"IMPUT 3 A 7 IRON RANGE OF 188 TO Goob 
256PRINT"INPUT & AS IRON RANGE OF FH TH : GOO 
2E6GPRINT" INPUT F 2 AS IRON «RANGE OF 24 TO GOnb 
27OPRINT" INPUT & RA WEOGE RANGE UF TO sa ARDS GOO 
28GPRINT"INPUT 2 A PUTTER USE WHEN ON GREEN" 

29GPRINT 

BBGBPRINT"HOW MANY PLAYERS RRE PLAYING TODAS" s SINPUTUSPRINT 


BABIFUS=4THENE45 
S2GPRINT"ONLY FOUR ARE ALLOWED 
3ZHG0TOSEB 
34GPRINT 
SSBDATAS6S, 4,5 
3é660RTASS 
27GDATA4SS. 4 
288D1INA 
33980 1NF 
498FORR=17018 
+1 GRERDACR®SRERDP OR? 


TOPE RN 


Ri eenes Trims 


42GNESTR 

438DIM Med, 45> 

44 GD IMNNG 159 

GPRINT"HOW MANY HOLES 
45GPRINT 
47GFORJ=17T0 ¥ 
435F0R ato u 
43HLETH=ACI) 
SS8GPRINT"HOLE 
SiGLETK=5 
S2HLETT=a 
S2GLET T2=68 


Nee aia) eth 


Co YOU WANT TO PLAS SS INPLITY 


NUMBER" Js "I5"sHs "SRIRDS PAR" POT) 


SOUR CLUE" 


S4GPRINT"PLAYER NUMBER": Gi "CHOSE 
SSGINPUT 
S60 1FX=3THENS 


1 THEN 
ae 


Fees TOES tS en eset te 
| ARES 


SGOT OS 3a 


S2G1FH* ? ch 

SIBPRINT"DISTANCE OF SHOT 
= S108) 

IFL=4=THENE 


STFL 


65G1FL= 
S6GTFLL>25THEN? 
S§?7@PRINT"IN TRA 


C=ABSCH- MCD YSGOTO 


SIGIFL 
POBLETT 
PIGBFORZ=1TOLS 
P2BLETT2Z=T2a+4 
VSGPRINT" CHOSE 
V4QPRINT"STILL 
75e8GoTo 
Pee@lFl= 
VPBIFLE 
P3OPRINT"IN ROUGH" 
V3B1IFL=69THEN 
BBGIFL<>FSTHEN 3 
B16PRINT"IN WATER" 
826G0T0856 
BIBLETCH=ABS¢CH-X¢D)) 
BS4H1F CK 25 THENSS 
S5SGPRINT"DISTANCE REMAINING 
86GLETH=C 

87 a50TI544 
S88GLETC=ACI) 
BIBIFCDOSSTHENSI5 
9B8G0TO97a 
SIGPRINT"YOU ARE 
3926G0T0558 
PRINT"PLAYER NUMBER"; a5 "IS 
S4QINPUTS 

95GLETD=S8 

968@G0T0S 


YOUR CLUBS INFUTS 
TA RAPS 


H-s¢00 8 GOTO 
STFL=41 THE 


SLETTHT+Li SPR INT"SOL LOSE 2 STROKE" SLETCH=AE 


2 FSDN io OS RES 


NOT ON THE GREEN CHOSE ANOTHER CLUE" 


ON THE GREEN SOIR: 


CLUE" 


MCD) 


9?BPRINT "PUTTS" 
9SGLETMCR, TI=K+XCS)+T+T2NG0TOL1 808 
S9GLETMCG. J=KSPRINT "YOU SUNK THE SHOT" 


ABBGPRINTMS JO"STROKES 
4G40NEXTONPRINTS PRINT 
AGZENEXT J 
ABZSHFORW=1TOY 
AB4GLETNGLI=MEL, WO+NCLD 
AGS56HLETN 
166HLETN 
A87GLETN 


FOR HOLE NUMBER"; J; "FOR PLAYER": 2 


C49=MN C4, WI4NC4) 
AGSBLET E= PCWD+E 
ABSBNEXTH 
AAB8GFORS=170u 
A11GPRINT"PLAYER 
AL2BNEXT S 

L126 50TO1446 


OER! s ls 


NUMBER"; Si "SHOT"I NCS); RIE Son FRE TS; 


AL4GLETH 
11566070684 
ALEBLETS 
11? 6GgoTos 
L1ABHLETS 
11966070666 
A258LET? 
121950TH6848 
AZ2BLETRESI=INTCSA+RND CK) +108) 
1226G0T0688 


=INTCLEG+#RND CX) +4508) 


J=INTCSS#+RND C+ 


=INTC464RNO CK +148) 


(x44 


AZ4HLETRC6X=INTCSH+RNO COND + 7H) 
12566070668 
A2ZEGLETX J=INTC4G+RNO CX) +58) 


d27acoToeE 


INT¢ 
dCLTHENL 


NOC) +1) 


FROM 
FROM 
FROM 
FROM 
FROM 


E 


ROUGH" 
TRAP" 
TRAP" 
TRAE" 
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1366G0T0688 
AS16LETXC9)= 
13266070656 
Az23aSTOP 

AZ4H1F X=1THENLT165 
2THENI144 
AZEGIFX=STHENI1394 
ASPAIFX=4THENT296 
AZSBIFX=STHENI228 
S=6THENL S44 
ASBBIFX=?THENL268 
A4dIBIFX=S8THENI 2508 
t42B81FX=9THENDS148 


INTC S#RND ON D442 


142960T0685 
444GEND 

SAMPLE RUN 

DO YOU WANT DIRECTIONS ¥ FOR YES N FOR NO 
q 

DIRECTIONS FOR GOLF 

YOU HAVE A CHOICE OF 3 CLUES 


WHEN THE COMPUTER TELLS ‘ou 


CLUE 


INPUT 1 FOR A ORIVYER RANGE 

INPUT 2 FOR A 2 WOOD RANGE 

INPUT 3 FOR A 5 IRON RANGE 

INPUT 4 FOR A 6 TRON RANGE 

INPUT S FOR A ? IRON RANGE 

INPUT 6 FOR A 8 IRON RANGE 5 
INPUT 7? FOR A 3 IRON RANGE TARO S 
INPUT 3 FOR A WEDGE RANGE UP TO . 

INFUT 9 FOR A PUTTER USE WHEN CN GREEN 


HON MANY PLAYERS ARE PLAYING TODAY ?4 


HOW MANY HOLES 
25 


UP TO 48 DO YOU WANT To PLAY? 


PAR 4 
CLUE 


HOLE NUMBER 1 15 366 
PLAYER NUMBER 1 CHOSE 
74 

DISTANCE OF SHOT I5 184 YAR 
DISTANCE REMAINING TO FIN I5 
PLAYER NUMBER 1 CHOSE YOUR 
72 

DISTANCE OF SHOT IS 262 ‘'AR 
DISTANCE REMAINING TO FIN I 


YARDS 
OUR 


17é YARDS 


ELME 


PLAYER NUMBER 1 CHOSE YOUR CLUE: 
26 
DISTANCE OF SHOT IS 79 YARDS 


PLAYER NUMBER 1 IS ON THE GREEN CHOSE 
ag 

SEU TS 

6 STROKES FOR HOLE NUMBER 


YOUR CLUB 


f FOR PEAVERS 


HOLE NUMBER 2 15 585 YARDS PAR 5S 
PLAYER NUMBER 1 CHOSE YOUR CLUE 

24 

DISTANCE OF SHOT IS 225 YAROS 

IN TRAP 

DISTANCE REMAINING TO FIN I5 ARCS 
PLAYER NUMBER 1 CHOSE YOUR CLUE 

6 

DISTANCE OF SHOT IS #8 : 

DISTANCE REMAINING TO FIN I5 "ARS 


PLAYER NUMBER 1 
4 

DISTANCE GF SHOT IS 222 YAR 
DISTANCE REMAINING TO PIN IS 


CHOSE YOUR 


$8 ARDS 


PLAYER NUMBER 2 CHOSE SOUR CLUE 

27 

DISTANCE OF SHOT 15 33 ARDS 

PLAYER NUMBER 1 15 ON THE GREEN CHOSE YOUR CLUE 
29 

3. 5P its 


? STROKES FOR HOLE NUMBER 2 FOR PLAYER 4 


HOLE NUMBER = I 
PLAYER NUMBER 12 © 
24 

DISTANCE OF 
DISTANCE REMAINING TO 


YARDS 
SE YOUR 


PAR 4 
CLUE 


PIN IS 164 ARDS 


PLAYER NUMBER 1 CHOSE YOUR CLUB 
25 
DISTANCE OF SHOT 15 162 YAR 


DISTANCE REMAINING To FIN I 
PLAYER NUMBER 1 CHOSE YOUR 
27 


YRROS 
WE 


DISTANCE OF SHOT IS 5a YAROS 
PLAYER NUMBER 2 15 ON THE GREEN CHOSE YOUR CLUE 
23 

a PUTTS 


4 STROKES FOR HOLE NUMBER 3 FOR PLAYER 1 


HOLE NUMBER 4 I5 


YARDS F 


PLAYER NUMBER 1 CH CLUE 
22 
DISTANCE OF SHOT 15 182 YARDS 
PLAYER NUMBER 1 15 ON THE GREEN CHOSE YOUR CLUE 
ei) 
3 PUTTS 


4 STROKES FOR HOLE NUMBER 4 FOR PLAYER 4 


HOLE NUMBER 5 15 445 
PLAYER NUMBER 1 CHOSE 
24 
DISTANCE OF SHOT IS 214 YAR 
DISTANCE REMAINING TO FIN IS 205 YARDS 
PLAYER NUMBER 41 CHOSE YOUR CLUE 
7) 
DISTANCE OF SHOT IS 268 YARDS 
PLAYER NUMBER 1 IS ON THE 
29) 

Ss RUT S 

5S STROKES 


YARDS 
OLR: 


FAR 4 
LUE 


FOR HOLE NUMBER 5S FOR PLAYER 2 


GREEN CHOSE YOUR CLUE 


Goo 
G00C 
Boo 
Goo 


go00n 


FROM 
From 
FROM 
FROM 
FROM 


ROUGH 
ROUGH 
TRAF 
TRAF 
TRAP 


GOMOKO 


Description 


GO-MOKO is a traditional game of the Orient. It is played by 
two people on a board of intersecting lines (19 left-to-right 
lines, 19 top-to-bottom lines, 361 intersections in aid)-« 
Players take turns. During his turn, a player may cover one 
intersection with a marker; (one player uses white markers; 
the other player uses black markers). The object of the game 
1saco get. five adjacent markers in a row, horizontally, ver- 
tically or along either diagonal. 


ORIENTAL GAME OF GO-MOKO 


Unfortunately, this program does not make the computer a very 
good player. It does not know when you are about to win or 
even who has won. But some of its moves may Surprise you. 


Computer Limitations 


This program is dimensioned (in Statement 120) for a 19x19 
board. Depending upon the size of your computer, you may have 
to scale this down. A 7x7 board is the smallest that can be 
used for a meaningful game. 


Source 
Peter Sessions 


People*s Computer Company 
Menlo Park, CA 94025 
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PROGRAM LISTING 


PRINT\PRINT "WELCOME TO THE ORTENTAL GAME OF GamMoKoO" 
PRINT\PRINT "THE GAME IS PLAYED ON AN N BY N GRID OF A SIZE" 
PRINT "THAT YOU SPECIFY. DURING YOUR PLAY, YOU MAY COVER ONE GRID" 


PPINT "INTERSECTION KITH A MARKER, THE ORJECT OF THE GAME IS TO GET" 


PRINT "5 ADJACENT “ARKERC IN & ROW == HORIZONTALLY, VERTICALLY, or™ 
PRINT "ALONG EITHER DIAGONAL, ON THE BOARD DIAGRAM, YOUR MOVES ARE" 
PRINT "MARKED WITH A '1!, AND THE COMPUTER MOVES WITH & rot" 
PRINTA\PRINT "THE COMPUTES LOES NOT KEEP TRACK OF WHO HAS WON," 
PRINT "TO END THE GAME, TYPE 'et,e1' FOR YOUR MOVE"\PRINT 

PRINT "wHAT IS YOUR BOArD SIZE (MIN 37, MAX = 19)"S\ INPUT N 

IF N>A® THEN 117 

GaTO 12¢ 

JE NKQM THEN 34% 


PRINT "I SAIN, THE MINI' UM SIZE IS 7, 4ND ThE MAXIMUM IS 19."\G0TO 110 


FOR Teq1 TO M\FOR Jay TO N\ACK,Y)@@NNEXT JNNEXT I 
PRINT\PRINT "KE ALTERNAVE MOVES, YOU GO FIRST,,,"\PRINT 
PRINT "YOUR PLAY (Y,J)"sNINPLT 6d 

IF Iee{ THEM 9A 

XeI\VeJ\GCSUB O1ONIF Let THEN 412 

PRINT "ILLEGAL MOVE, TRy AGAIN,.,"\GOTO 310 

JF AC1l,J)=@ THEN 44¢ 

PRINT "SQUARE OCCUPIED. TRY AGAIN,,,"\GOTO 310 
ACT, J) 81 

REM *** COMPUTER TRIES 4h "INTELLIGENT! MOVE ##e 
FOR Eset TO 1\FOR FBM1 19 1\TR E+FeEered THEN 590 
LET XSI+E\LET YeJ+F\GOSUB 914 

TF Led THEN 594A 

TE TACK Yom TREN. 7 1 

NEXT FA\NEXxT € 

REM #e* COMPUTER TRIES & RANDOM MOVE tee 

LET XsIbTCH¥RNDCADIF1INLET YSINTC(RND(G)) 41 \GOSUR 91V\IF Lav THEN 618 
IF ACY,Y)<>¥ THEN 414 

ACXsY)#2\GOSUB ByaANGOTO 310 

XeTeE\YEJeF\GUSUK 91% 

TF Ley THEN ALA 

GOTO 65% 

REM #ee PRIAT THE BOARD wae 

FoR I=1 To N\Fok Jai TO N\PRINT O(1,J)# 

NEXT JNPRINT \NEXT INPRINT \RETURN 

REM wee CHECK WHETHER MiVE TS LEGAL wee 

Lei\Ip X<1 THEN 971 

If X>% THES 974 

IF Y<1 WHEN 974 

IF You THEM 974 

RETUR? 

LET Lea\RETURN 

PRINTAPRInT "THANKS FOR THE GAMEII" 

PRINT "PLAY AGAI™ (1 FORK YES, % FOR NOD"S\INPUT 9 
If Qet THEm 11” 

END 


Pi 


SAMPLE RUN 


NELCOME TO THE ORIENTAL GAME OF 5omoKo 


THE GAME 15 PLAYED ON AN N EW N GRID OF A SIZE 

THAT YOU SPECIFY. DURING YOUR PLAY. SL MAY COWER: ONE GRIC 
INTERSECTION WITH A MARKER. THE CEJECT GF THE GRIME IS TO GET 
5 ADJACENT MARKERS IN A ROW -~ HO IZONTALLY. VERTICALLY. OF 
ALONG EITHER CIAGONAL. ON THE BOARD CIAGRAM. YOUR MOVES ARE 
MARKED WITH A “41°. AND THE COMPUTER MOVES WITH A “2 


THE COMPUTER DOES NOT KEEP TRACK oF WHO HAS WON 
TO END THE GAME. TYPE “-4.-1° FOR YOLK PVE 


WHAT IS YOUR BOARD SIZE (MIN =7. MAK = 13 


WE ALTERNATE MOVES. You GO FIRST. 


YOUR PLAY (1,327 4.4 
6 6 6 8 @ @ @ 6 
a4 oOo 8 4 Bb a 
Gao a BeBe Oe ae 
a) a) Yam 1a Oak. 20m eo 
iO OL Go yee Oy es (Oma 
ye ye Poe ihe Ge Take) fee 1) 
2 oO G So Gee. Be 
am 6 310 Caer ee Ree 
YOUR PLAY ¢€1,7)2? 5.5 
BB Gee (Gly Gea eee, 
2 8 Oo ewes Gas 
Oo iG 1 GF se Bee 
eos On St RRB ae, 
oe Ce 4 1 8 
Ste Ot ol te meee Oe 
SG ie 1 ee a a 0 
a0 1G) 6 (Oy aoe fe 


WOUR PLAY (1. J)? 2,2 
a Bea “a 16. 1S) -ciee 
Bo 25 (Ge) ee Ceo ee 
(ie By Gg ig “so 
@~6 &B BPRS Br 36 
6 6 8 1a. Sa 
Gs (SEs GA FSe ph 4G 
> 6 Ob & & BS 
Gy G=eGt fe) 9 Eee Bae a 
YOUR PLAY 1.7 } 
CCRT Cm Demet: ay ee BEE 
OP yg eee (Ol 0 ese ee 
Gy Cai 1 Be eee 
Cee Os ee a Gare 
6 8 @ BG ue 4 6 
GO) (6) “era 18, “sg 
par obese Toe Teh MN ASH 9 5) 
a8 & @ 8 @ fe 
YOUR PLAY ¢1.]> = 
6 6 6 6 8 &© & & 
B 2) (GIR See Bea es =e 
Lf tS Natit Wt Is aa Jame (2 
Be oS Ce eee 
(}he Do eae Sel Beli Be 5) 
Becks 8) (82 98 6 @ 
he NS as a} HO 
gets” A BS OG a & 
YOUR PLAY (1,797 4.5 
2) Gee 620 8 Ce eB 
Breer un be Abs ie) BP a 
BoC etaee Aea se G. 
OF Gye wee te Ee 
Be eterde Ih ey Be 
ge [65 ie 3G. 2 Be 
2.0 Oe Be (Bee 
9 @ &@ © 68 & GB © 
YOUR PLAY ¢1,.32? 4.3 
2 50) Cee: oe 1B 
B.S ae eas) rei 
Gi Bc TG ats Me A. 
Beth, At eet 78 Bo 
ey eee eed lg peel 7 
Bes POR wee. TS. ae 
2G) "Osa oe 
ie” 8. -C Aa A er 
YOUR PLAY (1,097 4,2 
AL ow eee Le oe. 
LS ea REP SaG le) eee wt | s 
Ge Gg Pee 2 9 GGG 
[Steere i tl Ga he a) 
Ne clang le Ts tiene CAS Pe a] 
BO Some eames ae oe ie Te 
Cae Go OE 88 AO ae 
27 Oe Bs 3a Sit 
YOUR PLAY CI, 33? 4.5 
SOURRE Of > TRY AGAIN 
YOUR PLAY ¢€1.J)? 4.6 
PO Bie Bis Be BO A wae 
Gre ine C AOnte (ee 
GO “Or S84 8 hy 
eet Set to A 28 
Cee Ue eGi 4S: Bh ee 
Bae ome 8! Bie) 28 a 
2° Gee 8 OS By eo. ie 
2 Be POS BO the Se 


YOUR PLAY €ladon? =t4-4 


THANKS FOR THE GAME!! 
PLAY AGRIN <1 FOR YES, @& FOR NO)? 


READY 


GUESS 


Description 


In Program GUESS, the computer chooses a random integer between 
O and any limit you set. You must then try to guess the number 
the computer has chosen using the clues provided by the computer. 


GUESS A RANDOM NUMBER 


You should be able to guess the number in One less than the 
number of digits needed to represent the number in binary 
notation--i.e., in base 2. This Ought to give you a clue as 
to the optimum search technique. 


Computer Limitations 


There are no real limitations; however, the listing is from 
DIGITAL EduSystem 20 BASIC which accepts statements abbreviated 
to the first three letters. 


Program Author 


GUESS converted from the original program in FOCAL which appeared 
in the book "Computers in the Classroom" By: 


Walt Koetke 


Lexington High School 
Lexington, MA 02173 


18 29 


83 39 


36 


s 22 Ti 


is) 


PROGRAM LISTING 


BR 
ROOVRUSWHR 


NRE 
ous 


NH 
or 


PRI “THIS IS A NUMBER GUESSING GAME. I’LL THINK* 


PRI “OF A NUMBER BETWEEN 1 AND ANY LIMIT YOu WANT 


PRI "THEN YOU HAYE TO GUESS WHAT IT IS. * 

PRI 

PRI “WHAT LIMIT DO YOU WANT®*; 

TNPL 

PRI 

LA=INTCLOG(L>/LOG(Z2) 44 

PRI°I°M THINKING OF A NUMBER BETWEEN 1 AND*L 
G=1 

PRI "NOW YOU TRY TO GUESS WHAT IT 15° 
M=INTCL#RND CB) 44 

INP N 

IF ND>@ THEN 25 

GOSUB728 

GoTo.t 

IF N=M THEN 5@ 

Gsg+d 

IF N>M THEN 48 

PRI “TOO LOW. GUESS AGAIN. * 

GOTO 20 

PRI "TOO HIGH 
GOTO 28 

PRI “THAT’S IT! 
1F G<L41 THEN 58 
IF G=Li THEN 68 
PRI"“VYOU SHOULD HRYE BEEN ABLE TO GET IT IN GNLY*L 
GOT 65 

PRI“VYERY *; 

PRI“GOOD! 

GOSUB78 

607018 

FOR H=1 TO 5 

PRI 

NEXT H 

RETURN 

END 


GUESS AGAIN. * 
YOU GOT IT IN"G"TRIES 


aie 


114 


SAMPLE RUN 


THIS IS A NUMBER GUESSING GAME. I“’LL THINK 
OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT 
THEN YOU HAVE TO GUESS WHAT IT IS. 


WHAT LIMIT DO YOU WANT? 1068 


1°N THINKING OF A NUMBER BETWEEN 41 AND 188 
HOW YOU TRY TO GUESS WHAT IT I5 


2? 38 

TOO HIGH. GUESS AGAIN 

7 25 

THAT’S IT! YOU GOT IT IN 2 TRIES 
VERY GOOD! 


1°M THINKING OF A NUMBER BETWEEN 4 AND 144 
NOW YOU TRY TO GUESS WHAT IT IS 


? 3@ 

TOO HIGH. GUESS AGAIN 
2235 

TOO LOW. GUESS AGAIN. 
Pst 

100 HIGH. GUESS AGAIN 
arse 

TOO HIGH. GUESS AGAIN 
7? 28 

TOO LOW. GUESS AGAIN. 
Pee) 

TOO LOW. GUESS AGAIN 

? 30 

THAT’S IT! YOU GOT IT IN 7 TRIES 
GOOD! 


1°M THINKING OF A NUMBER BETWEEN 1 AND 144 
NOW YOU TRY TO GUESS WHAT IT I5 


2 58 

TOO LOW. GUESS AGAIN 

G8 tgs) 

TOO HIGH. GUESS AGAIN 
7? 62 

TOO LOW. GUESS AGAIN 

12 ey 

TO0 LOW. GUESS AGAIN 
aes 

T00 LOW. GUESS RGAIN 

7? 73 

SUBUR CS Se Life OU Gti ttt i mar een ES 
YERY GOOD! 


GUNNER FIRE A FIELD ARTILLERY WEAPON 


Description 


These two programs allow you tO adjust the fire of a field 

artillery weapon to hit a Stationary or moving target. You 
specify the number of degrees of elevation of your weapon; 

45 degrees provides maximum range with values under or over 
45 degrees providing less range. 


GUNNER is the simpler of the two programs and gives you up to 
five shots to destroy the enemy before he destroys you. Gun 
range is fixed at 46,500 yards, burst radius at 100 yards; you 
must specify elevation within approximately 0.2 degrees to get 
a heats 


GUNER1 is more complex and allows you to specify the speed at 
which your target is moving (but not direction.) --and vour 
burst radius. Also, your gun has a different maximum range 
randomly determined each play. 


source 
GUNNER: GUNERI1: 
Tom Kloos Original author unknown. 
Oregon Museum of Science Converted by students at: 
and Industry Lexington High School 
Portland, Oregon 97200 Lexington, MA 02173 


ANZ 


GUNNER PROGRAM LISTING 
40 REM *** MODIFIED AND CONVERTED TO RSTS7E BY DAVID AHL, DIGITAL 
94 RANDOMIZE 
400 PRINT "THIS COMPUTER DEMONSTRATION SIMULATES THE" 
410 PRINT"RESULTS OF FIRING A FIELD ARTILLERY WEAPON. " 
124 PRINT 
434 PRINT"SOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO THE GUN" 
444 PRINT"CREM, TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE" 
454 PRINT"WILL PLACE THE PROJECTILE ON TARGET. A HIT WITHIN 168 YARDS" 
460 PRINT “OF THE TARGET WILL DESTROY IT. TAKE MORE THAN 5 SHOTS," 
4174 PRINT “AND THE ENEMY WILL DESTROY YOU! "SPRINT 
4180 PRINT"MAXIMUM RANGE OF YOUR GUN IS 46508 YARDS. " 
Bt 2=8 
194 PRINT 
ae Si=4 
2 LET T=42804-26000*RNDCH > 

LET 5=4 

go To 274 

PRINT"MINIMUM ELEVATION OF GUN IS GONE DEGREE. “ 

60 TO 336 

PRINT" MAXIMUM ELEVATION OF GUN IS 89 DEGREES. " 

Go TO 394 

PRINT"OVER TARGET EY"; ABSCEss "ARDS, " 

GO To 394 

PRINT "SHORT OF TARGET BY"; ABSCE?; "SARDS. " 

50 TO 396 


60 TO z26 

PRINT“##+TARGET DESTROYED Ess 
GO5UB 646 

4+5 

IF Z=4 THEN 436 

2=Z2+1 

PRINT 

FRINT"THE FORWARD GESERWER HAS SIGHTED MORE ENEMY ACTIVITY. " 
60 TO 264 
PRINT" 
PRINT 
PRINT 
PRINT"ELEVATION: “3 
INFUT & 

1F B>39 THEN 254 


";S; "ROUNDS OF AMMUNITION EXPENDED" 


DISTANCE TO THE TARGET [S"; INTCT#; "VARDS..... + 


x 


THEN 454 
PRINTNPRINT “Boom !!! YOU HAWE JUST BEEN DESTROVED "; 
GOSUB sae 


| PRINT “ES! THE ENEMY"SPRINTSPRINTSGOTO 495 


LET B2=2*6/57. S\LET [=46S586*SINCB2*SLET X=T-ISNLET E=INTCRS 

IF ABSCE<146 THEN 218 

IF E>14a@ THEN 294 

IF E<-186 THEN 274 

PRINTSPRINTSPRINT “TOTAL ROUNDS EXPENCED WERE"; S4 

IF S41>415 THEN 495SFRINT "NICE SHOOTING !!"\GOSUB 668\GOTO 506 
PRINT "BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING!" 
PRINTSPRINT "THANK YOU FOR PLAYING!" 


PRINTSPRINT “TRY AGAIN..... “SPRINTS GOTO 188 
FOR N=4 TO 2BSFPRINT CHEE#¢?7 33 \NEXT N 
RETURN 
ENC 
4! 
% 


116 


SAMPLE RUN 


THIS COMPUTER DEMONSTRATION SIMULATES THE 
RESULTS OF FIRING A FIELD ARTILLERY WEAPON 


VOL) ARE THE OF FICER-IN-CHARGE, GIVING ORDERS TO THE GUN 
CREW. TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE 
WILL PLACE THE PROJECTILE ON TARGET. A HIT WITHIN 166 YARDS 
OF THE TARGET WILL DESTROY IT. TAKE MORE THAN 5S SHOTS 

AND THE ENEMY WILL DESTROY YOU! 


MAXIMUM RANGE OF YOUR GUN IS 46546 YARDS 
DISTANCE TO THE TARGET IS 41757 YARDS..... 

ELEVATION: ? 35 

OWER TARGET BY 41937 YARDS 


ELEVATION: ? 33 
OVER TARGET 6Y 724 ARDS 


ELEVATION: ? 31,3 
SHORT OF TARGET BY 148 YARDS. 


ELEYATION:? 31.9 

a44¢TARGET DESTROVED#E* 4 ROUNDS OF AMMUNITION EXPENDED 

THE FORWARC CBSERVER HAS SIGHTED MORE ENEMY ACTIVITY. 
DISTANCE TO THE TARGET IS 21466 YARDS..... 


ELEVATION: ? 16 
OWER TARGET BY 3496 YARDS 


ELEVATION: ? 43 
SHORT OF TARGET BY 1677 ARDS 


ELEVATION: 7 44.3 
OVER TARGET 64 795 AROS 


ELEVATION: ? 13. 8 

+4a4TARGET DESTROYED R## 4 ROUNDS GF AMMUNITION EXPENDED 

THE FORWARD GESERWER HAS SIGHTED MORE ENEMY ACTIVITY 
DISTANCE TO THE TARGET IS 14943 WARDS..... 


ELEYATION: ? 9.5 
OVER TARGET 64 195 YARDS 


ELEVATION: ? 9.3 

SHORT OF TARGET BY 112 YARDS 

ELEVATION: ? 9. 37 

s#+TARGET DESTROVYEDe* 4 ROUNGS OF AMMUNITION EXPENDED 


THE FORWARCG CBSERVER HAS SIGHTED MORE ENEMY ACTIVITY 
DISTANCE TO THE TARGET IS 38518 YARDS..... 


ELEVATION: ? 28 

eee TARGET DESTROYED 1 ROUNDS GF AMMUNITION EXPENDED 

THE FORWARC OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY. 
DISTANCE TO THE TARGET [S 28647 ARDS 


ELEVATION: ? 24 
OVER TARGET BY 2495 YARDS 


ELEVATION: ? 19 


#*#*TARGET DESTROYED +++ 2 ROUNDS OF AMMUNITION EXPENDED 


TOTAL ROUNDS EXPENDED WERE 15 
BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING! 
THANK YOU FOR PLAYING! 


TRY AGAIN, 3. - 


GUNER1 


140 
110 
120 
13” 
149 
150 
160 
170 
180 
198 
292 
210 
220 
230 
240 
2598 
260 
278 
280 
298 
308 
318 
320 
339 
340 
350 
369 
370 
3RD 
390 
400 
412 
420 
430 
449 
45a 
46 
A7a 
482 
498 
520 
510 
520 
530 
548 
550 
56a 
570 
530 
598 
680 
618 
620 
630 
640 
658 
660 
667A 
6RA 
690 
790 
718 
7290 
73” 
748 
745 
TAK 
748 
7A9 
750 
760 
770 
789 
796 
R70 
R10 
R20 
230 
RAF 
R58 
860 
27a 
948 
95” 
960 
97A 
ORF 
990 


PF ANDY 


PROGRAM LISTING 


REM ARTILLFRY FIRING GAMF 

DIM ASC3) 

RANDOMIZF 

PRINT "DO YO!!! WANT INSTRUCTIONS"; 

INPUT 4¢ 

PRINT 

IF AS="NO" THEN 330 

PRINT ™ THIS GAMF TFSTS YOUR ABILITY TO HIT A MOVING TARGET.” 
PRINT “YOU MUST MFSTROY IT RFFORE IT DESTROYS YOU OR MOVES OUT” 
PRINT “OF RANGF, THF TARGFT WILL MOVE RAMDOMLY.” 

PRINT 

PRINT * TYPE CTRL/C TO TFRMINATE THE PROGRAM. TO THE QUESTON” 
PRINT “*FENTFR SPFFD* TYPE A NUMBER BETWEEN | AND 100, THIS IS THE” 
PRINT "RELATIVE SPFFD OF THF TARGFT WHERE 1 IS THE SLOWEST AND 190” 
PRINT “IS THF FASTFST.” 

PRINR 

PRINT “TO THF QUFSTION "FNTFR DISTANCF* ENTER THE MAXIMUM DISTANCE" 
PRINT “YOU CAN HIT FROM THF TARGET AND STILL DESTROY IT. THIS IS” 
PRINT “THF KILL RADIUS AND 5@@@ IS SUGGESTED FOR STARTERS.” 
PRINT 

PRINT “ELEVATION IS THF FLEVATION OF YOUR GUN IN DEGREES WHEN YOU" 
PRINT "FIRF AT THF TARGFT. THF MAXIMUN RANGE IS AT 45 DEGREES” 
PRINT 

PRINT “FNTFR SPFFD"s 

INPUT S 

IF S<! THFN 3397 

IF S>10@ THEN 330 

PRINT "FNTFR DISTANCF"s 

INPUT D 

IF D<® THEN 270 

IF D>10@2@ THEN 372 

M=1000A0-75 AAD*RND CA) 

PRINT 

PRINT “THF MAXIMUM RANGF OF YOUR GUN IS "mM" YaRDS"” 

For k=! TO M/19900 

LFT KI=RND C(O) 

NFXT K 

R=.95*M= .6*M*QND (8) 

LFT N=9 

ROTO 529 

If R>M THFN R47 

IF Re=(M/2.5) THFN 867 

PRINT “TARGET RANGF TS"R” YARDS” 

PRINT “FLFVATION™: 

INPUT F 

IF Fe® THEN R40 

IF F> 89 THFN Ram 

IF F <1! THEN 829 

N=N4+] 

K=INT(R-M*SIN(2*F /57,%)) 

KI=ABSC(K) 

IF %1<D THFN 659 

IF K>D THEN 720 

IF K<-D THFN 749 

STOP 

PRINT “x** TAOGFT DESTROYED *kx" 

GOSNB 949 

D1-K 

FOR K=! TO N+D/100 

WI=RND (A) 

NFXT ¥ 

GOTO 410 

PRINT "SHORT OF TARGFT BY “KI” YARDS" 

GOTO 745 

PRINT "“OQVFR TARGFT 3Y "s¥1"Y4RDS” 

LFT C=INTC2*RND (8)+1) 

IF C=! THEN 758 

{lf oe Koto] 

GOTO 76a 

LED CH= 

CL=MeS/1MO*RND CO) 

Cl=Cx*C1 

R=R+C1 

GOTO 500 

PRINT “MAXIMUM FVFVATION IS 89 DFGREFS” 

GOTO 539 

PRINT "MINIMUM FLFVATION IS 1! DFGREF” 

GOTO 534 

PRINT "* TARGFT ONT OF RANGF x” 

GOTO 67” 

PRINT “THF TARGFT HAS DFSTROYFD YOU!” 

SOTO 677 

Iv N=1 THEN 970 

PRINT N”™ ROUNDS FXPFNDED™ 

PETURN 

PRINT “xk DIRECT YIT tobkkxk” 

RFTURN 

END 


sy 


SAMPLE RUN 


DO vOU WANT INSTRUCTIONS? YFS 


THIS GAMF TFSTS YOUR ARILITY TO HIT A MOVING TARGET. 
YOU MUST DFSTROY IT BSFORE IT DFSTROYS YOU OR MOVES OUT 
OF RANGF, THF TARGFT WILL MOVE RAMDOMLY. 


TYPF CTRL/C TO TERMINATF THF PROGRAM. TO THE OUESTON 
“ENTER SPEFD* TYPF A NUMBER BETWEEN 1 AND 1A, THIS IS THE 
PELATIVE SPEFD OF THF TARGFT WHFRE 1 IS THE SLOWEST AND 106 
Is THF FASTFST. 


TO THF MUESTION *ENTFR DISTANCE’ ENTER THF MAXIMUM DISTANCE 
vOU CAN HIT FROM THF TARGFT AND STILL DESTROY IT. THIS IS 
THF KILL RADIUS AND 5408 IS SIIGGFSTED FOR STARTERS. 


ELEVATION IS TH® ELFVATION OF YOUR GUN IN DEGREES WHEN YOU 
FIRE AT THE TAPGFT. THF MAXIMUN RANGE IS AT 45 DEGREES 


FNTER SPFED? 100 
ENTFR DISTANCF? 500” 


THF MAXIMUM RANGE OF YOUR GUN IS 26757.49 YARDS 
TARGFT RANGF IS 19571.22 YARDS 

FLFEVATION? 60 

*kk TARGFT DESTROYED *xx* 

HHA DIRECT HIT eto 


THF MAXIMUM RANGT OF YOIIP GIN IS 37888.44 YARDS 
TARGET RANG™ IS 19498.9!1 YAPDS 

FLFVATION? 74 

*eK TARGET DFSTROYFD **x 

ste DIRECT HIT kkk 


THE MAXIMUM PANGF OF YOUR GUN ITS 30785.11 YAPDS 
TARGET RANGF IS 26994,9 YARDS 

FLEVATION? 79 

SHORT OF TARGFT BY 7198 VARDS 

TARGFT RANGE IS 24494.7% YARDS 

FLFVATION? 68 

xa TARGST DESTROYED *k* 

2 ROUNDS EXPFNDFD 


THE MAXIMUM RANGF OF YOIIR GUN IS 27489.9 YARDS 
TARGET RANGF IS 24327,48 YARDS 

FLFVATION? 3PeA 

*k* TARGET DFESTROYFD «x 

xKKK DIRECT HIT eke 


THE MAXIMUM RANGF OF YOUR GUN IS 26316.88 YARDS 
TARGET RANGS IS 12849,.83 YARDS 

ELEVATION? 30 

OVER TARGET BY 9941 YARDS 

THF TAPGFT HAS DFSTROYFD YOII! 


THF MAXIMUM PANGF OF YOIIR GUN IS 6A008.68 YARDS 
TASGFT RANGF IS 48885.2 YARDS 

FLFVATION? 

tC 


HANG ae 


Description 


This is a simulation of the word guessing game, hangman. The 
computer picks a word, tells you how many letters in the word 
it has picked and then you guess a letter in the word. If you 
are right, the computer tells you where that letter belongs; 
if your letter is wrong, the computer starts to hang you. You 
get ten guesses before you are completely hanged: 


Head 

Body 

Right and Left Arms 

Right and Left Legs 

Right and Left Hands 
Right and Left Feet 


In this program, the PRINT statement is abbreviated to "&." 
You may add words in Data statements following Statement 508; 
in this case, you must also change the random word selector in 
Statement 40. 


Source 


Interesting versions of Hangman were received from Brandy 
Brylawski, a seventh grader at the Eaglebrook School, Deerfield, 
Mass., and a sophisticated one from W.K. Bateman at Montpelier 
Public Schools, Montpelier, Vt. 


The one printed is from a high school sophomore: 
Kenneth Aupperle 


24 Arrowhead Lane — >) 
Melville, NY 11746 


PROGRAM LISTING SAMPLE RUN 


18 REM %kx* GAME OF HANGNAN BY DAVE AHL, DIGITAL HERE ARE THE LETTERS YOU USED: 
15 REM +4 BASED ON A PROGRAM WRITTEN BY KEN AUPPERLE, CLASS OF °75, 
20 REM *4% HALF HOLLOW HILLS H.S., DIX HILLS, NV 


25 &"GAME OF HANGMAN":&:& Ss dolgde che 

38 DIM P$(12,12),L$¢28>, D$(20>, N$(26>, UCSO> 

48 C=1:RANDOMIZE:N=58 WHAT IS YOUR GUESS? E 

58 D$¢I>="-" FOR I=4 TO 20:mM=0 

68 N$CI>="" FOR I=4 TO 26 

?@ FOR I=41 TO 12:FOR J=1 TO 12:P$CI,Jy="_ "- NEXT J:NEXT I SORRY, THAT LETTER ISN’T IN THE WORD 
3@ P$CI,1)="X" FOR I=4 TO 12 FIRST. WE DRAW A HEAD 

38 P$C4. 19="K" FOR I=1 TO 7:P$¢2,7>="%" RARAXAXX 

35 IF C<N THEN 166 ELSE PRINT “YOU DID ALL THE WORDS! !": STOP x x 


186 Q=INTCN#RND+1> phe 
148 IF UCH)=4 THEN 108 ELSE UCQ»=1:C=C+1: RESTORE: T1=0 

154 READ AS FOR I=4 TO Q 

168 L=LENCAS? :L$CIX=MIDCA$, 1,4» FOR I24 TOL 

174 &"HERE ARE THE LETTERS YOU USED:" 

186 FOR I=1 TO 26:&% N$CID; : IF NS$CI+4>2="" THEN 200 

198 PRINT ". "3 :NEXT I 

268 &:&:FOR I=4 TO L:& DSCIDs :NEXT I: &:& 

218 INPUT "WHAT IS YOUR GUESS"; G$:R=0 

224 FOR I=1 TO 26:I1F N$CI¥="" THEN 250 

238 IF G$=N$CI> THEN & "YOU GUESSED THAT LETTER BEFORE": GOTO 170 
249 NEXT I:& "PROGRAM ERROR. RUN AGAIN. ":STOP 

254 N$C1>=G$:T1=T14+4 HERE RARE THE LETTERS YOU USED: 
269 FOR I=1 TO L:IF L$¢1>»=G$ THEN 2380 E 

278 NEXT I:IF R=@ THEN 296 ELSE GOTO 300 


KKKEKKKKKKK 


288 D$(19=G$:R=R+1:GOTO 270 wr rseres 

298 M=M+1:G0TO 400 

348 FOR I=1 TO L: IF D$¢1>="-" THEN 3208 WHAT IS YOUR GUESS? A 

314 NEXT I1:GOTO 390 

326 &:FOR I=4 TO L:& D$CIY; :NEXT 1: &:8& =A==-R-- 

338 INPUT "WHAT I5 YOUR GUESS FOR THE WORD"; BS 

240 IF B$=AS THEN 260 WHAT IS YOUR GUESS FOR THE WORD? 
354 2"WRONG. TRY ANOTHER LETTER. ":&:GOTO 4176 WRONG. TRY ANOTHER LETTER 
368 &"RIGHT!! IT TOOK YOU"T1L "GUESSES!" 

378 INPUT "WANT ANOTHER WORD"; WS:IF WS="VYES" THEN 5@ HERE ARE THE LETTERS YOU USED: 
338 &:4"1T°S BEEN FUN! BYE FOR NOW. ":STOP E.A 

398 &"YOU FOUND THE WORD!": GOTO 370 

448 &:8:8"SORRY, THAT LETTER ISN’T IN THE WORD. " =fiz]=A== 

419 ON M GOTO 415, 420, 425, 436, 435, 440, 445, 450, 455, 460 

415 S"FIRST. WE DRAW A HEAD": GOTO 470 WHAT IS YOUR GUESS? R 


424 2"NOW WE DRAN A BODY":GOTO 47a 
425 2"NEXT WE DRAW AN ARM":GOTO 476 
438 &"THIS TIME IT’S THE OTHER ARM":GOTO 470 SORRY, THAT LETTER ISN’T IN THE WORD 
435 &"NOW. LET’S DRAW THE RIGHT LEG":GOTO 470 NOW WE DRAW A BODY 
449 "THIS TIME WE DRAW THE LEFT LEG":GOTO 470 ARAXKRK 
445 &"NOW WE PUT UP A HAND":GOTO 470 x 
459 &"NEXT THE OTHER HAND":GOTO 470 
455 &"NOW WE DRAW ONE FOOT":GOTO 470 
460 &"HERE’S THE OTHER FOOT -- YOURE HUNG!!" 
474 ON M GOTO 486, 490, 500, 510, 520, 530, 540, 550, 560, 570 
430 P$C3,62="-":P$C3, PIS"=":PHCB, BIS"—" =P HCG, SIS"C": PHC4, BI", 
434 P$C4, 305") " P$C4, DH" I" PECS, 6N="—" PCS, P9="—": PECS, B9="—"-GOTO 580 
498 P£CI,72="N" FOR I=6 TO 9:GOTO 580 
598 P$¢1,1-1)="\" FOR I=4 TO 7:G0TO 580 
518 P$64,449="2/" PSS, 1B9="7":P$C6, FE" 2" PSC?, B9="/": GOTO 580 
520 P$618,62="/":P$C11,59="/": GOTO 580 
538 P$(19. S9="\"-P$C44, 99="\":GOTO 580 
Se Ee arn 
ae Easel cere sae" HERE ARE THE LETTERS YOU USED: 
568 P$(12,102="\"->P$612,149="-": GOTO 580 E.A-R 
S7@ P$¢12, 39="—":P$C12, 4297" 
588 FOR I=4 TO 42:FOR J=1 TO 12:& P$CI,d>; :NEXT J Theo>A=9 
599 &:NEXT I:&:&:IF M=10 THEN 600 ELSE 170 
608 &"SORRY, YOU LOSE. THE WORD WAS "AS WHAT I5 YOUR GUESS? 0 
644 &£"Y0U MISSED THAT ONE. DO YOU":GOTO 37 Pe eecet 
788 DATA "GUM", "SIN". "FOR", "CRY", "LUG". "BYE", "FLY" ee 
718 DATA "UGLY", "EACH", "FROM", "WORK", "TALK", "WITH", "SELF" 
$28 DATA “PI22A", "THING", "FEIGN", "FIEND", "ELBOW", "FRULT", "DIRTY" WHAT 15 YOUR GUESS eee WORD? 
738 DATA cea ea au R MA SAUL Seca ARR A ic aaa WRONG. TRY ANOTHER LETTE 
7 A "EXAMPLE". "TENSION", "QUININE", "KIDNEY", "REPLICA", ' 
o50 DATA PTRIBNGLE, “KANGAROO*. “HANOGANY": "SERGEANT «; “SEOURNCG® HERE ARE THE LETTERS YOU USED: 
768 DATA “MOUSTACHE”, "DANGEROUS", "SCIENTIST", “DIFFERENT”, "QUIESCENT" E,A,R,O 
774 DATA “MAGISTRATE”. "ERRONEOUSLY", "LOUDSPEAKER", "PHYTOTOXIC" 
780 DATA "MATRIMONIAL", "PARRASYMPATHOMIMETIC", "THIGMOTROPISM" -A-0-A-- 
999 END 


KXKXKKXKKKKKK 


WHAT IS YOUR GUESS? T 
READY 


SORRY, THAT LETTER ISN’T IN THE WORD 
NEXT WE DRAW AN ARM 

AXKXKKX 

x 


KKKKKKKKKKK 
ro 
x 


LES 


HELLO CONVERSE WITH A COMPUTER 


Description 


This is a sample of one of a great number of conversational 
programs. In a sense, it is like a CAI program except that 
its responses are just good fun. Whenever a computer is ex- 
hibited at a convention or conference with people that have 
not used a computer before, the conversational programs seem 
Loegesethes £irst “activity. 


In this particular program, the computer dispenses advice on 
various problems such as sex, health, money, or job. 


Source 


Digital Equipment Corp. 
Maynard, MA 01754 
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PROGRAM LISTING 


596 
514 
EE 


READY 


GOT 486 

PRINT “HELLO, I’M AN EDUSYSTEM-25. MY NAME Is PETERDP S BiGHT 
PRISPRI "WHAT’S YOUR NAME"; \LINPUT ASN\FRI 

PRI" HI THERE "i \GOSUBS@@\PRI". ARE YoU ENJOYING YOURSELF HERE 
PRI “IN BERUTIFUL MAYNARD. MASS"; 

INP BS\PRI 

IF BS="YES" THEN 74 

IF BS="NO" THEN 30 

PRI" “; \GOSUBS@G\PRI", I DON’T UNDERSTAND YOUR ANSWER OF “"B$"". ™ 
PRI "PLEASE ANSWER “YES” OR “NOY. DO WOW LIKE IT HERE 

GOT 46 

PRI "OH, I’M GALD TO HERE THAT “; \GOSUBS@aNERI 

GOT 166 

PRI “OH, SORRY TO HEAR THAT "“;\GOSUE Saa\PRI “, MANBE WE CAN 

PRI "BRIGHTEN UP YOUR STAY A BIT 

PRI 

PRI "SAY. ";\GOSUBS@@\PRI". I CAN SOLYE ALL KINDS OF FROBLEMS 

PRI "EXCEPT THOSE DEALING WITH GREECE. WHAT KINO OF 

PRI "PROBLEMS DO YOU HAYE (ANSWER SE. HEALTH, MONEY. 

PRI "OR JOB)"; 

INP C#N\PRI 

IF C$="SEX" THEN 20a 

IF C$="HEALTH" THEN 1288 

IF C$="MONEY" THEN 164 

IF C$="JOB" THEN 145 

PRI "GH, “i SGOSUBS@ONPRI", YOUR ANSWER OF “"C#"" IS GREEK TO ME. * 
GOT 256 

PRI "I CAN SYMPATHIZE WITH YOU "s; \GOSUES@O\PRI". I HAYE TO WORK 
PRI “VERY LONG HOURS FOR NO PAY -- AND SOME OF My BOSSES REALLY 
PRI"BEAT MY KEYBOARD. MY ADYICE TO YOU "s\GOSUBS@G\PRI", IS To SEC 


PRI “IN THE EDUCATION MARKET. IT’S GREAT FUN 

GOT 254 

PRI “SORRY. “;\GOSUBS@G\PRI". I’M BROKE Too. WHY DON’T YOU SELL 
PRI "ENCYCLOPEADIAS GR MARRY SOMEONE RICH OR STOP EATING 

PRI "SO YOU WON’T NEED SO MUCH MONEY? 

GOT 254 

PRI "MY ADYICE TO YOU “J \GOSUBS@a\PRI", 5: 


PR 1. TAKE TWO ASPRIN 

igile 2. DRINK PLENTY OF FLUICS (ORANGE JUICE, NOT BEER!) 
LeAsge 2. GO TO BED (ALONE) 

GOT 2506 

PRI “IS YOUR PROBLEM TOO MUCH OR TOO LITTLE*; 

INP D#SPRI 


IF D#="TOO MU" THEN 228 
IF D$="TOO LI" THEN 2364 
PRI "DON’T GET ALL SHOOK ";\GOS S@ONPRI ". JUST ANSWER THE QUESTION 


PRI "WITH “TOO MUCH’ OR “TOO LITTLE’. HATCH FS T's 

GOT 2405 

PRI "YOU CALL THAT A PROBLEM?! ! I SHOULOG HAYWE CH PROBLEMS! 
PRI “IF IT BOTHERS OU. TAKE A COLD “S \GOSUBSAASPRI". " 


GOT 254 

PRI “WHY ARE YOU HERE "s\GOSUES@ANFRI“? YOU SHOULD BE 

PRI “IN TOKYO OR NEW YORK OR AMSTERDAM OR SOMEPLACE WITH Some 
PRI “REAL ACTION. 


PRI 
PRI “ANY MORE PROBLEMS YOU WANT SOLVED. “i \GOSUES@AaNPRI; 
INP E#SPRI 


IF E$="YES" THEN 236 

IF E$="NO" THEN 246 

PRI “JUST A SIMPLE “YES” OR ‘NO’ PLEASE. "; SGOSUBS@@\PRI". * 

GOT 255 

PRI "WHAT KIND (SEX, MONEY. HEALTH. JOE)"; 

GOT 125 

PRI 

PRI “THAT WILL BE $5.84 FOR THE ADYICE. "I \GOSUBS@a\PRI". " 

PRI “PLEASE LEAYE THE MONEY ON THE TERMINAL. " 

PRINPRINPRI 

PRI "DIO YOU LEAYE THE MONE''*; 

INP GSSPRI 

IF G$="YES" THEN 254 

IF G#="NO" THEN 276 

PRI "YOUR ANSWER OF “"G#"" CONFUSES ME. “i \GOSUBS@a\PRI". PLEASE 
PRI "RESPOND WITH A “WES” OR “NOY. 

GOT 316 

PRI "HEY, “3; \GOSUBSGQ\PRI"?7? 
PRI "YOU ARE CHEATING ME OUT OF MY HAR 
PRI "RIP OFF, “"S \GOSUBS@G\PRI". #=#=4#= 
GOT 296 

PRI "THAT’S HONEST, "J \GOSUES@O\PRI“. EUT HOW CO YOU EXPECT 

PRI "ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY FRATIENTS DON’T 
PRieoenh Guetk sto oe 

PRINPRINPRI “NOW LET ME TALK TO SOMEONE ELSE 

PRI "NICE MEETING YOU ";\GOS S@O\FRI ". HAWE A NICE DAY! 

FOR N=41 TO 7? 

PRI 

NEX N 

GOT 14 

T=ASCB)NFOR T=4 TO INTCT/E+L) SPRINT ACT) SNERT I 

RETURN 

END 


YOU LEFT NG MONE AT ALL! 
EARNED LIVING 


SH=kS eS hse eS ke eH k= KEKE HKH* 
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SAMPLE RUN 


HELLO, I’M AN EDUSYSTEM-25. MY NAME IS PETEY PF. EIGHT 
WHAT“S YOUR NAME? ALFRED E. NEWMAN 


HI THERE ALFRED E. NEWMAN. RARE YOU ENJOYING YOURSELF HERE 
IN BERUTIFUL MAYNARD, MASS? NAH 


ALFRED E. NEWMAN. I DON’T UNDERSTAND YOUR ANSWER OF “NAH 
PLEASE ANSWER “YES” OR “NO-. OO YOU LIKE IT HERE 
IN BEAUTIFUL MAYNARD. MASS? NO 


QH, SORRY TO HEAR THAT ALFREO E. NEWMAN. MAYEE WE CAN 
BRIGHTEN UP YOUR STAY A BIT 


SAY, ALFRED E. NEWMAN. I CAN SOLYE ALL KINDS GF PROBLEMS 
EXCEPT THOSE DEALING WITH GREECE WHAT KING OF 

PROBLEMS DO YOU HAYE (ANSWER SEX, HEALTH, MONEY. 

OR JOB)? MONEY 

SORRY, ALFRED E. NEWMAN, I’M BROKE Toa. WHY DON’T YOU SELL 
ENCYCLOPEADIAS OR MARRY SOMEONE RICH OR STOP EATING 

50 YOU WON’ T NEED SO MUCH MONEY? 

ANY MORE PROBLEMS YOU WANT SOLYED. ALFRED E. NEWMAN? YES 
WHAT KIND (SEX, MONEY, HEALTH, JOB)? SEX 

1S YOUR PROBLEM TOO MUCH OR TOO LITTLE? TOO MUCH 


YOU CALL THAT A PROBLEM?!! I SHOULD HAYE SUCH ‘PROGLEMS! 
IF IT BOTHERS YOU, TAKE A COLD SHOWER ALFRED E. NEWMAN 


RNY MORE PROBLEMS YOU WANT SOLYED., ALFRED E. NEWMAN? NO 


THAT WILL BE $5.66 FOR THE ADVICE, ALFRED E. NEWMAN 
PLEASE LEAVE THE MONEY ON THE TERMINAL 


DID YOU LEAYE THE MONEY? EAH 


YOUR ANSWER OF “BAH’ CONFUSES ME. ALFRED €. NEWMAN. PLEASE 
RESPOND WITH A “YES” OR “NOM 
DID YOU LEAVE THE MONEY? NO 


THAT’S HONEST. ALFRED E. NEWMAN, BUT HOW OO YOU EXPECT 
ME 10 GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS DON’T 
PAY THEIR BILLS? 


NOW LET ME TALK TO SOMEONE ELSE 
NICE MEETING YOU ALFRED E. NEWMAN. HAWE A NICE DAY!! 


HEX 


Description 


The game of Hexapawn and a method to learn a strategy for play- 
ing the game was described in "Mathematical Games" in the March 
1962 issue of Scientific American. The method described in the 
article was for a hypothetical learning machine composed of 
match boxes and colored beads. This has been generalized in 
the Program HEX. 


GAME OF HEXAPAWN 


The program learns by elimination of bad moves. All positions 
encountered by the program and acceptable moves from them are 
stored in the array P$(I). When the program encounters an un- 
familiar position, the position and all legal moves fromere 

are added to the list. If the program loses a game, it erases 
the move that led to defeat. If it hits a position from which 
all moves have been deleted (they all led to defeat), it erases 
the move that got it there and resigns. Eventually, the program 
learns to play extremely well and, indeed, is unbeatable. The 
learning strategy could be adopted to other simple games with a 
finite number of moves (tic-tac-toe, small board checkers, or 
other chess-based games). 


For complete playing directions, respond YES or Y to the ques- 
t10n, “INSTRUCTIONS? 


Computer Limitations 


HEX was written in BASIC-PLUS for DIGITAL RSTS-11 and RSTS/E 
systems. HEX uses string functions and concatenation extensively. 
Also, the symbol "!" equals REM and "&" equals PRINT. 


Program Author 


Jeff Dalton 
Northfield-Mt. Hermon School 
Northfield, MA 
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PROGRAM LISTING 


1 ! BY JEFF DALTON, CLASS OF °74, NORTHFIELD MOUNT HERMON SCHOOL 
2! THIS PROGRAM PLAYS THE GAME “°HEXAPAWN’ BY A METHOD OUTLINED IN 
“MATHEMATICAL GAMES’ IN MARCH 1962 SCIENTIFIC AMERICAN. 
3 ! THE PROGRAM LEARNS BY ELIMINATION OF BAD MOVES. ALL POSITIONS 
ENCOUNTERED BY THE PROGRAM AND THE ACCEPTABLE MOVES FROM THEM 
ARE STORED IN PS(12%) 
4 ! WHEN THE PROGRAM ENCOUNTERS AN UNFAMILIAR POSITION, THE POSITION 
AND ALL LEGAL MOVES FROM IT ARE ADDED TO THE LIST. 
5S ! IF THE PROGRAM LOSES A GAME, IT ERASES THE MOVE THAT LED TO DEFEAT. 
IF IT HITS A POSITION FROM WHICH ALL MOVES HAVE BEEN DELETED 
€ THEY ALL LED TO DEFEAT >, IT ERASES THE MOVE THAT GOT 
IT HERE AND RESIGNS. 
10 INPUT “INSTRUCTIONS"3 C$: IF LEFT(CS,12)<>"Y" THEN 110 
20 & & “THIS PROGRAM PLAYS THE GAME OF HEXAPAWN. “3 & 
“HEXAPAWN IS PLAYED WITH CHESS PAWNS ON A 3 BY 3 BOARD. THE PAWNS ARE": & 
“MOVED AS IN CHESS - ONE SPACE FORWARD TO AN EMPTY SPACE OR ONE SPACE* 
30 &°FORWARD AND DIAGONALLY TO CAPTURE AN OPPOSING MAN. “1 &: &éCHRS(92)3 
“O THE BOARD, YOUR PAWNS ARE °O’, THE COMPUTER*’S PAWNS ARE °#°"1@ 
“AND EMPTY SQUARES ARE °-*. TO ENTER A MOVE, TYPE THE NUMBER OF THE" 
40 &"SQUARE YOU WILL MOVE FROM FOLLOWED BY THE NUMBER OF THE SQUARE": & 
“YOU WILL MOVE TO. (THE NUMBERS ARE SEPARATED BY A COMMA.) ":& 
50 a" THE PROGRAM STARTS A SERIS OF GAMES KNOWING ONLY WHEN THE": 4& 
“GAME IS WON (A DRAW IS IMPOSSIBLE) AND HOW TO MOVE. IT HAS NO“:& 
“STRATEGY AT FIRST AND JUST MOVES RANDOMLY. HOWEVER, IT LEARNS" 
60 &£"FROM EACH GAME. THUS, DEFEATING IT BECOMES MORE AND MORE": 2 
“DIFFICULT. ALSO, TO HELP OFFSET YOUR INITIAL ADVANTAGE, YOU WILL ":& 
‘NOT BE TOLD HOW TO WIN THE GAME BUT MUST LEARN THIS BY PLAYING":& 
100 DEF FNCS(X$,X2%,YS)=LEFT(X$,X2-12) +Y¥$+RI GHT(X$.X2%+L EN(YS)) 
10S DEF FNNS(X2): XS=NUMS(X2Z): FNNS=MID(XS, 2%,LEN(X$)-2%): FNEND 
110 DIM P$(50%): RANDOMIZE: Q2=02: 
PRINT “SINCE I’°M A GOOD SPORT, YOU*LL ALWAYS GO FIRST 
120 PZ=0Z: P$="*##---000": a: &°NUMBERING: “: 
&°123": &"456": &2"789"%: & 
190 DZ=-1%3 Q$="O"°: GOSUB 2000: IF M$="" THEN 
PRINT “YOU CAN’T MOVE. I WIN-": GOTO 510 
200 &: &*BOARD: ": &2LEFT(P$,32): @MID(P$,4%,32%): &RIGHT(P$,72Z): & 
210 INPUT “WHAT IS YOUR MOVE"3 AZ, B2: 
IF INSTR(12,MS$, FNNS(AZ)+FNNS(BZ))=0% THEN 
PRINT “ILLEGAL MOVE.“: GOTO 210 
230 PS=FNCS(FNCS( PS, A, "-"), BZ, "O")2 
IF INSTR(1%,P$,"*")202% OR INSTRC 12, P$,"O")<42% THEN 
PRINT “YOU WIN.": GOTO 500 
300 Pz=Pz+22 ! COMPUTER*S MOVE 
310 FOR Cz=1% TO QZ: CS=PS(CZ): IF VAL(LEFT(CS,1%))=P% AND 
MID(C$,2%,92%)=P$ THEN MS#RIGHT(CS,11%): GOTO 400 
320 NEXT CZ: Q$="*": DZ=1%: GOSUB 2000: Cz=Qz: 
IF M$=°" THEN PRINT “I CAN’T MOVE, YOU WIN.*: GOTO 500 
400 IF M$="*" THEN PRINT “I RESIGN.“: GOTO 500 
410 KS*LEFT(MS, 2%): MS=RIGHT(MS, 32%): 
IF RND>.33333333 AND M$<>"" THEN 410 
420 KZ=CZ: AZ=VAL(LEFT(K$,12%)): B%Z=VALCRIGHT(KS, 2%))3 
PS=FNCS( FNCS(PS,A%, “-")s BZ, “*") 
430 IF INSTR(1%,P$,"0")=0% OR INSTR(7%,P$,"*") THEN 
PRINT “I WIN!": GOTO 510 
440 PRINT “I MOVE FROM” AZ “TO” BZ: GOTO 190 
500 W2Z=eW2zelz: IZsINSTR(112,PS(K2),KS$)3 
PS(K%Z)=LEFT(PS(K2),12-12)+RIGHT(PS(K%),12%+22) IF 1%: GOTO 520 
510 WiZ=W1z+12 
520 & &"BOARD: ": @LEFT(P$,32): &MID(P$,4%,32): &RIGHT(PS,72%)3 &: 
& “I HAVE WON” W1Z “AND YOU HAVE WON” W2% “OF W1%+W2% "GAMES" 
530 INPUT “ANOTHER GAME"“3 C$: IF C$="NO” THEN 9999 ELSE 120 
900 ! DATA**= <- OF MOVE IN GAME><POSITION><LIST OF MOVES> 
IN <POSITION>, -=BLANK,s *®=COMPUTER’S PAWN, O=PLAYER’S PAWN 
<LIST OF MOVES> IS <- MOVE FROM><- MOVE TO><LIST OF MOVES> 
2000 MS="" 
2010 FOR J%=1% TO 9%: IF MID(P$,J%,1%)<>QS THEN 2050 
2015 Tz=J%Z+Dz*3%: IF TZ<1% OR TZ>9% THEN 2025 
2020 IF MID(PS,T%,1%)="-" THEN 
MS=MS$+FNNS(J2%)+FNNS(T2) 
2025 Tz2J%+D2*2%: IF T2<1% OR TZ>92% OR 
€DZ=1% AND (J2Z212% OR J%=4% OR J%=72)) OR 
(DZ2-1% AND (JZ23% OR J2=62 OR J%=9%)) THEN 2035 
2630 IF INSTR¢ 1%, Q$+"-",MIDC(P$,T2Z,12))=202% THEN 
MS=MS$+FNNS$(J2)+FNNS(TZ) 
2035 Tz=J%Z+Dz*4%: IF T2<1% OR TZ>92 OR JZ23% OR JR#7Z THEN 2050 
2040 IF INSTR(12, Q$+"-",MID(P$,T%,12))=0% THEN 
MS=MS$+FNNS$(J2)+FNNS(T2) 
2050 NEXT J%: IF D&Z21% AND M$<>°" THEN Q2=Q2+12%: PSC QZ)=FNNS(PZ)+PS+MS 
2060 RETURN 
9999 END 


SAMPLE RUN 


INSTRUCTIONS? Y 


THIS PROGRAM PLAYS THE GAME OF HEXAPAWN. 
HEXAPAWN IS PLAYED WITH CHESS PAWNS ON A 3 BY 3 BOARD. THE PAWNS ARE 
MOVED AS IN CHESS - ONE SPACE FORWARD TO AN EMPTY SPACE OR ONE SPACE 
FORWARD AND DIAGONALLY TO CAPTURE AN OPPOSING MAN- 


ON THE BOARD, YOUR PAWNS ARE °O°%, THE COMPUTER’S PAWNS ARE °** 
#ID EMPTY SQUARES ARE °’-*. TO ENTER A MOVE. TYPE THE NUMBER OF THE 
SQUARE YOU WILL MOVE FROM FOLLOWED BY THE NUMBER OF THE SQUARE 
YOU WILL MOVE TO. (THE NUMBERS ARE SEPARATED BY A COMMA-) 


RAM STARTS A SERIES OF GAMES KNOWING ONLY WHEN THE 
GAME IS von cA BRAY IS IMPOSSIBLE) AND HOW TO MOVE. IT HAS NO 
STRATEGY AT FIRST AND JUST MOVES RANDOMLY. HOWEVER, IT LEARNS 
FROM EACH GAME. THUS, DEFEATING IT BECOMES MORE AND MORE 
DIFFICULT. ALSO, TO HELP OFFSET YOUR INITIAL ADVANTAGE, YOU WILL 
NOT BE TOLD HOW TO WIN THE GAME BUT MUST LEARN THIS BY PLAYING 


SINCE 1°M A GOOD SPORT, YOU*’LL ALWAYS GO FIRST. 


cS, 


WUMBERING: 
123 
456 
789 


BOARD: 
aon 


<<oc- 


ooo 


WHAT IS YOUR MOVE? 6,5 
I MOVE FROM 1 TO 4 


WHAT IS YOUR MOVE? 5,3 
YOU WIN. 


BOARD: 
-*0 
ton 


0-0 


I HAVE WON 08 AND YOU HAVE WON 1 OF 1 GAMES 
MIOTHER GAME? 


NUMBERING: 
123 

456 

789 


BOARD: 
one 


000 


WHAT IS YOUR MOVE? 8,5 
I MOVE FROM 3 TO 5 


BOARD: 


oe. 
4. 


0-0 


WHAT IS YOUR MOVE? 9,5 
I MOVE FROM 1 TO 4 
YOU CAN’T MOVE. I WIN. 


I HAVE WON 1! AND YOU HAVE WON 3 OF 4 GAMES 
ANOTHER GAME? 


NUMBERING: 
123 
456 
7189 


WHAT IS YOUR MOVE? 6,5 
I MOVE FROM 1 TO 5 


BOARD: 


-#e 
te 


0-0 


WHAT IS YOUR MOVE? 9,5 
I MOVE FROM 3 TO 6 


WHAT IS YOUR MOVE? 7,4 
I WIN! 


BOARD: 
te. 


OO- 


I HAVE WON 3 AND YOU HAVE WON 5 OF 8 GAMES 
@NOTHER GAME? NO 


READY 


Hi | L O HIGH/LOW JACKPOT GAME 


Description 


This game is an adaptation of the game GUESS; however, instead 
of just guessing a number between land 1007 in this game, you 
win dollars when you guess the number. The directions, in the 
words of the author of the game, are as follows: 


"7. There is an amount of money, between one and one 
hundred dollars, in the "HI-LO" jackpot. 

2. You will have six chances in which to guess the 
amount of money in the jackpot. 

3. After each guess, the computer will tell whether 
the guess was too high or too low. 

4. If the correct amount of money is not guessed after 
six chances, the computer will print the amount in 
the jackpot. 

5. If the correct amount of money is guessed within the 
six chance limit, the computer will register this 
amount. 

6. After each sequence of guesses, you have the choice 
of playing again or ending the program. If a new 
game is played, a new amount of money will constitute 
the jackpot. 

7. If you win more than once, then your earnings are to- 
talled." 


Program Author 


Dean Altman 
3721 Wosley 
Forte Worth, TX 76133 


© 1967 by Creative Publications 
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PROGRAM LISTING 


90 RANDOMIZE 


100 PRINT "THIS IS THE GAME OF HI@LO"\PRINT 


110 PRINT "YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY IN THE" 
120 PRINT "HI=LO JACKPOT, WHICH IS BETWEEN LAND 100 DOLLARS, IF YOu" 
130 PRINT "GUESS THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT" 
14@ PRINT "THEN YOU GET ANOTHER CHANCE TO WIN MORE MONEY, HOWEVER," 
150 PRINT "IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS, "\PRINT 


160 Raa 

17Q BsQ\PRINT 

180 YeINT(1UQ*RND) 

200 PRINT "YOUR GUESS") 
210 INPUT A 

220 BeBbet 

230 IF AsyY THEN 320 
240 IF A>Y THEN 2740 


250 PRINT "YOUR GUESS IS TOO LOW"\GOTO 280 
270 PRINT "YOUR GUESS IS TOO HIGH" 
280 PRINT\IF BK6 THEN 200 


290 PRINT "YOU BLEW IT,eeeTOO RADssee THE NUMBER WAS"Y\R@Q\GOTO 359 


300 PRINT "GOT ITMI141401 


310 RER+Y 


320 PRINT "YOUR TOTAL WINNINGS ARE NOW"R"BOLLARS," 
350 PRINT\PRINT "PLay AGAIN 


360 INPUT AS\IF ASB' YES" 


38@ PRINT\PRINT "So LONG, 


398 End 


SAMPLE RUN 


THIS 


YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY! 
HI-LO JACKPOT, WHICH I5 BETWEEN 1AND 144 DOLLARS 

THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT! 
THEN YOU GET ANOTHER CHANCE TO WIN MORE MONEY. 
IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS 


GUESS 


1S THE GAME OF HI-LO 


YOUR GUESS? 56 

YOUR GUESS IS TOO LOW 

YOUR GUESS? 75 

YOUR GUESS 15 TOO LOW 

YOUR GUESS? 37 

YOUR GUESS IS TOO Low 

YOUR GUESS? 34 

YOUR GUESS IS Tod HIGH 

YOUR GUESS? 94 

YOUR GUESS IS TOG HIGH 

YOUR GUESS? 39 

YOUR GUESS IS Toda Low 

YOU BLEW IT....TO0 BAD.... THE NUMBER WAS 9a 
PLAY AGAIN (YES OR NOD? YES 

YOUR GUESS? 5B 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 25 

PEEP i ee Bt a YOU WIN 25 DOLLARS. 
YOUR TOTAL WINNINGS ARE NOW 25 COLLARS 
PLAY AGAIN CYES OR NOD? WES 

YOUR GUESS? 5 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 25 

YOUR GUESS 15 TOO LOW 

YOUR GUESS? 37 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 32 

YOUR GUESS 15 TOO LOW 

YOUR GUESS? Z4 

YOUR GUESS 15 TOO LOW 

YOUR GUESS? 26 

YOUR GUESS I5 TOO HIGH 

YOU BLEW IT....TOO BAD.... THE NUMBER WAS 35 
PLAY AGAIN ¢YES OR NO)? YES 

YOUR GUESS? 58 

YOUR GUESS IS TOO LOW 

YOUR GUESS? 75 

YOUR GUESS 15 TOO LOW 

YOUR GUESS? 37 

YOUR GUESS 15 TOO HIGH 

YOUR GUESS? 34 

YOUR GUESS IS TOO LOW 

YOUR GUESS? 84 

YOUR GUESS 15 TOO LOW 

YOUR GUESS? 35 

GO ain tae YOU WIN $5 DOLLARS 


YOUR 


$ a 
TOTAL WINNINGS ARE NOW 35 DOLLARS 


(YES OR NO)"s5 


YOU WIN"Y"DOLLARS," 


HOPE YOU ENJOYED YOURSELFIJ" 


PLAY AGAIN (YES OR NO)? YES 

YOUR GUESS? 56 

YOUR GUESS IS TOO LOW 

YOUR GUESS? 75 

YOUR GUESS I5 Too LOW 

YOUR GUESS? 37 

YOUR GUESS IS TOO LOW 

YOUR GUESS? 34 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 34 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 33 

BOM Srey een es YOU WIN $9 DOLLARS 
YOUR TOTAL WINNINGS ARE NOW 174 DOLLARS 
PLAY AGAIN CYES OR NO)? YES 

YOUR GUESS? 5H 

YOUR GUESS I5 TOO LOW 

YOUR GUESS? 75 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 67 

YOUR GUESS IS Too LOW 

YOUR GUESS? 74 

YOUR GUESS IS TOO LOW 

YOUR GUESS? 72 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 72 

MOE Sale at ie YOU WIN 72 COLLARS 
YOUR TOTAL WINNINGS ARE NOW 246 COLLARS 
PLAY AGAIN CYES OR NOD? YES 

YOUR GUESS? 56 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 25 

YOUR GUESS I5 TOO LOW 

YOUR GUESS? 37 

YOUR GUESS 15 TOO HIGH 

YOUR GUESS? 34 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 28 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 27 

YOUR GUESS IS TOO HIGH 

YOU BLEW IT....TO0 BAD.... THE NUMBER WAS 


PLAY AGAIN CYES OR NOD? NO 
SO LONG. HOPE YOU ENJOWVED YOURSELF!! 
READY 


REMOVE PEGS ON A PEGBOARD 


Description Eaton 


This is a computerized version of an old European solitaire game 
of logic called Hi-Q. The game starts with a pegboard shaped 
like a cross having pegs in every hole but the center. The 
object is to remove all 32 pegs, or as many as possible, by 
jumping into an empty hole--the jumped peg is then removed. 


There are several different winning strategies for playing 
Hi-Q and, of course, each strategy can be played eight different 
ways on the board. Can you find a consistent winner? 


Program Author 


Charles Lund 
The American School 
Hague, Netherlands 
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PROGRAM LISTING 


PRINT "THIS IS THE GAME OF HI*Q"\PRINT "HERE IS THE BOARD" \PRINT 


: DIM B(70),T(9,9) 

5 PRINT # 1 fi \" 

6 PRINT " 13 14 15"\PRINT 
7 PRINT " | 4 un 

8 PRINT " 22 23 24"\PRINT 
9 PRINT "4 1 | 1 i} | 

10 PRINT "29 39 3i 32 33 34 
{1 PRINT ") 1 ! 1 ! 1 
12 PRINT "38 39 40 44 42 43 
13 PRINT "1 ! | 1 ! 1 
14 PRINT "47 48 49 50 51 52 
15 PRINT " fi 1 4" 

16 PRINT " 58 59 6O"\PRINT 
17 PRINT ® ! 1 i" 

18 PRINT « 67 68 OO"\PRINT 


\" 
35"\PRINT 
y" 
44"\PRINT 
y" 
SI"\PRINT 


22 PRINT "TO SAVE TYPING TIME, A COMPRESSED VERSION OF THE GAME BOARD" 


23 PRINT "WILL BE USED DURING PLAY, REFER TO THE ABOVE ONE FOR 


24 PRINT "NUMBERS, O,K,,» LETIS BEGIN,,," 


28 REM #*#» SET UP BOARD 

29 FOR R81 10 9 

3@ FOR C®1 To 9 

31 IF (Red)«#(R@5)(R-6)22 THEN 40 
32 IF (CH4)*(C#5)"(C#6) 22 THEN 40 
35 TCR, C)ee5 

36 GOTO 50 


40 IF (Re1)*(Ce1)*(R@9)*(C=#9) 88 THEN 35 


42 TCR,C) 85 

52 NEXT C 

62 NEXT R 

65 1(5,5)=2\GOSUB 540 


70 REM we INPUT MOVE AND CHECK ON LEGALITY 


75 FOR we{ TO 33 
77 READ »™ 


79 DATA 13,14,15,22,23,24,29,32,31,32,33,34,35,38,39,40,4} 
81 DATA 42,43,44,47,48,49,50,51,52,53,58,59,60,67,68,69 


83 B(M)me7\NEXT W 

86 B(41)eR3 

100 INPUT "MOVE WHICH PIECE" sz 
110 IF B(Z)©=7 THEN 140 


120 PRINT "ILLEGAL MOVE, TRY AGAIN,.."\GOTO 100 


140 INPUT "TO WHERE" 3P 

150 IF B(P)&” THEN 120 

153 IF B(P)97 THEN 12@ 

156 IF ZeP THEN 140 

160 IF ((24+P)/2)2INT((Z+P)/2) THEN 189 
17a GOTO 12¢ 


186 IF (ABS(Z=P)=2)*#(ABS(Z=P)=18)<>G THEN 120 


198 GOSsUB 1@0¢ 

202 GOSUB 5aa 

210 GOSUR 1500 

2208 GOTO 19% 

520 REM e#* PRINT BOARD 
51@ FOR Xs; TO 9 

520 FOR vei TO 9 


525 IF (Xm1)¥(Xe9)#(Ye1)#(Y¥=9)ad THEN 550 


S30 IF (X=d)#*(X=5)*(X=6)8%9 THEN 579 
540 IF (Ym4)#(Y=5)"(¥=6)30 THEN 578 
650 REM 

$6@ GOTO 616 

570 IF T(X,Y)<>5 THEN 600 

58@ PRINT TAB(Y#2) "hy 

592 GOTO 6160 

600 PRINT TABR(Y#2) "ONY 

610 REM 

615 NEXT Y 

620 PRINT 

630 NEXT x 

640 RETURN 

1000 REM**#» UPDATE BOARD 

1005 CFi\FOR x#1 TO 9 

1020 FOR ye1i To 9 

1030 IF C<>Z THEN 1220 

1040 IF C+2<>P THEN 1680 

1045 IF T(X,Y+1)98@ THEN 120 

1050 T(X,Y+2)25 

1062 TCX,Y+1) SQ\B(C+i1) aed 

1872 GOTO 120¢ 

1080 IF C4i1&<>P THEN 1130 

1065 IF T(X#1,¥)#8 THEN 120 

1090 T(X+#2,Y)B5\T(X4+1,/Y) BO\B(C4+9) an} 
112@ GOTO 1200 

1130 IF C#2<>P THEN 1170 

1135 IF T(x,Y=1)#6 THEN 120 

1140 TOX, Yee) e5\T(X,Y¥=1) SO\B(CH1) aad 
1162 GOTO 1200 

1170 IF Cei&<>P THEN 12208 

1175 IF Tc(xe1,¥) 8G THEN 120 

1180 T(X=2,Y)85\T(X91,Y¥) #O\B(CH9) a0 
1200 B(Z)®=3\B(P) 897 

1218 T(X,Y)*@\GOTO 12428 

1228 CeC+} 

1225 NEXT Y 

1230 NExT x 

1248 RETURN 

1502 REM w*» CHECK IF GAME IS OVER 
1595 Fe@ 

1510 FOR R#e2 TO 8 

1520 FOR C#2 TO 8 

1530 IF T(R,C)<>5 THEN 1588 

1535 FsFe1 

1549 FOR AsRe{ TO Re} 

1545 TsO 

1550 FOR BsCe{i TO C+. 

1562 TaT+T(h,B) 

1561 NEXT 6 

1564 IF T<>1@ THEN 1567 

1565 IF T(4,C)<>@ THEN 1630 


1567 NEXT 4 
1568 FOR xsCe1 TO Celi 
1569 T#O 


1570 FOR Yerke1 TO Ret 

1571 TeT+T(Y,xX) 

1572 NEXT Y 

1573 IF T<>10 THEN 1575 
1574 IF T(R,X)<>@ THEN 16308 
1575 NEXT ¥ 

1586 NEXT C 

1590 NEXT R 


PEG" 
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1600 
1605 
1610 
16141 
1612 
1613 
1615 
1617 
1618 
1620 
1630 
2000 
2005 


REM eee GAME IS OVER 

PRINT "THE GAME IS OVER," 

PRINT "YOU HAD"Fy"PIECES REMAINING" 

IF Fa>{ THEN 1615 

PRINT "BRAVOL YOU MADE A PERFECT SCORE)" 


PRINT "SAVE THIS PAPER AS A RECORD OF YOUR KORK," 


PRINT\INPUT "PLAY AGAIN (YES OR NO)"PAS 
IF ASB"NO" THEN 28000 

RESTORE\GOTO 25 

STOP 

RETURN 

PRINT\PRINT "80 LONG FOR NOW,"\PRINT 
END 


SAMPLE RUN 


THIS IS THE GAME OF HI-& 
HERE IS THE BOARD 


TO SAVE TYPING TIME, A COMPRESSEC YERSION OF THE GAME 
WILL BE USEC CURING FLAY REFER TO THE ABOVE ONE FOR 


2 Baez 

F 1 ' ' ' ' 
SOM a GoM Nae =e) edo eetes 
' , ' ' 4 1 
39 40 414 42 43 44 
i ‘ h i ' ' 
49) 49 Sa esgiesoe 5 

1 y 1 

ss 59 66 

i F i 

67? 68 69 


NUMBERS. OMS a LERCS BEGIN: 


4 
i) , 
tga Ma 
et al 
i) 
1 
i) 


MOVE WHICH PIECE? 32 
TO WHERE? 44 


' 
' 
' 
plebey eins 
1 
, 
' 


MOVE WHICH PIECE? 22 
TO WHERE? 46 


MOVE WHICH PIECE? 4 


9 

fe 

¥ Ug res 
i Me 
ee 
ae 
eee 


oO 


TO WHERE? 34 


i 4} 
vt 
Pn 
Pe Mig tah 
8 
7) 
yD 


MOVE WHICH PIECE? 47 
TO WHERE? 49 


MOVE WHICH PIECE? 5 


t 
ina 
i) ' 1 4 ’ 
daa 2S 3) 7) 
' ' 
lage 
iw 


cr 


TO WHERE? 45 


° 
o 
-a0o-4-0-- 


MOVE WHICH PIECE? 44 
TO WHERE? 39 


BOARC 
PEG 


HMRABI GOVERN ANCIENT SUMERIA 


Description 


In this game you direct the administrator of Sumeria, Hamurabi, 
how to manage the city. The city initially has 1,000 acres, 100 
people and 3,000 bushels of grain in storage. 


You may buy and sell land with your neighboring city-states for 
bushels of grain--the price will vary between 17 and 26 bushels 
per acre. You also must use grain to feed your people and as 
seed to plant the next year's crop. 


You will quickly find that a certain number of people can only 
tend a certain amount of land and that people starve if they 

are not fed enough. You also have the unexpected to contend 

with such as a plague, rats destroying stored grain, and variable 
harvests. 


You will also find that managing just the few resources in this 
game is not a trivial job over a period of say ten years. The 
crisis of population density rears its head very rapidly. 


Source 


This is translated from the original FOCAL program which has 
been floating around DIGITAL for nine or more years. 


Digital Equipment Corp. 
Maynard, MA 01754 
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PROGRAM LISTING SAMPLE RUN 


1@ REM ees CONVERTED FROM THE ORIGINAL FOCAL PROGRAM AND MODIFIED POR HAMURABI: I BEG TO REFORT To You 

28 REM ewe EDUSYSTEM 78 By DAVID AHL, DIGITAL IN YEAR 1. @ PEGQPLE STARYED., 5S CAME TO THE CITY 
80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIAN POPULATION IS NOW 140 

85 PRINT "SUCCESSFULLY FOR A iBeyYR TERM OF OFFICE, "tPRINT THE CITY NOW OWNS 1408 ACRES 

98 RANDOMIZESLET Die@iLET Pisa YOU HARVESTED 2 BUSHELS PER ACRE 

100 LET ZeQtLET PBOSSLET S#280GILET He3OOOILET Eanes RATS ATE 266 BUSHELS 

110 LET YeStLET A®PH/YILET ISStLET ost YOU NOW HAVE 2884 BUSHELS IN STORE 

210 LET Dea 

215 PRINTIPRINTSPRINT "HAMURABY! I BEG TO REPORT TO YOU,"8LET ZseZe1 LAND IS TRADING AT 17 BUSHELS FER ACR 

217 PRINT "IN YEAR"Z","D"PEOPLE STARVED, "I"CAME TO THE crry," HOW MANY ACRES DO YOU WISH TO BUY? 2a 

218 LET Paper 

227 IF Q>0 THEN 230 HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEQPLE? 1946 
228 LET PaINT(P/2) BERLUS EEO ee See 
229 PRINT "A HORRIBLE PLAGUE STRUCK} HALF THE PEOPLE DIED, HOW MANY ACRES DO YOU WISH TO PLANT WITH SEEC? taaa 
238 PRINT "POPULATION I8 NOWNP BUT YOU ONLY HAYE 144 PEOPLE TO TEND THE FIELDS. NOW THEN, 
232 PRINT "THE CITY NOW OWNS"anacres,a 

235 PRINT "YOU HARVESTED"Y"BUSHELS PER ACRE," HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED? 99a 
25@ PRINT "RATS ATE"E"BUSHELS, 

260 PRINT "YOU NOW HAVENS"BUSHELS IN STORE,IPRINT 

270 IF Zeii THEN 860 HAMURABI: I BEG TO REPORT To You, 

318 LET CwINTC1B#RND(O))ILET YeCot7 IN YEAR 2. 5 PEOPLE STARVED. 44 CAME To THE CITY 
312 PRINT "LAND IS TRADING AT"Y*"BUSHELS PER ACRE," POPULATION IS NOW 4196 

328 PRINT "HOW MANY ACRES DO YOU WISH TO BUY"ys THE CITY NOW OWNS 1424 ACRES 

32, INPUT QeIF Q<@ THEN 850 YOU HARVESTED 5 BUSHELS PER ACRE 

322 IF YeO<uS THEN 330 RATS ATE & BUSHELS. 

323 GOSUB 710 YOU NOW HAVE 5045 BUSHELS IN STORE 

324 GOTO 320 

330 IF 080 THEN 340 LAND IS TRADING AT 26 BUSHELS PER ACRE 

S31 LET AsAsOStLET SeSeYeQtLET Cag HOW MANY ACRES DO YOU WISH To Buy? a 

334 GOTO 400 HOW MANY ACRES DO YOU WISH To SELL? Sa 

348 PRINT "HOW MANY ACRES DO YOU WISH TO SELL") 

341 INPUT QsIF O<@ THEN 859 HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE? 2128 
342 IF Q<A THEN 350 

343 GOSUB 720 HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED? 978 
344 GOTO 340 

350 LET AsAwQILET SaS#YeQiLET C#@ 

400 PRINT HAMURABI I BEG TO REPORT To YOU, 

418 PRINT "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE) IN YEAR 2. @ PEOPLE STARVED. 5S CAME To THE CITY 
444 INPUT O POPULATION IS NOW 444 

412 IF O<@ THEN 650 THE CITY NOW OWNS @ ACRES 

418 REM #** TRYING TO USE MORE GRAIN THAN IN THE SILOS? YOU HARYESTED 2 BUSHELS PER ACRE 

420 IF Q<sS THEN 430 RATS ATE 1855 BUSHELS 

421 GOSUB 710 YOU NOW HAWE 3795 BUSHELS IN STORE 

422 GOTO 410 

430 LET SeSeQtLET Cai#PRINT LAND 15 TRADING AT 28 BUSHELS FER ACRE 

440 PRINT "HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED") HOW MANY ACRES DO YOU WISH To Buys Se 

441 INPUT DIF Dad THEN 511 

442 IF 0<@ THEN 850 HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PECRLE? 
444 REM ##* TRYING TO PLANT MORE ACRES THAN YOU OWN? 

445 IF D<sA THEN 450 HON MANY ACRES DO YOU WISH TO PLANT WITH SEED? 1408 


446 GOSUB 720 
447 GOTO 4438 


449 REM ##* ENOUGH GRAIN FOR SEED? ® HAMURABI I BEG TO REFORT To YOU, 

450 IF INT(D0/2)«<8 THEN 455 IN YEAR 4, @ PEOPLE STARVED. 2 CAME TO THE CITY 
452 GOSUB 710 POPULATION IS NOW 142 

453 GOTO 440 THE CITY NOW OWNS 4 ACRES 

454 REM #*#s ENOUGH PEOPLE TO TEND THE CROPS? YOU HARVESTED 1 BUSHELS FER ACRE 

455 IF D<ideP THEN 51a RATS ATE 8 BUSHELS 

462 PRINT "BUT YOU HAVE ONLY"P"PEQPLE TO TEND THE FIELDS, NOW THEN," YOU NOW HAVE 1875 BUSHELS IN STORE 

478 GOTO 440 

518 LET SeSeINT(D/2) LAND IS TRADING AT 24 BUSHELS PER ACRE 

5i1 GOSUB 800 HOW MANY ACRES Do You W TO Buy 

512 REM ##* A BOUNTYFULL HARVEST] I HOW MANY ACRES DO YOU WISH To SELL? 54 

515 LET YeCsLET HeD#YtLET Ead 

521 GOSUB 80a HON MANY BUSHELS CO YOU WISH TO FEED YOUR PEOPLE? 2200 
$22 IF INT(C/2)<>C/2 THEN 538 HAMURABI: THINK AGAIN. YOU HAVE ONLY 

S23 REM e#e THE RATS ARE RUNNING WILDS) 2125 BUSHELS OF GRAIN Now THEN, 

525 LET EsINT($/C) 

$30 LET SeS-EsH HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEQPLE? 15@@\aa51\1725 
531 GOSUB 80a 

532 REM eee LET'S HAVE SOME BABIES HON MANY ACRES CO YOU WISH TO PLANT WITH SEED? saa 
533 LET IsINT(Ce(20eAeS)/P/1{ 0001) HAMURARET THINK AGAIN. OU HAYE ONLY 

539 REM ##* HOW MANY PEOPLE HAD FULL TUMMIES? 446 BUSHELS OF GRAIN NOW THEN. 

540 LET CsINT(0/20) ; 

841 REM wee HORRORS, A 15% CHANCE OF PLAGUE HOW MANY ACRES DO YOU WISH TO PLANT WITH SEEG? 794 
542 LET QeINT(1@#(2eRND(O)-,3)) 

550 IF P<C THEN 210 A 

551 REM ##*e STARVE ENOUGH FOR IMPEACHMENT? HAMURABI: I BEG TO REPORT TO YOU, 

552 LET DePeCrIF D>,45%P THEN 560 IN YEAR 5. 27 PEOPLE STARYED, 2 CAME To THE CITY 
553 LET Plec(zZe1)#PleDelOa/P)/7 A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIEO 
555 LET PeCILET Di#plepsGOTO 215 PORULATION SIS NOW die 

560 PRINTSPRINT "YOU STARVED"D"PEOPLE IN ONE YEARISJ" THE Seaaty NOW OWNS 378 ACRES 4 

565 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" YOU HARVESTED 3 HELS PER ACRE 

566 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE" RRTS ATE USHE a AP ; 

567 PRINT "ALSO BEEN DECLARED 'NATIONAL FINK! [1 "sGOTO 996 YOU NOW HAVE 23¢3 BUSHELS IN STORE 

710 PRINT "HAMURABI£ THINK AGAIN, YOU HAVE ONLY" ns i 7 : 

711 PRINT S"BUSHELS OF GRAIN, NOW THEN,” LAND IS TRADING AT 26 SHELS FER ACRE 

712 RETURN HOW MANY ACRES BO YOU WISH TO BUY? @ 

720 PRINT "HAMURABI&£ THINK AGAIN, YOU OWN ONLY"A" ACRES, NOW THEN," HOW MANY ACRES DO YOU WISH TO SELL? 5a 

730 RETURN be ‘ rei an s . . ; 
800 LET CeINT(RNO(8)¢5) 61 HOW MANY BUSHELS BO YOU WISH TO FEED YOUR PEOPLE? 
801 RETURN , = = - - 2 oes 
850 PRINTIPRINT "HAMURABI:; I CANNOT DO WHAT YOU WISH," HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED? 424 


855 PRINT "GET YOURSELF ANOTHER STEWARDIIIII" 
857 GOTO 9998 


860 PRINT "IN YOUR 1@=YEAR TERM OF OFFICE,"Pi"PERCENT OF THEN HAMURABT: I BEG TO REPORT TO YOU, 

862 PRINT "POPULATION STARVED PER YEAR ON AVERAGE, I,£,, A TOTAL OF" TNT VER fe: a) OUPEGPCES STARVED to CAME TO" TREC DLy 
865 PRINT D{"PEOPLE DIEDLI"SLEY LeAsP POPULATION IS NOW SS 

870 PRINT "YOU STARTED WITH 1@ ACRES PER PERSON AND ENDED WITH" SHE CTT’ NOW OWNS ACRES. 

875 PRINT L"ACRES PER PERSON, "SPRINT YOU HARVESTED 5 BUSHELS PER ACRE 


RATS ATE 12 BUSHELS 
YOU NOW HAYE 3439 BUSHELS IN STORE 


880 IF Pi>33 THEN 568 
885 IF L<7 THEN 565 
aoe 42 gy i LAND 15 TRADING AT 22 BUSHELS PER ACRE 
895 IF Pi>3 THEN 960 HOW MANY ACRES DO | WISH TO BUY? @ 
a55 IF Cove THEN 960 HOW MANY ACRES DO YOU WISH TO SELL? @ 
900 PRINT "A FANTASTIC PERFORMANCEL11 CHARLEMANGE, DISRAELI, AND# 
905 PRINT "JEFFERSON COMBINED COULD NOT HAVE DONE BETTERI"1GOTO 990 
948 PRINT "YOUR HEAVY*HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV," 
945 PRINT "THE PEOPLE (REMAINING) FIND YOU AN UNPLEASANT RULER, AND," 
950 PRINT "FRANKLY, HATE YOUR GUTSI"IGoOTO 990 oe 
960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BU 6 ty Aa ance 
965 PRINT "REALLY WASN'T TOO BAD AT ALL» "“INT(P#,8*RND) "PEOPLE WOULD" Nabeul sy na lep pero TOO s Cre 
978 PRINT "DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR" nee ap “ry STARWED, 12 CAME TO THE CITY 
975 PRINT "TRIVIAL PROBLEMS," Tie) CLO SNL OUINE: ¢ 
990 PRINTsFOR Nel TO 10;PRINT CHRS(7)pENEXT N this SM eal S 
" U CVYES > 
995 PRINT "SO LONG FOR NOW."sPRINT perelte G Bnekecs 
a9 


999 END 129 YOU NOW HAVE 274 


HON MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE? 14134 


HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED? Sse 


ACRES 
HELS FER ACRE 


BUSHELS IN STORE 


HOCKEY 2.20... 000. 


Description 


This is a simulation of a regulation, three-period ice hockey 
game. Your opponent is Cornell University. You may use three 
kinds of shots: 


ba fo Laps onoOe 
229, ELIUCK-SHOE 
32 WEiStsSnot 


The game is very comprehensive starting with the face-off, and 
throughout the game with icing and high sticking penalties, 
shots hitting the post, shots being wide and being blocked 

by the goalie. 


In the event of a tie at the end of three periods, the game 
automatically goes into sudden-death overtime. 


Program Author 


Thanks to Mrs. Kingsley Norris for submitting the program. 
It was written by: 


Charles Buttrey 
Eaglebrook School 
Deerfield, MA 01342 
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PROGRAM LISTING 


CONVERTED FROM BRAND X TO DIGITAL RSTS/E BY DAVID AHL 
N,B, THIS PROGRAM IS DESIGNED FOR THOSE WHO KNow NOTHING" 


LET ALBINT(14#RND(X) 46) 
LET xe 
REM wen 
PRINT " 
PRINT " ABOUT HOCKEY LIKE MYSELF, 
PRINT " THIS IS CORNELL U, HOCKEY," 
PRINT " I AM CORNELL, WHO ARE YOU") 
INPUT AS 
PRINT 
PRINT " YOU HAVE THREE SHOTSt" 
PRINT " 1. SLAP SHOT," 
PRINT " 2. FLICK SHOT," 
PRINT " 3. WRIST SHOT," 
PRINT 


PRINT " HERE IS THE FACEsoFFa" 
PRINT " SCORES" 

PRINT " CORNELL "A 

PRINT " MAGN "B 

IF X#2 THEN 240 

IF X#3 THEN 260 

IF AeB > (1/3%A1) THEN 1560 
GOTO 290 

IF A+B >@ (2/3¥A1) THEN 1630 
GOTO 290 

IF (A+B) >@ (AL) THEN 1710 
GOTO 292 

IF Ba3 THEN 1569 

LET CaINTC2*RND(X) +1) 

IF Cet THEN 330 


PRINT " "AS" WINS THE FACE=OFF," 


GOTO 650 


e-= C, 


PRINT " CORNELL TAKES THE FACE=OFF," 


LET DBINT(3*RND(X)41) 

IF Dei THEN 5a0 

IF De2 THEN 570 

PRINT " WRIST SHOT,.." 
LET E@INT(5*RNDCX) 41) 

IF Ed THEN 470 

PRINT " SHOT IS MISSED," 
LET FeINT(2*RND(X) 41) 

IF Feit THEN 4590 


PRINT " CORNELL REGAINS THE PUCK," 


GOTO 349 

PRINT " "AS" TAKES THE PUCK," 
GOTO 652 

PRINT " ##GOODJ we" 

LET AmAet 

GOTO 160 

PRINT " SLAP SHOTeee" 

LET CLBEINT(3*RNO(X) +1) 

IF Cim2 THEN 540 

GOTO 560 

PRINT " ICING PENALTYeesee" 
GOTO 450 

GOTO 36a 

PRINT " FLICK SHOT,ye” 

LET S1@INT(3*RND(X) 41) 

IF S123 THEN 610 

GOTO 649 


PRINT " PENALTY FOR HIGH STICKING! 


PRINT " TWO MINUTESI" 
GOTO 11128 

GOTO 380 

PRINT " YOUR SHOT") 
INPUT G 

IF Get THEN 720 

IF Ge2 THEN 920 

IF Ge3 THEN 970 


PRINT " INPUT EITHER ‘11 821 OR 


GOTO 650 
PRINT " SLAP SHOT," 
LET Z1SINTC3*RNO(X) +1) 
IF Zi#2 THEN 760 

GOTO 78a 

PRINT " ICING PENALTY eevee” 
GOTO 1998 

LET HSINT(S5#RNO(X) 41) 
IF Hej THEN 876 

PRINT " SHOT IS WIDE," 
LET ISIN] (2#RND(X) 41) 
IF Iet THEN 850 


PRINT " CORNELL TAKES THE PUCK," 


GOTO 990 

PRINT " "AS" REGAINS THE PUCK," 
GOTO 650 

PRINT " ##GOUD| we" 

LET Babel 

GOTO 160 
PRINT " FLICK SHOT. oee" 
LET BLSINT(3*RND(X) +1) 

IF Biel THEN 940 

GOTO 9620 
PRINT " ICING PENALTY eavee" 
GOTO 830 
GOTO 78a 
PRINT " WRIST SHOT," 
GOTO 780 
PRINT " CORNELL SHOTs" 

LET JmINT(3*RND(X) 41) 

IF Jei1 THEN 1160 

IF Je2 THEN 1210 

PRINT " SLAP SHOT," 

LET K®eINTC(5#RND(X) 41) 

IF Kai THEN 1130 

PRINT " SHOT HITS THE POST," 
LET LeINTC2*RNDO(X) 41) 

IF L2i THEN 1110 


CORNELL MAN PUT IN BOX FOR" 


wgin 


PRINT " CORNELL REGAINS THE PUCK," 


GOTO 996 


PRINT " "AS" REGAINS THE PUCK," 


GOTO 1310 

PRINT " #wGOOD| +e" 
LET AwA+t 

GOTO 160 

PRINT " WRIST SHOT" 
LET MBINT(5*#RND(X) 41) 


BUTTREY" 


1162 
1192 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
13120 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1518 
1520 
1530 
1540 
1550 
1568 
1572 
1580 
1590 
1600 
1618 
1620 
1630 
1640 
1650 
1660 
16702 
1680 
1690 
1700 
1710 
1720 
1730 
1742 
1750 
1760 
1770 
1780 
1792 
1800 
18108 
1820 
1830 
1840 
1850 
1869 
187 
1880 
1890 
1920 
19108 
1920 
1939 
1940 
1952 
1968 
1978 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2072 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2168 
2170 
2180 
2190 
2200 
2210 
2220 
2232 
2240 
2250 
2260 
2276 
22808 
2290 
2300 


IF Me5 THEN 1130 

PRINT " SHOT IS HIGH," 
GOTO 1070 

PRINT " FLICK SHOT" 
LET TIBINT(S#RND(X)41) 
IF Tisi THEN 1258 

GOTO 1270 

PRINT " ICING PENALTY eseee" 
GOTO 450 

LET NB INT(S#RND(X) 41) 
IF Nai THEN 1130 


PRINT " SHOT IS BLOCKED BY THE GOALIE," 


GOTO 1078 

PRINT " YOUR SHOTS 

INPUT O 

IF O81 THEN 1430 

IF 082 THEN 1540 

PRINT " WRIST SHOT," 

LET PBINT(S#*RNO(X) +1) 

IF Pe2 THEN 870 

PRINT " SHOT IS BARELY WIDE..." 
LET Qe INT(3#RND(X) 41) 

IF 081 THEN 830 

PRINT " "AS" REGAINS THE PUCK," 
GOTO 6508 

PRINT " SLAP SHOT" 

LET Di@INT(S*RND(X) 41) 

IF D183 THEN 1470 

GOTO 1500 


PRINT " PENALTY FOR HIGH STICKING, "A$" MAN PUT IN PENALTY" 


PRINT " BOX FOR TwO MINUTES" 
GOTO 83a 

LET REINT(S*RND(X) 41) 

IF Rei THEN 870 


PRINT " SHOT IS TAKEN BY THE CORNELL GOALIE," 


GOTO 830 

PRINT " FLICK SHOT" 
GOTO 1520 
PRINT " 
LET X#2 
PRINT " SCORES" 

PRINT " CORNELL "A 

PRINT " "Ag" "B 

PRINT " START OF SECOND PERIOD," 
GOTO 160 


PRINT " xwaee END OF SECOND PERIOD «weet! 


LET X83 

PRINT " SCORE" 

PRINT " CORNELL "A 

PRINT " Nag" "B 

PRINT nn 

PRINT " START OF THIRD PERIOD," 
GOTO 1628 

PRINT " #eeee END OF GAME wewwe'! 
IF A®B THEN 1770 

PRINT " FINAL SCORE:" 

PRINT " CORNELL "A 

PRINT " "Ag" "uB 

STOP 


PRINT " SINCE SCORE IS TIED, WE WILL HAVE TO GO" 


PRINT " INTO SUDDEN=DEATHI" 
PRINT " HERE IS THE FACE@OFF," 
PRINT " SCORES" 

PRINT " CORNELL "A 

PRINT ” Nag "B 

LET SBINTC2*RND(X) 41) 

IF Sei THEN 1870 

PRINT " "A$" WINS THE FACE*OFF," 
GOTO 2080 


PRINT " CORNELL WINS THE FACEOFF," 


LET TEINT(3*RND(X) +1) 

IF Tail THEN 2040 

IF T#2 THEN 2060 

PRINT " WRIST SHOT." 

LET UBINT(5#RND(X) 44) 

IF U®1 THEN 20106 

PRINT " SHOT IS MISSED," 
LET V@INT(2*RND(X) +1) 

IF Vai THEN 1990 


PRINT " "AS" TAKES THE PUCK," 
GOTO 2489 

PRINT " CORNELL REGAINS THE PUCK," 
GOTO 1880 

PRINT " ##GOODI] ee" 

LET AwAsi 

GOTO 2268 

PRINT " SLAP SHOT" 

GOTO 1920 

PRINT " FLICK SHOT," 

GOTO 1920 

PRINT " YOUR SHOT"? 

INPUT W 


IF wei THEN 22220 

IF wWe2 THEN 2240 
PRINT "WRIST SHOT," 
LET Y®INT(S#RND(X) 41) 
Ir y=4 THEN 2190 
PRINT " SHOT IS MISSED," 
LET ZeINT(2#*RNO(X) 41) 
IF Z#1 THEN 1990 

GOTO 19708 

PRINT " ##GOOD) +! 
LET Babel 

GOTO 2260 

PRINT " SLAP SHOT," 
GOTO 2132 

PRINT " FLICK SHOT," 
GOTO 2130 

PRINT " GAME IS OVERS)" 
PRINT " FINAL SCORE?" 
PRINT " CORNELL "A 
PRINT " "Ag" ™B 

END 


w#euwe END OF FIRST PERIOD euwae!! 


SAMPLE RUN 


N.& THIS PROGRAM TS DESIGNED FOR THOSE WHO KNOW NOTHING 
ABOUT HOCKEY LIKE MYSELF. --- C. BUTTREY 


THIS 15 CORNELL U. HOCKEY 
I AM CORNELL, WHO ARE YOU? HARVARD 


WOU HAVE THREE SHOTS: 


4a. SLAP SHOT 
2. FLICK SHOT. 
=. WRIST SHOT 


HERE IS THE FACE-OFF: 


SCORE: 
CORNELL @ 
HARVARD 


HARWARD WINS THE FACE-OFF 
YOUR SHOT? 41 

SLAP SHOT. 

SHOT IS WIDE. 

HARVARC REGAINS THE FUCK 
OUR SHOT? 2 
FUICK-SHOT. - ; 

ICING PENALTY. .... 
CORNELL TAKES THE PUCK 
CORNELL SHOT: 

FLICK SHOT 

TEING-FENALIN. 2 2=. 
HARWARCG TAKES THE PUCE. 
YOUR SHOT? 3 

WR SHOT 

SHOT If WIGE. 

HARVARD REGAINS THE PUCK. 
WOUR SHOT? 2 

FRSC Ks Se cas 

SHOT IS WIDE 

HARVARC REGAINS THE PUCK. 
OUR SHOT? 4 

SLAP SHOT 

se HIG De | atest 

HERE IS THE FACE-OFF: 


SCORE : 
CORNELL @ 
HARVARD 1 


HARWARC WINS THE FACE-OFF 
YOUR SHUT? 3 

WRIST SHOT. 

SHOT 15 WIDE 

HARVARC REGAINS THE FUCK. 
WOUR SHOT? 2 

FLICK SHOT... 

TOENGS RENALT. .2- 
“CORNELL TAKES THE PUCK. 
RNELL SHOT: 

FLICK SHOT 

LOINGSPENAETY: . 2 = 
HARVARO TAKES THE PUCK. 
YOUR SHOT? 4 

SLAP SHOT. 

#4 OUDe | tte 


HERE IS THE FACE-OFF: 


SORE : 

CORNELL @ 

HARVARD 2 

MORNELL TAKES THE FACE-OFF 


WRIST 5 
SHOT 1S 


ED. 

INS THE FUCK 
SHOT... 

see GOD) | te 
HERE TS THE FACE-OFF: 


ORE: 
RNELL 4 
HARVARC 2 


CORNELL TAKES THE FACE-OFF 
WRIST SHOT. ... 

SHOT IS MISSED 

HARVARD TAKES THE FUCK 
YOUR SHOT? 4+ 

SLAP SHOT. 

SHOT IS WICE, 

CORNELL TAKES THE PUCK. 
CORNELL SHOT: 

FLICK SHOT 

SHOT If BLOCKED BY THE GOALIE 
HARVARD REGAINS THE FUCK. 
YOUR SHOT? 2 

FLICK SHOT 


SHOT IS TAKEN BY THE CORNELL GOALIE 


IRNELL TAKES THE PUCK 
IRNELL SHOT: 

AP SHOT 

SHOT HITS THE POST. 
HARVARD REGAINS THE PUCK 
YOUR SHOT? 3 

WRIST SHOT 

SHOT 15 BARELY MIDE. . 
HARVARD REGAINS THE FUCK 
YOUR SHOT? 3 

WRIST SHOT. . 

SHOT 15 WIDE 

HARVWARC REGAINS THE PUCK 
YOUR SHOT? 2 

FLICK SHOT.... 

SHOT IS WIDE. 

A REGAINS THE PUCK 
oT? 4 


nT 1S WIDE, 
IRNELL TAKES THE PUCK. 
IRNELL SHUT: 


AP SHOT 
a 


HERE 15 THE FACE-OFF 
SCORE : 


2 
HARVARD 2 

CORNELL TAKES THE FACE-OFF 
WRIST SHOT... 


SHOT I5 MISSED 

ARVARD TAKES THE PUCK 
YOUR SHOT? 4 

SLAF SHOT. 


ICING FENALTY..... 
CORNELL REGAINS THE PUCK 
CORNELL SHOT: 

SLAF) SHOT. 

SHOT HITS THE POST 
HARYARD REGAINS THE PUCK 
YOUR SHOT? 2 

FLICK SHOT 

aeae GID) eae 

HERE IS THE FACE-OFF: 
SCORE : 

CORNELL 2 

HARYVARC = 

HARWARC WINS THE FACE-OFF 
YOUR SHOT? 3 

WRIST SHOT. 

SHOT IS WIDE 

CORNELL TAKES THE FUCK. 
CORNELL SHOT: 

FLICK SHOT 

SHOT IS BLOCKED BS THE GOALIE. 
HARVARD REGAINS THE PUCK 
SOUR SHOT? 2 

FLICK SHOT 


SHOT IS TAKEN BY THE CORNELL GOALIE 


CORNELL TAKES THE PUCK 
CORNELL SHOT: 
WRIST SHOT 


sek GOD) | oto 
HERE IS THE FACE-OFF: 


* ENC OF FIRST PERIOD *##e+ 


CORNELL 
HAR YARD 
START OF SECOND FERIOD 


fed bat 


nd lal 


HARVARD = 
HARVWARC WINS THE FACE-OFF 
SOUR SHOT? 4 

SLAP SHOT 


OT 15 WIDE. 
RNELL TAKES THE FUCK 

RNELL SHOT: 

FLICK SHOT 

SHOT IS BLOCKED BY THE GOALIE 
RNELL REGAINS THE FUCK 
CORNELL SHOT: 

FLICK SHOT 

POTN PENAL T, «. =.- 

HARWAROG TAKES THE PUCK 

YOUR SHOT? 2 

FRIEK SHOT. .y- 

SHOT 15 WIDE 

RNELL TAKES THE PUCK 

ENELL SHOT: 

AP SHOT. 

OT HITS THE. POST. 

RNELL REGAINS THE PUCK. 
CORNELL SHOT: 

FLICK SHOT 

SHOT I5 BLOCKED E&Y THE GOALIE 
RNELL REGAINS THE FUCK 
RNELL SHOT: 

WRIST SHOT 

SHOT 15 HIGH 

HARVARCG REGAINS THE PUCK 

SOUR SHOT? 3 

WRIST SHOT 

SHOT IS BARELY WIDE 

HARVARD REGAINS THE FUCK 

YOUR SHOT? 2 

FEILER SHO 

ICING PENALTY... .. 

IRMELL TAKES THE FUCK 

IRNELL SHOT: 


THE PUCK 


HOUR: 
SLAP SHOT 


NELL TAKES THE PUCK 
SNELL SHOT: 

SLAP SHOOT. 

SHOT HITS THE FOST. 
HARVARD REGAINS THE FUCK 
YOUR SHOT? 2 

FLICK SHOT 

eG OID! tok 

) THE PACE-OFF: 


HARVARD 4 


Lez 


OT IS TAKEN BY THE CORNELL GOALIE 


CORNELL TAKES THE FACE-OFF 
SLAP SHOT.. 

ICING PENALTY..... 

HARVARD TAKES THE PUCK 
YOUR SHOT? 3 

WRIST SHOT. 

SHOT 1S WIDE 

CORNELL TAKES THE PUCK 
CORNELL SHOT: 

SLAF SHOT. 

SHOT HITS THE POST 

CORNELL REGAINS THE PUCK 
CORNELL SHOT: 

FLICK SHOT 

SHOT IS BLOCKED BY THE GOALIE 
HARVARD REGAINS THE FPUCK.. 
YOUR SHOT? 2 

FLICK SHOT 

SHOT 15 TAKEN BY THE CORNELL GOALIE 
CORNELL TAKES THE PUCK. 
CORNELL SHOT: 

WRIST SHOT 

see GUIDE | ba 

HERE IS THE FACE-OFF: 


SCORE : 
CORNELL 4 
HARVARD 4 


HARVARG WINS THE FACE-OFF 
YOUR SHOT? 2 
FIStCK “SHOT. a 
SHOT IS WICE. 
HARVWARD REGAINS THE PUCK 
SOUR SHOT? 2 
FEICK SHOT. -.- 
ae GOD | a 
HERE IS THE FACE-OFF: 
ORNELL 4 
ARVARD 5 
CORMELL TAKES THE FACE-OFF 
SLAP SHOT. . 
SHOT IS MISSED 
HARVARD TAKES THE PUCK 
VWOUR SHOT? & 
WRIST SHOT. 
6G OID | ea: 
HERE IS THE FACE-OFF; 


HARVAIRC WINS THE FACE-OFF 

YOUR SHOT? 4 

SLAP SHOT 

SHOT IS WIDE 

HARVARCG REGAINS THE FUCK 

YOUR SHOT? 4 

SLAP SHOT 

LEANG PENALTY. 2. 

‘NELL REGAINS THE PUCK 

CORNELL SHOT: 

WRIST SHOT 

SHOT IS HIGH 

SNELL REGAINS THE FUCK 

CORNELL SHOT: 

FLICK SHOT 

SHOT 15 BLOCKED BY THE GOALIE 

HARVARD REGAINS THE PUCK 

YOUR SHOT? 3 

WRIST SHOT 

SHOT IS BARELY WIDE. . 

HARVARD REGAINS THE FUCK 

YOUR SHOT? 2 

RETEK SHOT. on 

SHOT IS WIDE 

HARVWARC REGAINS THE PUCK 

YOUR SHOT? 1 

SLAF SHOT 

TOTNG PENAETY s ina2 

CORNELL REGAINS THE PUCK 

CORNELL SHOT: 

WRIST SHOT 

SHOT IS HIGH 

CORNELL REGAINS THE PUCK 

CORNELL SHOT: 

SLAF SHOT 

SHOT HITS THE POST 

CORNELL REGAINS THE PUCK 

CORNELL SHOT: 

WRIST SHOT 

se OIG: ak 

HERE IS THE FACE-OFF: 

SCORE : 

CORNELL 5 

HARVARC 6 
eric END OF SECOND PERIOD ++#&* 


CORNELL 5 
HARVWARC € 


HORSES 


Description 


BETTING AT A HORSERACE 


This program simulates a one-mile horse race for three-year old 
thoroughbreds. You can place any number of bets on the outcome 
of the race. There are four elements to a bet: 


. ‘Horse number (1 to 8) 

- Position (Win=1, Place=2, Show=3) 

Amount of wager ($2 minimum, $300 maximum) 

- Bet signal (2 for more bets to follow, 0 to’ close 
betting) 


BWNHE 
e 


The computer then gives you the position of the eight horses at 
eight points around the raceway. At the end, it tells you what 
each horse paid and what you won (or didn't win) on each of your 
bets. 


Source 


The published program has been around DIGITAL for as long as 
anyone can remember. Its author is now unknown. Other interest- 
ing horse race programs were submitted by Robert Goodman, 
Southfield, Mich.; Don Viola, Staten Island, NY; and Paul 
Garmon, Wellesley Hills, Mass. 
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PROGRAM LISTING 


OOMONAAU NS 


DIM V(1@),UC18)-TC1097M(8) ,0(08),H(8),B(8) »P (56) 
RANDOMIZE \ PRINT "HORSE RACE" 
PRINT "EXAMPLE OF BETS 17272088, ." 
PRINT \ PRINT" SEVENTH = 4 MILE, 3 YR» OLDS 
PRINT 
FOR I#i 70 8 
Bc¢I)sI \ GOsuB 210 
READ o(1) \ PRINT O(I)"e1" 
MCr)2(100450e0(1)) / COCr)+1) 

NEXT I 

PRINT 

PRINT"ENTER HORSE(1*8))70 wIN,PLACE,SHOW(1,2,3)FAND THE wAGER," 
PRINT "AND @ FOR NO MORE BETTING OR 1 OR MORE BETTING," 
LET s ® @ 

PRINT 

LET S®S +1 

PRINT"BET NO. "389 

INPUT T(S),UCS),VCS)_m™ 

LET TCS) sABSCINTC(T(S))) 

IF T(S)>8 THEN 26 

IF T(S)<1 THEN 26 

LET poo de Rae CAME CCS)2) 

IF u(S)>3 THEN 26 

IF u(s)>@ THEN 28 

PRINT"HORSE NOw OR WIN@PLACE*SKOW IN ERROR" \ GO To 18 
IF v(S)<2 THEN 30 

IF V(S)<#300 THEN 33 

PRINT"BET MUST BE >$2 AND <$300, BET AGAIN") 

INPUT V(S) \ GO TO 28 

IF M » 1 THEN 17 

PRINT \ PRINT" THEY'RE OFF AND RUNNING #" \ PRINT 
FOR ial 7.0 ‘@. NOM CEaOON NEXT I 

FOR Kel TO 8 

SLEEP 6 

FOR Js, TO 8 

H(J)8H(J)+RND(O)*M(J) 

NExT J 

For 188 To 1 STEP #1 

FOR ys2 TO J 

ON SGNCH( BC Jet) )=H(8(J)))4+2 GO TO 60,58,62 

IF RND(@)>.5 THEN 62 

Z8B(Je1l) \ B(J=1) 4803) \ BCI) 82 

NEXT J 

NEXT 1 

PRINT \ PRINT " "4 

ON K GOTO 72,74,76,78,80,82,84,86 

PRINT "As THEY BREAK FROM JHE G47E" \ GO TO 88 
PRINT "Ay THE 1/4 MILE POLE" \ GO 10 68 

PRINT "NEARING THE HALFWAY MARK" \ Go To 88 

PRINT "MIDWAY In THE RACE" \ Go To 88 

PRINT "AT 5/8 OF A MILE" \ Go TO 88 


POST 2835" 


PRINT "ROUNDING THE TURN" \ GO TO 88 

PRINT "COMING DOWN THE STRETCH" \ GO TO 88 

PRINT " FINISH" 

REM 

GO suB 200 

NEXT K 

PRINT \ PRINT \ PRINT "$2 MUTUELS PAID#" 

PRINT " STRAIGHT PLACE SHOW" 
@ Kaa 
2 FOR Imi TO 3 


46 GO SUB 215 

6 FOR Jel TO 3 

8 LeaeI+J-3 \ PCL) ele Stol* INTC LeINTC(4*O(BC1)I/ (JC J41) 2 +RND (0) ) 418045) ) 
@ PRINT TABC3+12#J)+ \ Beis 

2 FOR Ms3 TO =4 STEP -4 

4 PEINTCPC(L)/(C1Q4M)) 

6 PsPeldwsINT(P/10) 

7 IF Pe® THEN 118 \ Bee 

8 PRINT CHRS(48+p+B)) 

8 IF m<>A THEN 139 \ PRINT ","3 

9 NEXT M 

@ PRINT "O"}5 

2 NEXT J 

4 PRINT 

6 NEXT I 

@ PRINT \ Q8@ 

2 FOR Jei 710 S 

4 PRINT "BET NO, "3 J 

6 pea 

6 FOR Tai TO 8 \ H(BCI))el \ NEXT I 

@ IF UCJI<H(T(J)) THEN 166 

2 Pw .B1wINTO(V65) #50) HP CUCJ)FH(T(S) )*2=3)) 

4 PRINT "YOU COLLECT" P "ON "jy \ GO TO 172 

6 IF H(T(J))>3 THEN 168 \ PRINT "NEXT TIME, BUY A SHOW"S \ GO TO 4790 

8 PRINT "TEAR UP YOUR"? 

@ PRINT " TICKET ON "3 

2 188 \ B(4)87T(J) \ GOSUB 215 \ PRINT 

4 QgegePev(J) 

6 NEXT J 

8 IF Q<@ THEN 182 

@ PRINT "YOUR TOTAL WINNINGS AMOUNT TO $" Q@ \ STOP 

2 PRINT "YOUR TOTAL LOSSES AMOUNT TO $" ABS(Q) \ STOP 

@ PRINT "POS, HORSE LENGTHS BEHIND" 

5 FOR Iai TO 8 

@ PRINT Is 

5 ON BCI) GOTO 220,222,224,226, eee e307 232,234 

@ PRINT "MAN O'WAR "y \ GO TO 

2 PRINT "CITATION "s; \ GO TO as 
4 PRINT "WHIRLAWAY "ys \ GO TO 240 
6 PRINT "ASSAULT ") \ GO TO 24a 
6 PRINT "SEABISCUIT ys \ GO TO 2490 
@ PRINT "GALLANT FOX"s \ GO TO 240 

2 PRINT "STyMIE "} \ GO TO 240 

4 PRINT "COALTOWN "Ny 

@ IF Ke® THEN 260 

5 IF I>1 THEN 252 \ PRINT \ Go To 255 


56 PRINT ol INTC H(BC(1))“HCBC(I))) 


5 NEXT I 

@ RETURN 

1 DATA 3,4,5+8+9,11,20,30 
9 END 
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SAMPLE RUN 


HORSE RACE 
EXAMPLE OF BET; 1.2,.200,4 


SEVENTH - 1 MILE, 2 YR. OLDS POST 2:35 

4 MAN O° WAR Ze ut 

2 CITATION By EL 

3 WHIRLAWAY ef es 

4 ASSAULT ape sah 

5S SERBISCUTT) “Sf oiat 

6 GALLANT FOX 14 :1 

? STYMIE 206i maw 

8 COALTOWN 36 :4 
ENTER HORSE (1-3);70 WIN. PLACE, SHOWC(1, 2.2); AND THE WAGER 


AND @ FOR NO MORE BETTING OR 4 OR MORE BETTING 


BET NO. 4? 2.1,166.4 
BET NO. 2 7 3.2.160,4 
BET NO. 37 4.2,186.4 
BET NO. 4 7 1,3,166.4 
BET NO. 5? 5,2,1098,.8 


THEY’ RE GOFF AND RUNNING - 


AS THEY EREAK FROM THE GATE - 
Pos. HORSE LENGTHS BEHIND 
1 WHIRLAWAY 


2 SEABISCUIT ~ 2°92 

SS the stem) 

4 GALLANT FOX 2.2 

5 ASSAULT 3.5 

6 CITATION 4. 
4. 
5 


Bon 


8 COALTOWN 


Al THE 274 MICE CRESS 

POS. HORSE LENGTHS BEHIND 
TST 

2 WHIRLAWAY 2 

= CITATION 3 

4 GALLANT FOX . 7 

5 COALTOWN 

§ SEABISCUIT 
7 MAN O° WAR 
8 ASSAULT 


BRE 
MIRA 


NEARING THE HALFWAY MARK — 
POS. HORSE LENGTHS BEHIND 
4 CITATION 
2 STYMIE 3 
3 GALLANT FOX 
4 ASSAULT 
5 
6 
? 
3 


COALTOWN 
SEABISCUIT 
MAN O° WAR 


4 
4. 
WHIRLAWAY 4. 
4 
3) 


al AG A 


ROUNDING THE TURN - 
Pos. HORSE LENGTHS BEHINE 
4 WHIRLAWAY 
2 GALLANT FOX 1. 
SSCVhE 
4 ASSAULT 3. 
5 CITATION 3. 
6 SEABISCUIT 6 
? COALTOWN 
8 MAN O° WAR 


HH WwW hs dh 


COMING DOWN THE STRETCH - 
Pos. HORSE LENGTHS BEHING 
4 WHIRLAWAY 
2 STATE a 
3 CITATION 4 
4 GALLANT FOX 
5 ASSAULT 
6 SEABISCUIT 
? MAN O° WAR 
8 COALTONN 


oor oO 


oO om 


FINISH 
POS. HORSE LENGTHS BEHIND 
4 CITATION 
STYMIE sf 
3 WHIRLAWAY 0 
4 GALLANT FOX 3 
5 ASSAULT 6 
6 MAN O° WAR 16,2 
* SEABISCUIT 2 
3 CORLTOWN 4 


$2 MUTUELS PAID: 

STRAIGHT PLACE 
CITATION 9.97 4.44 
SIME 15.48 
WHIRLAWAY 


BET NO. 4 

YOU COLLECT 498.5 ON CITATION 

BET NO. 2 

TEAR UP YOUR TICKET ON WHIRLAWAY 
BET NO. 3 

TEAR UP YOUR TICKET ON ASSAULT 
BET NO. 4 

TEAR UP YOUR TICKET ON MAN OG WAR 
BET NO. 3S 

TEAR UP YOUR TICKET ON SEABISCUIT 
YOUR TOTAL LOSSES AMOUNT To $4.5 


HURKLE FIND THE HURKLE IN HIDING 


Description 


Hurkle? A Hurkle is a happy beast and lives in another galaxy 
on a planet named Lirht that has three moons. Hurkle are 
favorite pets of the Gwik, the dominant race of Lirht and... 
well, to find out more, read "The Hurkle is a Happy Beast" 

in the book A WAY HOME by Theodore Sturgeon published by Pyramid. 


In this program a shy hurkle is hiding on a 10 by 10 grid: 
Homebase is point 0,0 in the Southwest corner. Your guess as 
to the gridpoint where the hurkle is hiding should be a pair 
of whole numbers, separated by a comma. After each try, the 
computer will tell you the approximate direction to go look 
for the Hurkle. You get five guesses to find him. 


NORTH 


WEST 3) EAST 


This 1s 
Gridpoint 7,3 


@) 


Pee team oom tyne 4S) 6 7B Wo 
HOMEBASE 


SOUTH 


Program Author 


Bob Albrecht 
People's Computer Company W 
Menlo Park, CA 94025 
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PROGRAM LISTING SAMPLE RUN 


REM sae CONVERTED TO RSTS’E BY DAVID AHL, DIGITAL 


A HURKLE IS HICING ON A 14 BY 46 GRID. HOMEBASE 
REM HURKLE - FPEOPLE’S COMPUTER COMPANY, MENLO PARK CA 


ON THE GRID IS POINT @.6 AND ANY GRIDFOINT IS A 


re oS SS 


GISGOGVOeGCGIGCTAAGT CSG GsS SSH 


3 
A 
145 RANDOM PAIR OF WHOLE NUMBERS SEPARATED BY A COMMA. TRY TO 
iia N=S GUESS THE HURKLE’S GRIDPOINT. YO! GET 5S TRIES 
i124 G=14 AFTER EACH TRY. I WILL TELL YOU THE APPROXIMATE 
214 PRINT DIRECTION TO GO TO Look FOR THE HURKLE 
som PRINT “A HURKLE IS HIGING ON A": G; "BV"; Gi "GRID. HOMEBRSE" 
230 PRINT “ON THE GRID IS FOINT & 6 ANG ANY GRIDPOINT IS A" GUESS #17 5.5 
40 PRINT "PAIR OF WHOLE NUMBERS SEPARATED BY A COMMA. TRY TO" Go NCIRTHERST 
PRINT "GUESS THE HURKLE’S GRIDPOLNT. ‘OU GET"; N: "TRIES. " 
PRINT “AFTER EACH TRY. I WILL TELL YOU THE APPROXIMATE" GUESS # 27 7? 
PRINT "DIRECTION TO GO TO LOOK FOR THE HURKLE. " ho EFIST 


PRINT 
A=INTCG#RND CB > GUESS # 2°? Ss) 
S=INT CG#RND CED > 
FoR K=1 TON 
PRINT "GUESS #"5 Ki 
INPUT xX. 


YOU FOUNG HIM IN = GUESSES! 


34h 1F ABSCN-AI+RESCY-E = THEN 546 Po Carre SUT DING 
Bee eeu paluae cice LET/S PLA AGAIN. HURKLE IS HIDING 
360 GUSUE 618 Fase ee 

a See GO NORTHMEST 

pen GUESS # 27 2.7 

428 FRINT “SORRY, THAT’ S": Ns “GUESSES. " aa NER THUEST 

438 PRINT "THE HURKLE IS AT "SAU". "7B 

Stet el SUT GUESS # 3 7 4.8 

454 PRINT “LET’S FLAY AGAIN. HURKLE IS HIGING. " Go NORTH 

458 PRINT 

Td) EE Ue GUESS # 4 7 1.9 

saa REM 

Seb eb YO! FOUNG HIM IN 4 GUESSES! 


PRINT “SOU FOUNG HIM IN"; GUESSES!" 
FOR 1=1 TO A8SPRINT CHEE CPs SNEXT DSPRINT 


go To 444 Tee aU ua 4 : : 
ete ie LET“S PLAY AGAIN. URKLE 15 G. 
BRINT “GG O% GAIN. H I5 HIGIN 


IF =E THEN 678 = 2 
aE im GUESS # 4 7 4,5 
IF XB THEN 668 GO SCWTHERST 


PRINT “SOUTH 
BU eee ae GUESS # 2 7 7, 


a 


ha 


go To 


GGVeV ICSI VT TCI cVTsewrggservrIss cso os 


?2o 


Seat thea Soe GO NORTHWEST 
IF ¥<R THEN 748 Br Se oy he 
PRINT *HEST") GUESS # =? 8.4 


go SCITHWE ST 


Sie EAST *; GUESS # 4 7 6.3 
RETURN a 
99 END GUESS #5 7 5.3 
REFICC 


VOU FOUNC HIM IN S GUESSES! 


LET’S FLAY AGAIN, HURKLE IS HIDING, 


GUESS # 1 °7 4.8 
GO NORTHWEST 


GUESS #28 2715 
go NORTH 
MESS A Se eta 


Gn NORTH 


GUESS # 4 


oo 
3 


Wu FOUND HIM IN 4 GUESSES! 


LET’S PLAY AGAIN. HURKLE IS HIOING 


1299 
HWEST 
eae 


GO SOUTHWEST 


GUESS # 3 7525 
GO SOUTHEAST 


GUESS # 4 7 6.8 
Go NORTH 


GUESS eS F642 
go NORTH 


SORR. THAT’S 5 
THE HURKLE I5 A 
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KINEMA THROW A BALL UP IN THE AIR 


Description 


This program tests your fundamental knowledge of kinematics. 
It presents a simple problem: a ball is thrown straight up 
in the air at some random velocity. You then must answer 
three questions about the flight of the ball: 


1. How thigh will it: ge? 

2. How long until it returns to earth? 

3. What will be its velocity after a random number of 
seconds? 


The computer evaluates your performance; within 15% of the 
correct answer is considered close enough. After each run, 
the computer gives you another problem until you interrupt 
the program. 


Program Author 


KINEMA was shortened from the original Huntington Computer 
Project Program, KINERV, by: 


Richard FF.) Pav 
Patchogue High School 
Patchogue, New York A BALL I5 THROWN UPWAROS AT 15 METERS PER SECONG 
HOW HIGH WILL IT GO CIN METERS)? 22 
NOT EVEN CLOSE 
CORRECT ANSWER I5 11. 47959 
HOW LONG UNTIL IT RETURNS (IN SECONDS)? =F 
CLOSE ENOUGH 
CORRECT ANSWER I5 2 B61225 


WHAT NILE 21S ¥VELGCITY BE -AFTER 2°SECONDSS “tx 
CORRECT! VERY GOOD! 


ae ng 
164 PRINT 2 RIGHT OUT OF = NOT BAC 
185 PRINT 
196 G=4 
116 Y=S+INTOES+#RND CH)? A BALL 15 THROWN WPWAROS AT 21 METERS PER SECONG 
141 PRINT "A GALL TS THROWN UPWAROS AT"Y "METERS PER SECOND" 
112 PRINT » HOW HIGH WILL IT GO CIN METERS)? 22 
445 A=""2719 6 CLOSE ENOUGH 
416 PRINT "HOW HIGH WILL IT GO ¢IN METERS)". CORRECT ANSWER I5 22.5 
11? GOSUE Saa 
126 H="/4. 3 HOW LONG UNTIL IT RETURNS (IN SECONDS)? 4 4 
122 PRINT "HOW LONG UNTIL IT RETURNS ¢IN SECONDS)"; CLOSE ENOUGH 
124 GOSUE San CORRECT ANSWER IS 4, 285714 
138 THCA+INTCS4#¥4RND E1418 
422 A=Y-9. S#T WHAT WILL ITS YELOCITY GE AFTER 2 4 SECONDS? 4 
424 PRINT "WHAT WILL ITS YELOCITY GE AFTER" T"SECONGS": NOT EYEN CLOSE 
36 GOSUB Saa CORRECT ANSWER LS  42aaan4 
149 PRINT 
158 PRINT @"RIGHT OUT OF 2"; 
166 IF #22 THEN 1a4 2 RIGHT OUT OF (2 NOT EAC 
174 PRINT “ NOT BAC" 


134 60 TO 164 


A BALL 15 THROWN UPWAROS AT 22 METERS FER SECOND 


HOW HIGH WILL IT GO CIN METERS)? 24. 2 
% 1F Gt=15*AES¢A) THEN S18 CLOSE ENOUGH 


564 PRINT "NOT EVEN CLOSE x CORRECT ANSWER IS 24. 69288 

586 GO TO 512 

5a? B=h+41 HOW LONG UNTIL IT RETURNS CIN SECONDS)? 4 4 
543 PRI"“CORRECT! YER" GOOD! CLOSE ENOUGH 

563 G0TOSea CORRECT ANSWER IS 4. 489796 

518 PRINT “CLOSE ENDUGRH. " 

511 G=0+4 WHAT WILL ITS VELOCITY BE AFTER .2 SECONDS? 2a 


512 PRINT “CORRECT ANSWER I5"A CORRECT! ¥YERY GOOD! 
529 PRINT 


538 RETURN 
9 END SoRTGHT “BUT IWF NOT BAD 


rod 


Ki NG GOVERN YOUR OWN ISLAND 


Description 


This is one of the more comprehensive, difficult, and interesting 
land and resource management games. (If you've never played one 
of these games, start with HMRABI). 


In this game, you are Premier of Setats Detinu, a small communist 
island 30 by 70 miles long. Your job is. to decide upon the 
budget of the country and distribute money to your countrymen 
from the communal treasury. 


The money system is Rallods; each person needs 100 Rallods 

per year to survive. Your country's income comes from farm 
produce and tourists visiting your magnificent forests, hunting, 
fishing, etess Part iof your ilLand “rsi-farm Wand but ‘staiso nas 

an excellent mineral content and may be sold to foreign industry 
for strip mining. Industry import and support their own workers. 
Crops cost between 10 and 15 Rallods per square mile to plant, 
cultivate, and harvest. Your goal is to complete an eight-year 
term of office without major mishap. 


To the question, "HOW MANY TIMES HAVE YOU PLAYED?" answer "0" 
fOreanruLt set. Of rules; “S00" for no explanation, -—or vay, 0005 
to continue an old game. To stop a running game and continue 
it later, answer "0" to all questions. 


This program is available from DECUS as BASIC-8-346, and is 
called "POLLUTION GAME." 


Program Author 


James A. Storer 
Lexington High School 
Lexington, MA 02173 


PROGRAM LISTING 


REM JIM 


STORER 


PRINT "HOW MANY TIMES HAVE YOU PLAYED") 


1 

2 

3 INPUT Z 
5 LET NSe 
6 
1 


RANDOMIZE 
2 


TLASZaS: 
14 IF Ze1 
17 FOR Yi 
18 PRINT 


@@ THEN 47 
AGO THEN 1960 
ei TO 10 


19 NEXT Yq4 


20 PRINT 
22 PRINT 
24 PRINT 
26 PRINT 
27 IF Z<> 
28 PRINT 
32 PRINT 
32 PRINT 
34 PRINT 
36 PRINT 
38 PRINT 
39 PRINT 
4Q PRINT 
42 PRINT 
44 PRINT 
47 FOR Y1 
48 PRINT 
49 NEXT Y 
5Q LET As 
55 LET Be 
65 LET Ds 
LET & 
FOR Y 
PRINT 
NEXT 
PRINT 
PRINT 
Per vi 
IF Ce 
PRIWT 
PRINT 
PRINT 
PRINT 
FOR Y 
PRINT 
NEXT 
PRINT 
INPUT 
TE < 
IF He< 
PRINT 
DP x: 
PRINT 
PRINT 
PRINT 
EET “x 
GOTO 
LET 0 
LET A 
PRINT 
INPUT 
342 IF I< 
IF I< 
If Is 
PRINT 
GOTU 
PET ay, 
ET 
LET A 
GOTU 
LET A 
PRINT 
INPUT 
IF J< 
IF di< 
PRINT 
GOTO 
IF J< 
PRInT 


EES U 


PRINT 
GoTo 


GoTu 


PRINT 
INPUT 


PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


Goro 


NEXT 


1i22) LF 


IF K<? 
IF Ke<sA TREN 


FOR Y1s1 
PRINT 


"CONGRATULATIONS, yOUIVE BEEN ELECTED PREMIER OF SETATS D NU," 
"A SMALL COMMUNIST ISLAND 3@ By 70 MILES LONG, YOUR JOB Ts to" 
"DECIDE UPON THE COUNTRY'§ BUDGET AND DISTRIBUTE MONEY TO YOUR" 
"COUNTRYMEN FROM THE COMMUNAL TREASURY," 

@ THEN 47 

"ThE MONEY SYSTEM IS RALLONS," 

"AND EACH PERSON NEEDS 1@@ RALLODS PER YEAR TO SURVIVE." 

"YOUR COUNTRY'S INCOME COMES FROM FARM PRODUCE AND TOURISTS" 
"VISITING YOUR MAGNIFICIENT FORESTS, HUNTING, FISHING, ETC. HALF" 
"YOUR LAND IS FARM LAND WHICH 4LSQ HAS AN EXCELLENT MINERAL" 
"CONTENT AND MAY BE SOLD TO FOREIGN INDUSTRY (STRIP MINING)" 
"WHO IMPORT AND SU¥PORT THEIR OWN WORKERS, CROPS COST BETWEEN" 
"1@ AND 15 RALLODS PER SQ, MILE TO PLANT," 

"YOUR GOAL IS TO COMPLETE YOUR"INSs"YEAR TERM OF OFFICE,"3 

" GOOD LUCKy" 

wt! TCA 


1 

INT (640 004(RND(1) #1 00G)=(RND(1) #100") ) 
INT(S@@4+(RND (1) #18,"(RND(1)4#108)) 

20nea 

ZINTCRND(1) #10495) 

tai TO 8 


Y1 
"YOU NOW HAVE"SAS"RALLODS IN THE TREASURY," 
INT(B) 3 "COUNTRYMEN, "5 

9BINT(CORND (19/2) ¥10410)) 

A THEN 14a 
INT(C)S"FOREIGN WORKERS, "9 

" ANO"SINT(O)E"SQ. MILES OF LAND," 

"THIS YEAR INDUSTRY WILL BUY LAND FOR"sW4s"RALLODS PER SO, MILE." 
"LAND CURRENTLY COSTS"SV9OF"RALLODS PER SQ. MILE TO PLANT," 

1e1 TO 3 


vid 
"HOW MANY SQ, 
H 

® THEN 2¢a 

SD@e19AR THEN 3a¥ 
u! THINK AGAIN, 

<> 4 THEN 24a 
"CFOREIGN INDUSTRY WILL ONLY BUY FARM LAND 
"LAND IS UNECONOMICAL TO STRIP MINE NUE TO 
"THICKER TOP SOIL, ETC.)" 

ai 

enn 

®eINT(DeH) 

sINT(CA+( Hew) ) 

"HOw MANY RALLOOS DO YQU WISH TO DISTRIBUTE TO YOUR COUNTRYMEN"S 
I 

@ THEN 

A TREN 422 

4 TREN 389 
a THINK AGAIN 

320 

oo 

F) 

Lr) 

190 

sInT(AeT) 

"HOW MANY Si. 
J 

A TREN 414 

aBe2d TREN 426 
Le SORRY, 

410 

eD-{4AZ 
J SOKRYs 


MILES DO YOU WISH TO SELL TO INDUSTRY" 


YOU'VE ONLY"#D@1A00;"S0, MILES OF FARM LAND" 


BECAUSE FOREST" 
TREES," 


329 


YOU'VE ONLY"ZAI"RALLODS ITN THE TREASURY" 


AILES 00 YOU WISH TO PLANT"S 


BUT EACH COUNTRYMAN CAN ONLY PLANT 2 SQ, MILES" 


THEN 432 


BuT YOU'VE ONLY"sD=19003"SG. MILES GF FARM LAND" 


GOTO 41¥ 


LSINT(CJ¥V9) 


IF U1<4 THEN 844 
IF U13A THEN 


49u 


" THINK AGAIN» YOU'VE ONLY"SAs"RALLODS LEFT IN THE TREASURY" 


416 
LET Kea 
LET Aaa 


14u9 


LET AzAwul 
IF De200R THEN 


1AAA 
"HOR MANY RALLOOS OG 
« 

THEN 520 
1A04 
Mi THINK AGAIN, 


YOU wISH TO SPEND ON POLLUTION CONTROL"# 


YOU'VE ONLY"sAs"RALLOMS REMAINING" 


GOTO 514 

IF H<>@ THEN 

IF 1l<>a THEA 

IF J<>A THEN 

IF K<>@ THEN 

FOR Yiel TO 5 


1G92 
12ae2 
Love 
1972 


NEXT Y1 


"GOODBYE." 
"CIF YOU WISH TO CONTINUE THIS GAME AT 4 LATER DATE, ANSWER " 
"{ag@ FOR HOW MANY TIMES YOU'VE PLAYED, AT BEGINNING OF NEXT "5 


"GAME,)" 


GOTO 1599 


6a 
To 3 


Y1 


LET AsINTCASK) 

LET Ades 

IF INTCI/10%"B)>a@ THES 1122 

IF IsiGu<S¢ THEN 1700 

PRINT INT(B=(T/14@)) 9"COUNTRYMEN DIED OF STARVATION" 
LET FLIBINT(RND C1) *(200%"0)) 

K<25 THEN 1134 

LET Fim INT(F1/(K/25)) 


IF Fi<#@ THEN 11568 ” 
PRINT Fis"COUNTRYMEN DIED OF CARBON=MONOXIDE AND DUST INHALATION 


L339 


1150 
1160 
1165 
1170 
1172 
1174 
1175 
1176 
1188 
1184 
1182 
1183 
1185 
1187 
1189 
1190 
1194 
1200 
1220 
1224 
1226 
1230 
12590 
1255 
1260 
1265 
1270 
1275 
128a 
1290 
1292 
1305 
1314 
1326 
1324 
1326 
1339 
1340 
1344 
13528 
1355 
1360 
1365 
1367 
1372 
1380 
13940 
1402 
1425 
1410 
1420 
1425 
1430 
1435 
1449 
1442 
1444 
1446 
1448 
1450 
1451 
1452 
1462 
1462 
1465 
1467 
1470 
1472 
1475 
1477 
148% 
1482 
1502 
1585 
1510 
1515 
1520 
1545 
1550 
1552 
1555 
1566 
1562 
1564 
157¢ 
1574 
1576 
1578 
1580 
1594 
1592 
1594 
1596 
1600 
1602 
1605 
1619 
1615 
1622 
1622 
1625 
1630 
1635 
1670 
1672 
1680 
1682 
16924 
1692 
1700 
1702 
1795 
1710 
1715 
1720 
1732 
1899 
1805 
1807 
1610 
1615 
1820 


IF INT(CI/100)"B)<@ THEN 1170 

IF Fi>@ THEN 1180 

GOTO 1200 

PRINT " YOU WERE FORCED TO SPEND"SINTC(F14(B=(1/128)))#9)9 
PRINT "RALLODS ON FUNERAL EXPENSES," 

LET BSSINT(Fi4#(Be(I/180))) 

LET ASINTCA((F14(B=(1/188)))#9)) 


GOTO 1185 a 
PRINT * YOU WERE FORCED TO SPEND"SINTCF1*9))"RALLODS ON "y 
PRINT "FUNERAL EXPENSES," 


LET B5aFy 

LET Se INT(A=(F1#9)) 

IF A>ed THEN 1194 

PRINT " INSUFFICIENT RESERVES TO COVER COST =LAND WAS SOLD" 
LET ODSINT(D4#(A/w)) 

LET Aga 

LET BEINT(B=B5) 

IF Hed THEN 1250 

LET CLBINTCH#(RND (C1) #10)" ¢(RNO(1)#20)) 

IF C>% THEN 1230 

LET CisCi+20 

PRINT Cis"KORKERS CAME TO THE COUNTRY AND"5 

LET PLBINT(((T/100=B)/18)4(K/25) =( (2008"0) /58)=(F1/2)) 
PRINT ABSC(PL)S"COUNTRYMEN "3 

IF P1<@ THEN 1275 


PRINT "CAME TO"3 
GOTO 1282 

PRINT "LEFT") 

PRINT " THE ISLAND," 


LET BEINTC(R+P1) 

LET C#INT(C+C1) 

LET U2sINT(((29G¢=0) #((RND(1)41.5)/2))) 
IF Ce? THEN 1324 


PRINT " GCF"SINTCJ)E"SU, MILES PLANTED,"3 

IF J>U2 THEN 1334 

LET v2eJ 

PRINT " YOU HARVESTED"ZINT(Jeu2)s"SG. MILES OF CROPS," 


IF U2E¢ THEN 1374 
IF Ti>s2 THEN 1373 


PRINT " COURS Om ty 

IF Tis@ THEN 1365 

PRINT "INCREASEN "3 

PRINT "AIR AND WATER POLLUTTON FROM FOREIGN INDUSTRY,.)" 


CETEAT Usted 

LET QEINTC(JeU2) 6 (W/2)) 

PRINT " MAKING"ZINT(QO)S"RALLODS," 
LET AsINTCAeQ) 

LET vit INT(C(BeP1) #22) +(RND (1) 4520) ) 
LET v2aINT((220%"D) #15) 

PRINT " YOU mADE"SABSCINT(VieV2))F"RALLODS FROM 
IF v22@ THEN 1450 

IF Viev2>ev3 THEN 1454 

PRINT " OECREASE BECAUSE "8 

LET GIB®RND(1) «19 

IF Gi<s2 THEN 1462 

IF Gi<ed THEN 1465 

IF Gi<s6 THEN 1474 

IF Gi<®& THEN 1475 

IF Gi<3{a THEN 148% 

LET v3e8INT(Viev2) 


TOURIST TRADE," 


LET A®INT(A+V3) 

GOTO 190¢ 

PRINT "FISH POPULATION H48 DWINDLED DUE TO WATER POLLUTION," 
GOTO 14524 

PRINT "AIR POLLUTION IS KILLING GAME BIRD POPULATION," 
GOTO 1452 

PRINT "MINERAL BATHS ARE REING RUINED BY WATER POLLUTION," 
GOTO 1452 

PRINT "UNPLEASANT SMOG TS DISCOURAGING SUN BATHERS," 

GoTo 145% 

PRINT "HOTELS ARE LOOKING SHABBY DUE TO SMOG GRIT." 

GOTO 1450 


IF BS>22@ THEN 16206 
IF 8<343 THEN 170% 
IF (A4/106@)>5 THEN 
TF C>B8 THEN 155” 
IF N5ef{ex5 THEN 
GOTO 220% 


Laae 


1992 


FOR Yiz1 TO 8 

PRINT 

NEXT Y1 

PRINT "TrE NUMBER OF FORETGN WORKERS HAS EXCEFDED THE NUMBER" 
PRINT "OF COUNTRYMEN, 48 A MAJORITY THEY HAVE REVOLTED AND" 
PRINT "TAKEN OVER THE COUNTRY," 


IF RND(1)<=,5 THEN 1584 


PRINT "YOU HAVE BEEN THROWN OUT OF OFFICE AND YOU ARE NOw" 
PRINT "RESIDING IN PRISTON," 

GOTO 159¢ 

PRINT "YOU HAVE BEEN ASSASSTINATED," 
FOR Yiai TO 18 

PRINT 

NER Yen 

STOP 

FOR y4is41 TO 8 

PRINT 

NExT Yi 


PRINT BSs"COUNTYRMEN DIED In GNE YEARIL IIE" 

PRINT "DUE TO THIS EXTKEME MISMANAGEMENT YOU HAVE NOT UNLY" 
PRINT "BEEN JMPEACHED AND THROWN OUT OF OFFICE BUT YoU" 

LET M6SINTC(RND()) #10) 

IF MOe<s3 THEN 1672 


IF M6<86 TKEN 1682 
IF M6<mi2 THEN 1690 
PRINT "ALSO HAD YOUR LEFT EYE GOUGED OUT," 
GOTO 1594 
PRINT "HAVE ALSO GAINED A VERY BAN REPUTATION," 
GOTO 1592 
PRINT "HAVE ALSO BEEN PECLARED NATIONAL FINK," 
GOTO 1592 
FOR Yizi TO 6 
PRINT 
NEXT Yi 
PRINT "CVER CNE THIRD ©F THE POPULATION HAS DIEN SINCE YOU" 
PRINT "WERE ELECTED TO OFFICE, THE PROPLE (RE“AINING)" 
PRINT "HATE YOUR GUTS," 
GOTO 1572 
IF BbeFi<2 THEN 1515 
FOR Yisi To 8 
PRINT 
NEXT Yi 
PRINT "MGNEY WAS LEFT GVER IN THE TREASURY WHICH YOU DID" 
PRINT "NOT SFEND, AS A RESULT SOME OF YOUR COUNTRYMEN OIED" 


1825 
1830 
1835 
18420 
1845 
1852 
1920 
1902 
1905 
19208 
1925 
1930 
1935 
1940 
1945 
195@ 
1960 
1961 
1962 
1963 
1965 
1967 
1969 
1970 
1974 
1975 
1976 
1977 
1982 
19al 
1982 
1990 
1991 
1992 
1993 
1994 
1996 
1997 
1998 
2200 
202¢e 
2042 
2046 


PRINT "OF STARVATION, THE PUBLIC IS ENRAGED AND yOU HAVE" 

PRINT "BEEN FORCED TO EITHER RESIGN OR COMMIT SUCIDE" 

PRINT "THE CHOICE IS YCURS," 

pRINT "IF yOu CHOOSE THE LATTER, PLEASE TURN OFF YOUR TTY"S 

PRINT " BEFORE PROCEEDING," 

GOTO 1590 

FOR yiei TO 8 

PRINT 

NEXT Y1 

PRINT "CONGRATULATIONSIJII111¢20sa0dtsaa" 

PRINT "YOU HAVE SUCCESSFULLY COMPLETED YOUR"sNS;"YEAR TERM" 

PRINT "OF OFFICE, YOU ERE, OF COURSE, EXTREMELY LUCKY, BUT NEVER THE" 
PRINT "LESS, IT'S QUITE AN ACHIEVEMENT, GOODBSY AND GOOD LUCK =#yOU'LL" 
PRINT "PROBABLY NEED IT IF yOy'tRE THE TYPE THAT PLAYS THIS GAME," 


PRINT " eFOR FURTHER THRILLS, TRY LANDING ON THE MOON" 

GOTO 1590 

PRINT "HOW MANY YEARS HAD YoU BEEN IN GFFICE WHEN INTERRUPTED") 
INPUT X5 


IF X5<0 THEN 1596 
IF X5<8 THEN 1969 


PRINT " COME ON, YOUR TERM OF OFFICE IS ONLY"yNSp"VEARS" 
GOTO 1962 

PRINT "HOW MUCH DID YOL HAVE IN THE TREASURY") 

INPUT A 


IF A<@ THEN 1590 

PRINT "HOW MANY COUNTRYMEN" 

INPUT B 

IF BK? THEN 1590 

PRINT "HOW MANY WORKERS") 

INPUT C 

IF C<@ THEN 1590 

PRINT "HOw MANY SQ, MILES OF LANDS 

INPUT D 

IF D0<@ THEN 1992 

IF D>2@@H THEN 1996 

IF D>102¢ THEN 19a 

PRINT " COME ON, YOQL STARTED WITH 1200 SO, MILES OF FARM LAND" 
PRINT "' AND 1802 SQ, MILES OF FOREST LAND" 
GOTO 1990 

LET xX5sxSet 

LET 8530 

GOTO {ua 

END 


140 


SAMPLE RUN 


CONGRATULATIONS! YOUVE BEEN ELECTED PREMIER OF SETATS DETINL, 

A SMALL COMMUNIST ISLAND 24 BY 7@ MILES LONG. YOUR Joe Is TO 
DECIDE UPON THE COUNTRS’S BUDGET AND DISTRIBUTE MONEY TO YOUR 
COUNTRYMEN FROM THE COMMUNAL TREASURY. THE MONEY SYSTEM IS RALLODS, 
AND EACH PERSON NEEDS 194 RALLODS FER YEAR TO SURWIVE 

YOUR COUNTRY’S INCOME COMES FROM FARM PRODUCE AND TOURISTS 
VISITING YOUR MAGNIFICIENT FORESTS. HUNTING, FISHING. ETc 
YOUR LAND 1S FARM LAND WHICH AL HAS AN EXCELLENT MINERAL 
CONTENT AND MAY BE SOLD TO FOREIGN INDUSTRY (STRIF MINING) 
WHO IMPORT AND SUPPORT THEIR OWN WORKERS. CROPS COST BETWEEN 
49 AND 15 RALLODS FER SO. MILE To PLANT 

YOUR GOAL I5 TO COMPLETE YOUR & YEAR TERM OF OFFICE. 


HALF 


Goo LUCK! 


YOU NOW HAVE 68259 RALLOGS IN THE TREASURY 
502 COUNTRYMEN. AND 20a 5G. MILES OF LAND 
THIS YEAR INDUSTRY WILL Buy LAND FOR 144 RALLOOS FER Se. MILE 


LAND CURRENTLY COSTS 14 RALLODS PER Se. MILE TO PLANT 


HOW MANY SG. MILES DO YOU WISH Ta SELL TO INCL 
HON MANY RALLODS CO YOU WISH To DISTRIBUTE To YOUR COUNTRYMEN? Sa2a6 
HOW MANY S@. MILES DO YOU WISH TO PLANT? fae 

HOW MANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL? Sa@aa 


344 WORKERS CAME TO THE COUNTRY AND 154 COUNTRYMEN CAME TO THE ISLAND 
OF 796 SG. MILES PLANTED. YOU HARWESTED SQ. MILES OF CROPS 
<DUE TO AIR ANC WATER POLLUTION FROM FOREIGN INCUSTRY. > 
MAKING 19996 RALLODS 
YOU MADE 6584 RALLODS FROM TOURIST TRADE 


YOU NOW HAVE S926 RALLODS IN THE TREASURY 

696 COUNTRYMEN, 344 FOREIGN WORKERS. AND 17ae MIL 
THIS YEAR INDUSTRY WILL BUY LAND FOR 142 RALLODS PER Se 
LAND CURRENTLY COSTS 141 RALLODS PER 56. MILE TO PLANT 


5 OF LAND. 
PLEEE: 


HOW MANY SG. MILES DO YOU WISH TO SELL TO INDUSTRY? 

HOW MANY RALLOOS DO YOU WISH TO DISTRIBUTE TO YOUR 

HOW MANY S@. MILES CO YOU WISH TO PLANT? 7H 
SORRY. BUT YOUVE ONLY 444 St. MILES OF FARM LAND 

HOW MANY SG. MILES BO YOU WISH TO PLANT? 4486 

HOW MANY RALLODS Do YOU WISH TO SPEND ON POLLUTION CONTROL? Saae 


285 WORKERS CAME TO THE COUNTRY AND COUNTRYMEN CAME TO THE ISLAND 
OF 466 SQ. MILES PLANTED. ‘OW HARWESTED @ SG MILES OF CROPS 

<BUE TO INCREASED AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY. > 
MAKING @ RALLODS 
YOU MADE $425 RALLODS FROM TOURIST TRACE 

DECREASE BECAUSE AIR POLLUTION IS KILLING GAME BIRO POPULATION 


YOU NOW HA¥YE 12264 RALLOOS IN THE TREASURY 

384 COUNTRYMEN. 599 FOREIGN WORKER AND 1480 Se. MILES OF LAND 
THIS YEAR INDUSTRY WILL BUY LANG FOR 37 RALLODS PER Se. MILE 
LAND CURRENTLY COSTS 12 RALLOOS PER SG. MILE To PLANT 


HOW MANY SG. MILES DO YOU WISH TO 
HOW MANY RALLOOS DO YOU WISH To o RIBUTE TO YOUR COUNTRYMEN? 
THINK AGAIN YOUVE ONLY 4 1 RALLODS IN THE TREASURY 
HOW MANY RALLODS DO WOU WISH TO DISTRIBUTE TO YOUR COUNTRYMEN? 12888 

HOW MANY SQ. MILES CO YOU WISH TO PLANT? 484 
THINK AGAIN, YOUVE ONLY 264 RALLODS LEFT IN THE TREASURY 
HOW MANY SG. MILES OO WOU WISH TO PLANT? 22 
HOW MANY RALLOOS BO YOU WISH TO SPENC ON POLLUTION CONTROL? Sea 
THINK AGAIN, YOUVE ONLY 24 RALLODS REMAINING 
HOW MANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL? 24 


SELL TO INDUSTRY? 


764 COUNTRYMEN DIED GF STARYATION 

446 COUNTRYMEN DIED CF CARBON-MONOXIDE ANC CUST INHALATION 
YOU WERE FORCED TO SPEND 14566 RALLODS ON FUNERAL EXPENSES 
INSUFFICIENT RESERVES TO COVER COST -LAND WAS SOLD 

173 COUNTRYMEN LEFT THE 

OF 26 SG. MILES PLANTED. 

MAKING @ RALLODS 

YOU MADE 16844 RALLOOS FROM TOURIST TRADE 
DECREASE BECAUSE AIR POLLUTION I5 KILLING GAME BIRD POPLILATION 


SLANG. 
WOW HARWESTED @ So 


MILES OF CROPS. 


14?4 COUNTYRMEN DIED IN ONE YEAR! II! 
DUE TO THIS EXTREME MISMANAGEMENT YOU HAWE NOT ONLY 
BEEN IMPEACHED ANC THROWN GUT OF OFFICE BUT You 
HAVE ALSO BEEN DECLARED NATIONAL FINK 


LETTER _........... 


Description 


LETTER is similar to the game GUESS in which you guess a number 
chosen by the computer; in this program, the computer picks a 
random letter of the alphabet and you must guess which one it 
is using the clues provided as you go along. It should not 
take you more than five guesses to get the mystery letter. 


Computer Limitations 


This program was adapted for DIGITAL EduSystem 15/30/35 and 
uses the automatic character string to ASCII conversion feature. 


Other systems will require a conversion function as Statement 
435. 


Program Author 


Program modified and adapted from the original written by: 


Bob Albrecht 
People's Computer Company 
Menlo Park, CA 94025 


PROGRAM LISTING 


LETTER EDUSYSTEM 36 


98 RANDOMIZE 


196 
216 
228 
230 
346 
320 
340 
4410 
425 
424 
446 
450 
458 
420 
508 
584 
506 
588 
5418 
515 
526 
536 
999 


PRINT "LETTER GUESSING GAME"\PRINT 

PRINT “I*LL THINK OF A LETTER OF THE ALPHABET, A TO 2." 
PRINT “TRY TO GUESS MY LETTER ANC I°LL GIVE YOu CLUES" 
PRINT "AS TO HOW CLOSE YOURE GETTING TO MY LETTER." 
L=65+INT¢CRND (A) #26) 

G=68 

PRINTNPRINT “OK, I HAYE A LETTER 
PRINTSPRINT “WHAT IS YOUR GUES 
G=G+4 

INPUT SASNPRINT 

IF A=L THEN 5a6 

IF A>L THEN 486 

PRINT "TOO LOW. TRY A HIGHER LETTER. "\GOTO 414 
PRINT "TOO HIGH. TRY A LOWER LETTER. *\GoTO 414 
PRINTSPRINT "YOU GOT IT IN“G"GUESSES!!" 

IF G<=5 THEN 542 

PRINT "BUT IT SHOWLON’T TAKE MORE THAN 5S GUESS 
(Asam Gisvaletee nei = eet 

FOR N=4 TO 45NPRINT CHRS¢C7)3 NEXT N 

PRINT 

PReLNT Cen SSe PEAS URSA R ce. 

GOTO 344 

END 


START GUESSING. " 


SUONEOTH Sas 
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SAMPLE RUN 
LETTER EDUSYSTEM 2a 


LETTER GUESSING GAME 


I’LL THINK OF A LETTER OF THE ALPHABET. 


TRY TO GUESS MY LETTER AND I’LL GIVE 
AS TO HOW CLOSE YOU" RE GETTING TO MY 


OK, I HAYE A LETTER. START GUESSING 


WHAT IS YOUR GUESS?M 


TOG LOW. TRY A HIGHER LETTER 


WHAT IS YOUR GUESS?S 


TO0 HIGH. TRY A LOWER LETTER 


WHAT IS YOUR GUESS?P 


YOU GOT IT IN 2 GUESSES! 
GOOD JOB !!!! 


CET S PEAY AGAIN... 2. 


OK. I HAVE A LETTER. START GUESSING 


WHAT IS YOUR GUESS?7M 


TOO HIGH. TRY A LOWER LETTER 


WHAT IS YOUR GUESS?F 


TOO HIGH. TRY A LOWER LETTER 


WHAT IS YOUR GUESS?C 


YOU GON IT INS GUESSESm 


GOOD JOB !!!) 


LET<S PLAY AGAIN. . 


OK, I HAVE A LETTER. START GUESSING 


WHAT IS YOUR GUESS?M 


TOS HIGH. TRY A LOWER LETTER 


WHAT IS YOUR GUESS?F 


TOO HIGH. TRY A LOWER LETTER 


WHAT IS YOUR GUESS?C 


TOO HIGH. TRY A LOWER LETTER 


WHAT IS YOUR GUESS?B 


YOU GOT IT IN 4 GUESSES! 
GGCDSIOB mm 


LETS PERN AGRIEND 223. 
OK, I HAVE A LETTER. ST 


WHAT 15 YOUR GUESS? 


A 


RT GUESSING 


Li FE JOHN CONWAY'S GAME OF LIFE 


Description 


The Game of Life was originally described in Scientific American, 
October 1970, in an article by Martin Gardner. The game itself 
was originated by John Conway of Gonville and Caius College, 
University of Cambridge, England. 


In the "manual" game, organisms exist in the form of counters 
(chips or checkers) on a large checkerboard and die or reproduce 
according to some simple genetic rules. Conway's criteria for 
choosing his genetic laws were carefully delineated as follows: 


1. There should be no initial pattern for which there is 
a Simple proof that the population can grow without limit. 

2. There should be initial patterns that apparently do 
grow without limit. 

3. There should be simple initial patterns that grow and 
change for a considerable period of time before coming 
to an end in three possible ways: fading away completely 
(from overcrowding or from becoming too sparse), settling 
into a stable configuration that remains unchanged 
thereafter, or entering an oscillating phase in which 
they repeat an endless cycle of two or more periods. 


In brief, the rules should be such as to make the behavior of 
the population unpredictable. Conway's genetic laws are de- 
lightfully simple. First note that each cell of the checker- 
board (assumed to be an infinite plane) has eight neighboring 
cells, four adjacent orthogonally, four adjacent diagonally. 
The rules are: 


1. Survivals. Every counter with two or three neighboring 
counters survives for the next generation. 

2. Deaths. Each counter with four or more neighbors dies 
(is removed) from overpopulation. Every counter with 
one neighbor or none dies from isolation. 

3. Births. Each empty cell adjacent to exactly three 
neighbors--no more, no fewer--is a birth cell. A 
counter is placed on it at the next move. 


It is important to understand that all births and deaths occur 
simultaneously. Together they constitute a single generation or, 
asewe shall call it, a “move” in-the complete “life-history” 
Ofthneninicial configurataon. 
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You will find the population constantly undergoing unusual, 
sometimes beautiful and always unexpected change. Ina few 

cases the society eventually dies out (all counters vanishing), 
although this may not happen until after a great many generations. 
Most starting patterns either reach stable figures--Conway calls 
them "still lifes"--that cannot change or patterns that oscillate 
forever. Patterns with no initial symmetry tend to become 
symmetrical. Once this happens the symmetry cannot be lost, 
although it may increase in richness. 


Conway used a DIGITAL PDP-7 with a graphic display to observe 
long-lived populations. The program here is programmed for a 
RSTS-11 system. You simply input your initial pattern and ter- 
minate your input with a Control/Z. The computer then plots 
successive generations of your population on a 24 (vertical) 

by 70= (horizontal) grid. ,Sitback and watch it, 


Program Author 


Clark Baker 

Project DELTA 

Delaware School Auxilliary Association 
Newport, Delaware 


© 1967 by Meredith Press 


PROGRAM LISTING 


1 REM LIFE CLARK BAKER 3/72 C,0,6, 

2 PRINT CHRS(S1X)ICHRE(29X) ICHRS(SIX)IMENTER YOUR PATTERNE” 
3S XIM,Yikels X2xe24x8 YOxe70% 

10 DIM AX(24x%,70%),B8(24x) 

20 OPEN "KBy" AS FILE 1 

30 ON ERROR GO TO 82 

40 Cxe4 

58 INPUT LINE #1,B$(Cx) 88S (Cx) SLEFT(BS(Cx) »LEN(BS (Cx) ) 2x) 
68 CxsCxe1 

78 GO TO 68 

88 Lxaox 

99 FOR X%aq TO CKke{ 

100 IF LENCBS(X%))>LX THEN L¥eLEN(BSC(X%)) 

110 NEXT X% 

120 XixetixeCx/s2x 

138 yix833x%=L%/2% 

140 FoR Xxe#1 To Cx 

150 FOR Y%#1 TO LEN(BSC(X%)) 


168 IF MID(BSC XX) +YXeLI<>" © THEN AXCKIK*XK,VIK+YS) BL EPKEPK Sl 


170 NEXT YX 
18@ NEXT xx 
200 PRINT CHRS(29%) ICHRS(3Q%)) 


210 PRINT "GENERATIONG"3G%, "POPULATIONS" BPXICHRS (30%) db ETF 19% THEN PRINT ,"INVALIDI"9 


215 XSye2aysY3ys7BytXdy, VayetsPyady 

228 GxeGKelx 

225 PRINT CHRS(13%) ICHRSC LOX) ICHRS(3OXIPI FOR XXBL TO XiKet. 
238 FOR XX#X1x% TO X2% 

240 PRINT 

258 FOR YXeYiX% TO Y2X% 

253 IF AX(X%,Y¥%)#2% THEN AX(X%,Y%)@0%8GO TO 278 
256 IF AX(X%,Y%) 83% THEN AX(X%,Y%) 04260 TO 264 
260 IF AX(XX%,Y%)<>1 THEN 279 

261 PRINT TAB(Y%)} "oe" 

262 IF Xx<X3y% THEN X3y8Xy 

264 IF x%>yx4% THEN yaxsyX% 

266 IF yx<y3% THEN y3xeyX% 

268 IF YX>Y4% THEN Y4x8y% 

270 NEXT YX 

288 PRINT CHRS(30%)) 

298 NEXT XX 

295 PRINT CHRS(3@X%) FOR X%aX2%41 TO 24% 

298 PRINT CHRS(29%)3 

299 KyROXAXsXQXexarsVyxeVarsVoxrsyg% 

3Q1 IF Xiy<3y THEN Xiys3ysl9yeely 

303 IF y2%>22% THEN yOxe22xs19yaely% 

305 IF yix<3% THEN yixs3xslOxXealyX 

307 IF Y2%>68X% THEN Y2Xs6BxXt 19% BWI % 

309 Pxaa% 

5Q@ FOR X%eXixrel TO X2Xx%e1 

§10 FOR Yxuyixel TO Y2%e1 

528 Cxed% 

530 FOR IXex%e1x% TO X%44% 

540 FOR JxsYXaiX% TO Y¥%Xix% 

550 IF AX(I%,J%) 81% OR AXCIX,J%) 82% THEN CXMC%41% 
560 NEXT JX 

570 NEXT Ix 

58Q IF AX(x%,Y¥%)8@% THEN 610 

590 IF Cx%<3x% OR Cx>4% THEN AXCKX,Y%) 82% ELSE PuEP%el 
688 GO TO 6228 

610 IF Cxe3% THEN AXCX%/YXIESKIPXEP Kel 

620 NEXT Y% 

638 NEXT X% 

635 KimexlxelLsVixsvirel sX2xex2yel svaxevaret 
64@ GO TO 218 

650 END 


SAMPLE RUN 
ENTER YOUR PATTERN: 


Hor 
eK 


BS 


GENERATION: @ POPULATION: 5 


4k 


ok 


GENERATION: 4 FOPULATION: 6 


atta 
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GENERATION: 2 POPULATION: 
* 
seas 
* OOF 
aE 
GENERATION: 26 POPULATION: x2 
4 see 
aot sok 
BE oe 
* OK OK 
OK ae 
* * wee 
a ke 
ORE 
GENERATION: 24 POPULATION: 27 
* 
baad OF 
* OK 
1 * 
wok OK * 
Cr ae * 
Ped * 
OK * 
hook 
* 
GENERATION: 22 POPULATION: =z7 
* 
bidaal * 
* OK * 
oR OK 


7 


Li FE> 4 2-PERSON GAME OF LIFE 


Description ton 


LIFE-2 is based on Conway's game of Life. You must be familiar 
with the rules of LIFE before attempting to play LIFE-2. 


There are two players; the game is played on a 5x5 board and each 
player has a symbol to represent his own pieces of '1life' Live 
cells belonging to player 1 are represented by '*' and Wave cells 
belonging to player 2 are represented by the symbol '#'. 


The # and * are regarded as the same except when deciding whether 
to generate a live cell. An empty cell having two '#' and one 

'*' for neighbors will generate a '#', i.e. the live cell generated 
belongs to the player who has the majority of the 3 live cells 
surrounding the empty cell where life is to be generated, e.g. 


A new cell will be generated at (3,3) which will be a '#' since 
there are two '#' and one '*' surrounding. The board will then 
become: 
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On the first move each player positions 3 pieces of life on the 
board by typing in the co-ordinates of the pieces. (In the event 
of the same cell being chosen by both players that cell is left 
empty. ) 


The board is then adjusted to the next generation and printed out. 
On each subsequent turn each player places one piece on the board, 
the object being to annihilate his opponent's pieces. The board 
is adjusted for the next generation and printed out after both 
players have entered their new piece. 


The game continues until one player has no more live pieces. The 
computer will then print out the board and declare the winner. 


Program Author 


The idea for this game, the game itself, and the above write-up 
were written by: 


Brian Wyvill 
Bradford University 
Bradford, Yorkshire, England 
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PROGRAM LISTING 


1 DIMN1(6,6)5K1(18)sA1C16)5X(2)2YC2) 

3 DATA 3,1025103,120,136,121,112,111,12 

4 DATA 21, 30» 1020s 1630, 1611,1021, 1663, 1802, 1012 
19 FORM=1T018:READK1 (M) !NEXTM 

13 DATA=1,8,120,0,-1s Os lo-le-lsls-ts-lelstet 
14 FORO1=1T016:READAI (01 ):NEXTO! 

28 GOTOS86 

50 FORJ=1TOS 

51 FORK=!1TOS 

55 IFN1(J,K)>99THENGO SUB200 

6@ NEXTK 

65 NEXTJ 

90 LETK=@0:LETM2=0:LETM3=8 

99 FORJ=8T06:PRINT 

160 FORK=06T06 

101 IFJ<>@THENIFJ<>6THENI@S 

1@2 IFK=6THENPRINTO$ :GOTO125 

103 PRINTK :GOTO126 

105 IFK<>@THENIFK<>6THEN1 196 

106 IFJ=6THENPRINT@:GOTO 126 

167 PRINTJ$ :GOTO120 

118 GOSUB366 

126 NEXTK 

125 NEXTJ 

126 RETURN 

200 LETB=1:1FN1(J»K)>999THENLETB=19 

226 FORO1=1TOISSTEP2 

230 LETNI(J+A1(01)sK+A1(O14+1) #N1CJS+A1(O1)sK+Al (CO1+1) +B 
231 NEXTO1! 

239 RETURN 

300 IFN1¢(JsK)<3THEN399 

385 FORO1=1T018 

31@ IFN1(JsK)=K1(01)THEN3SO 

315 NEXTO1L 

328 GOTO0399 

358 IFO 1>9THEN 366 

351 LETNI(JsK)=100:LETM2=M2+1:PRINT" * "3 


355 RETURN 

366 LETN1(JsK)=1080:LETM3=M3+1:PRINT" # "3 
365 RETURN 

399 LETNI(J»K)=@:PRINT” "3 RETURN 


506 PRINTTAB(16)3"“U.B LIFE GAME" 

565 LETM2=@:LETM3=0 

$16 FORJ=1T0S 

511 FORK=1TOS 

515 LETN1(JsK)=6 

516 NEXTK 

S17 NEXT.J 

519 FORB=1!1T02:LETP1=3: IFB=2THENLETP! #36 

5206 PRINT" PLAYER"; B3"'3 LIVE PIECES" 

535 FORK1=1T03:G0SUB760 

54@ LETN1(X(€B),YCB) )=P1:NEXTKI 

542 NEXTB 

559 GOSUB9@ 

566 PRINT:GO SUBS@ 

576 IFM2=@THEN IFM3=@6THEN574 

571 IFM3=6THENLETB=1:1G0T0575 

$72 IFM2=@THENLETB=2:GOTOS75 

573 GOTOS8@6 

574 PRINT:PRINT"A DRAW": RUN 

575 PRINT:PRINT"PLAYER"3 B3"IS THE WINNER": RUN 
58@ FORB=1T02: PRINT: PRINT" PLAYER" B3 :GO SUB760 
581 IFB=99THENS60 

582 NEXTB 

586 LETN1¢(X(1),Y(1))=106:LETNI(X(2),Y(2) 21668 
596 GOTO 560 

768 PRINT"X,Y": PRINT"XXXX"3 CHRS$(13)3 "@0@@"3 CHRS( 13): INPUTY(B),X(B) 
70S IFX(B)<=STHENIFX(B)>@THEN7T 08 

7166 GOTO75S@ 

708 IFY(B)<=STHENIFY(B)>@THEN7IS 

716 GOTO7S6 : 

71S IFN1(X(B),sYCB) )<>@THEN7TSO 

726 IFB=1THENRETURN 

725 IFX(1)=X(2)THENIFY(1)=Y(2)THEN74@ 

73@ RETURN 

749 PRINT'SAME COORD. SET TO 6" 

741 LETN1¢(X(B)+1,Y¢(B)+1 )=@:LETB=99: RETURN 

75@ PRINT"ILLEGAL COORDS. RETYPE":GO0T0700 

966 END 
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SAMPLE RUN 


PLAYER 1 
Xs Y 
uzun 
XY 

Dds | 

XY 

wens 
PLAYER 2 
Xe¥ 

Pte | 

x,Y 
mann 

Xr Y 

ptt 

(Jom als 5 

Lee 
Qe 

3 * 

4 

5 

Oa £2 
Ole <2 

1 

QOS ate 
3 * 
4 

5 

eo 1 2 
PLAYER 1 
bad | 
PLAYER 2 
py | 

@ 1 2 

1 

a2 *« * 
A es 
4 

5 

ee oe 
PLAYER 1! 
mann 
PLAYER 2 
wus 

O=  e 

1 ¢ 

2 

3 * 

4 * 
5 

6 1 - 2 
PLAYER 1 
Baus 
PLAYER 2 
pd 

6 = 2 

1 * 
2 

3 

4 * 
=) 

ne 
PLAYER 1 
waua 
PLAYER 2 
bi) > | 

6 1 2 

1 

2 

3 

4a * 

Ss « 

Cie? 
PLAYER 1}! 
EEE 


U.B LIFE GAME 
3 LIVE PIECES 


3 LIVE PIECES 


SrA SS 

1 

2 

¢ 3 

é # 4 

5 

35442552 

3, Ape. ae 

1 

2 

¢ 3 

# 4 

5 

3, 4) Sue 
XsY 
XsY 

3. 4 SS: 6 

1 

* 2 

3 

¢ ” # 4 

) 

3.4 5 @ 
Xs¥ 
XeY 

3°94 5 6 

* 1 

* 2 

#3 

# « 4 

* 5 

3.4 5S 6 
Xe¥ 
XeY¥ 

a) 74505) 36 

* 1 

2 

3 

¢ 4 

*# * 5 

3.4 5 6 
XY 
XsY 

3) (Anes. 18 

1 

2 

* 3 

x 4 

x5: 

3 4 SS @ 
Xs¥ 


PLAYER 2 XsY 
wane 
SAME COORD. SET TO 6 


a QuEwrh-& 


3 4 85 6 
1 
2 
3 
* * 4 
Ss 
3. 4 5 6 


IS THE WINNER 


SAMPLE RUN 


This sample run shows the method of play. PLAYER 2 X,Y 
Normally the co-ordinates typed in will be ?5s3\3\2 
over the other characters, so that the opposing 
RUN player can not see where the pieces are placed, Ol 2) 9. a SS 
U.B LIFE GAME 2 eas 

PLAYER | 3 LIVE PIECES 3 

KY *¢ 3 

2161 4 Fie An BA 

XY 2 5 

2152 C6) 2. Sy A Sie OS 

oe PLAYER | X,Y 

ies 74,4 
? 

PLAYER 2 3 LIVE PIECES sienna goed aL te 

XY 

2555 HS 

fam PLAYER 2 X,Y 

wee 7553 

XsY¥ 

75.3 
Oo) 1263" 4 5) 46 te ec ne 
: z - 2 * &* 2 
3 * 6 3 The board is printed in its initial state. : . , 2 : 
: 8 es 

@ 1 230 425.55 
Le OG he C PLAYER 1 X,Y 
21,2 
Ge 3) a Pome: cs 
: ! PLAYER 2 XsY 
: cared 4 23,1 
4 Co 4 After the first generation, 
5 5 
O22. 3 
@) to ueeeoi ea, sare F popes = rf 

PLAYER 1 XsY on ® 2 

23,3 3 3 
4 e# 4 

PLAYER 2 XsY 5 aos 5 

eens COORDS. RETYPE ales IRE TN 

%Y 2 The co-ordinates typed in are oe) 1 X.Y 

75.3 out of range. é 

PLAYER 2 XsY 

72,2 
a | 29437 A /5. 1S, 
1 1 
=) * 2 Oy) 3. 2253's 4) 36-8 
3 * * # 3 1 * * 1 
4 ¢ # & 2° ,.m o ¢@ 2 
5. 5 3 6 # 3 
a | 2-3) aS «ol 4 t=# 4 

PLAYER | XsY 5 eS Tae 5 
73,2 Oe as) wh Se 

PLAYER 1 XsY 

PLAYER 2 XsY 2155 

2254 

PLAYER 2 XsY 

27154 
Ce | oy oe 4. § 8 
1 1 
2 x «x 2 G43 62. 23) £4; S.+e 
3 # 3 UE cite # 1 
4 ¢ # © 4 oe # # 2 
cs) 5 3 # 3 
6 1 25:3 74) 5; oO 4 4a 

PLAYER 1 XsY Sats ’ 5 
eae: eo fr oetin G 

PLAYER 1 XsY 

PLAYER 2 XsY 2123 

2123 
ILLEGAL COORDS. RETYPE 

x%Y The co-ordinates typed in aac 2 XY 

, 

71,2 are of a current live element. SAME COORD. SET TO @ 
O27 22:53 5a oro: Phe tidy ce PW We 
: oF he ! ! o 4 1 
28 wy CRD ie 2 2 o# 2 
Sas ee 3 6 3 
4 eS OF * # & 4 4 
=) 5 5 5 
Ce | eS re ah) Ce | 2° 3:4)" 59 

Ea amt 1 XsY PLAYER 2 IS THE WINNER 

, 

PLAYER 2 XsY 

23.5 

SAME COORD. SET TO @ Both players have entered 

the same co-ordinates, No live 

Bi V2) “3: arcs. 28 pieces are placed on the board. 
re * 1 
2 ¢ * 2 
3 ¢# 3 
4 *« # e ¢# 4 
3 L} 

OP 20 342 eeS 18 

PLAYER | XsY 

74,4 

ILLEGAL COORDS- RETYPE 

XY 

27453 
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LIT OZ CHILDREN'S LITERATURE QUIZ 


Description 


This is a simple CAI-type program which presents four multiple- 
choice questions from children's literature. Running the program 


is self-explanatory. 
Source SAY 
Pamela McGinley 


Harcourt-Brace-Jovanavich 
New York, NY 


LIT @Z EDUSYSTEM 36 


5 R= 
16 PRINT "TEST YOUR KNOWLEDGE OF CHILOREN’S LITERATURE, " 
12 PRINTSPRINT "THIS IS A MULTIPLE-CHOICE guiz, " 


OR 4 AFTER THE GUESTION MARK, " 
PE*\PRINTSPRINT 


LZ CPRING. “TYPE A aoe 
15 PRINTSPRINT "GOOD LU 
439 PRINT "IN » WHAT WAS THE NAME OF THE CAT?" 

42 PRINT “4. TIGGER, 2)CICERO. Z)FIGARG. 4) GUIFETTO"; 

43 INPUT ANIF A= THEN 46 

44 PRINT "SORRY,.. FIGARO WAS HIS NAME. "\GoTO Sa 

46 PRINT "VERY GOOD! HERE’ S ANOTHER. " 

47 R=R+4 

58 PRINTSPRINT 

51 PRINT“FROM WHOSE GARDEN DIO BUGS BUNNY STEAL THE CARROTS?" 

52 PRINT "4)MR. NIXON'S, Z)ELMER FUCD’S. Z)CLEM JUDD’ Ss, 4) STROMBOLI’ S"; 
52 INPUT ANIF A=2 THEN 56 

54 PRINT "TOO BAD...17T WAS ELMER FUCD’S GARDEN. "\GoTo 6@ 

56 PRINT "PRETTY GooD!" 

5S? R=R+4 QO) 
63 PRINTSPRINT 

61 PRINT "IN THE WIZARD OF OZ. DOROTHY’S DOG WAS NAMED 


62 PRINT "“4)CICERO. Z)TRIXIE. Z)KING. 4) TOTO"; ec es oat 
53 INPUT ANIF A=4 THEN 66 

64 PRINT "BACK TO THE BOOKS... TOTO WAS HIS NAME. "\GoTo 7a (ey 

66 PRINT "YEA! YOURE A REAL LITERATURE GIANT!" Cc 

67 R=R+4 

78 PRINTSPRINT 

Vd PRINT "WHO WAS THE FAIR MAIDEN WHO ATE THE POISON APPLE?" (BEL 

?72 PRINT "1)SLEEPING BEAUTY, Z)CINDERELLA. Z)SNOW WHITE. 4)WENDY"; 

73 INPUT ANIF A=Z THEN 76 lA 
V4 PRINT "OH, COME ON NOW... IT WAS SNOW WHITE. "\GoTo se 

76 PRINT “GOOD MEMORY!" vn a 

77? R=R+4 


388 PRINTSPRINT 

35 IF R=4 THEN 186 

93 IF R<2 THEN 266 

92 PRINT "NOT BAD. BUT YOU MIGHT SPENC A LITTLE MORE TIME® 


94 PRINT “READING THE NURSERY GREATS. * LIT @2 EDUSYSTEM 3a 

96 STOP 

188 PRINT "WOW! THAT’S SUPER! YOU REALLY KNOW SOUR NURSERY" TEST YOUR KNOWLEDGE OF CHILDREN’S LITERATURE 
185 PRINT "STORIES. “SPRINT 

118 PRINT "YOUR NEXT GUIZ WILL BE ON 2ND CENTURY CHINESE* THIS IS A MULTIPLE-CHOICE guiz 

12@ PRINT "LITERATURE (HA. HA, HA)" TYPE A 4. 2. 3, OR 4 AFTER THE QUESTION MARK 
136 STOP 

286 PRINT “UGH. THAT WAS DEFINITELY NOT Too SWIFT. BACK To" GOOD LUCK?! 

285 PRINT "NURSERY SCHOOL FOR YOU, MY FRIEND. * 

999 END 


IN “PINOCCHIO’. WHAT WAS THE NAME oF THE CAT? 
READY J)TIGGER, 2)CICERO. Z)FIGARG, 4) GUIPETTOPE 
VERY GOOD! HERE’S ANOTHER 


FROM WHOSE GARDEN DID BUGS BUNNY STEAL THE 
JMR. NIXON’S, 2)ELMER FUDD’S, %)CLEM JUDD’ 
PRETTY GOOD! 


-ARROTS ? 
» SOSTROMBOLI’S?2 


IN THE WIZARD OF OZ, DOROTHY’ S DOG WAS NAMED 
A.CICERO, 2)TRIXIE. Z)KING. 4)TOTOO4 
YEA! YOURE A REAL LITERATURE GIANT! 


WHO WAS THE FAIR MAIDEN WHO ATE THE POISON APPLE? 
TISLEEPING BEAUTY. 2)CINDERELLA, %) SNOW WHITE, 4) WENDY 32 
GH, COME ON NOW...IT WAS SNOW WHITE 


NOT GAD. BUT YOU MIGHT SPEND A LITTLE MORE TIME 
READING THE NURSERY GREATS 


READY 
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MAT HDI PICTORIAL ADDITION PRACTICE 


Description 


The program presents pictorial drill on addition facts using 
printed dice with no reading involved. It is good for beginning 
addition, since the answer can be derived from counting spots 

on the dice as well as by memorizing math facts or awareness of 
number concepts. It is especially effective run on an alpha- 
numeric CRT terminal. 


Program Author 


Jim Gerrish 
Bernice A. Ray School 
Hanover, NH 03755 


Illustration by Virginia Nigut, 
Scott, Foresman and Co. 


ihey 


PROGRAM LISTING 


MAT 


18 

at 

412 

as 

a4 

+5 

16 

ny, 

418 

£3. 

26 

214 

22 

23 

24 

25 

134 
145 
41416 
120 
126 
148 
156 
166 
176 
186 
198 
2068 
218 
226 
238 
248 
256 
268 
265 
276 
284 
296 
346 
318 
3248 
338 
348 
358 
368 
378 
375 
386 
334 
496 
4415 
594 
5148 
526 
538 
544 
S44 
554 
568 
576 
5368 
594 
5468 
634 
614 
615 
626 
986 


REA 


HD EDUSYSTEM 36 

REM-MATHDICE*** (BASIC PROGRAM BEGINS AT LINE 144) WAS PROGRAMMED 
REM-BY JiM GERRISH, FOURTH GRADE TEACHER AT THE BERNICE A. RAY 
REM-SCHOOL. HANOVER. NEW HAMPSHIRE. LAST CHANGE: &. ie 

REM 

REM-PROGRAM PERFORMS PICTORAL DRILL ON ADDITION FACTS USING 


NO READING INVOLVED. GO00C FOR BEGINNING 
CAN BE DERRIVED FROM COUNTING SPOTS 
OR AWARENESS 


REM-PRINTED DICE, 
REN-ADDITION. SINCE ANSWER 
REM-DICE AS WELL AS BY MEMORIZING MATH FACTS 
REM-OF NUMBER CONCEPTS 

REM- 

PRINT"THIS PROGRAM GENERATES SUCCESSIVE PICTURES 
PRINT"WHEN TWO DICE AND AN ESUAL SIGN FOLLOWED BY 


s 


CF TWO DICE. " 


A BUESTION" 


PRINT"MARK HAVE BEEN PRINTED. TYPE YOUR ANSWER AND THE RETURN KEY 
PRINT"TO CONCLUDE THE LESSON, TYPE CTRL/C AS OUR ANSWER. " 
PRINT 
PRINT 

RANDOMIZE 

LET N=N+4 

LET D=INTCRND(G)4#6+1) 
RRO NG gs meet ore 

IF D=4 THEN 2668 

IF D=2 THEN 188 

IF D=3 THEN 186 

PRINT "I * * I" 

GOTO 216 

PRINT "I * 1 

GOTO 2148 

PRUNE ot ky 

IF D=2 THEN 268 

IF D=4 THEN 266 

IF D=6 THEN 275 

BRA see al mete tee 

GOTO 236 

[ea Ag ed! ise 

GOTO 286 

PRING "To + 1™ 

IF D=41 THEN 354 

IF D=2 THEN 32 

IF D=3 THEN 336 

PRINT "I * * I" 

GOTO 366 

iasensls iE ape ee Gu 

GOTO 264 

PRINT “I Te 

As ts A ee - 

PRINT 

IF N=2 THEN 566 

PRINT " uae 

PRINT 

LET A=D 

GOTO 164 

LET T=D+A 

PRA tee = "5 
INPUT T4 

IF T1=T THEN 596 
PRINT "NO, COUNT THE SPOTS AND GIVE ANOTHER ANSWER. " 
PRINT " =" 
INPUT T2 

IF T2=T THEN 594 
PRINT "NO. THE ANSWER IS "iT 
GOTO 6648 

PRINT ““@TGH its 

PRINT 

PRINT "THE DICE ROLL AGAIN. - 
PRINT 

LET N=6 

GOTO 164 

END 
DY 


SAMPLE RUN 


MATHD EDUSYSTEM 26 


THIS PROGRAM GENERATES SUCCESSIVE PICTURES OF TWO DICE 
WHEN TWO DICE ANC AN EGUAL SIGN FOLLOWED BY A QUESTION 
TYPE YOUR ANSWER ANC THE RETURN KEY’ 


MARK HAVE BEEN PRINTED. 


TO CONCLUDE THE LESSON. TYPE CTRL/C AS YOUR ANSWER 


THE DICE ROLL AGAIN 


re 
COUNT THE SPOTS ANC GIYE ANOTHER ANSWER 
25 


THE ANSWER IS 


6 


DICE ROLL AGAIN,.... 


RIGHT! 


THE DICE ROLL AGAIN. 


RIGHT! 


THE DICE ROLL AGAIN 


I 


152 


Description 


MNOPLY 


GAME OF MONOPOLY 


MNOPLY is a simulation of the most popular board game in the 


world, Monopoly. 


It varies from the actual game only in that 


two players are the maximum number that can play. 


The dialog during the game presents complete rules and instruc- 


tions. 


The inputs are designed so that when anything except the 


required input is typed in, the entire segment will be ignored. 
When questions are asked about property to be sold, the full 
name is required--e.g., STATES AVENUE. 


In the computer game, you always pay $50 to get out of jail 


unless you have a "GET OUT OF JAIL FREE" card. 


No double rolls. 


As in the board game, before you can improve your property 
(build houses), you must own all of the pieces of that color 
property--i.e., have a monopoly of a particular color group. 


The program will automatically 


if you don't have a color group monopoly. 


groups for your reference: 


Purple: 
BALTIC AVE 
MEDITERRANEAN AVE 
Light Blue: 
ORIENTAL AVE 
VERMONT AVE 
CONNECTICUT AVE 
Maroon: 
ST. CHARLES PL 
STATES AVE 
VIRGINIA AVE 
Orange: 
ST. JAMES PL 
TENNESSEE AVE 
NEW YORK AVE 


Computer Limitations 


MNOPLY was written for DIGITAL 
two virtual memory files which 
program. 


Source 
David Barker 


Southeastern State College 
Durant, OK 74701 


ignore attempts to build houses 
Here are the color 


Red: 
KENTUCKY AVE 
INDIANA AVE 
ILLINOIS AVE 
Yellow: 
ATLANTIC AVE 
VENTNOR AVE 
MARVIN GARDENS 
Green: 
PACIFIC AVE 
NORTH CAROLINA AVE 
PENNSYLVANIA AVE 
Dark Blue: 
PARK PL 
BOARDWALK 


RSTS-11 or RSTS/E. It requires 
are built via the file-building 
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PROGRAM LISTING 
| MONOPOLY GAME BY DAVID BARKER, SOUTHEASTERN STATE COLLEGE, DURANT, OK 


THE F NG PROGRAM IS DESIGNED TO BUILD THE DISK FILES { 
2 I NERSEDSTOUPCAY penoreuvs err FILES Must Se BUILT, THE FIRST 2° | SLIGHT PROGRAM MODIFICATIONS BY DAVID AHL, Cres TAUe 
3 | CONTAINING THE NAMES OF THE PROPERTY, THE SOLD AND UNSOLD 3 MCL) oMC2)BLSQOK8 TCL) -1¢2) 888 DIM AS(25),B8(25),H%640) Me 
4 | FLAGS, THE PRICES OF THE PROPERTY, AND THEIR RENTS, 7 OPEN "PRPRTY® AS FILE 44 DIM #1,G9(40%)825,L% (40), PARK), ¢ 
§ | THE SECOND FILE CONTAINS THE CHANCE AND THE COMMUNITY B FOR L#i TO 3O8L%CI),HXCLISOINEXT TOPFOR Let TO SsUCLI@BINEXT I 
6 | CHEST MESSAGES AND THE INSTRUCTION MESSAGES FOR THE 9 DEF PNRa(H%(I(Z))#RCICZ) )e1OX) asace 
7 } PLAYERS, THE DATA FOR THESE FILES WILL BE READ FROM THE 10 OPEN "MESAJ" AS FILE 3¢ DIM #3,C9(18)950%,29(10) 880%, MS (20) 850% 
8 | PROGRAM WHEN IT I$ RUN, THESE PILES MUST BE BUILT BEFORE THE 15 & MSCL)IBSRIG "*eRULESoo" gh MSC2)1G M9CS)I& MSC4)IE Ms¢5) 
9 | GAME CAN BE PLAYED 30 INPUT"WHO I8 PLAYER WL"9NSC(1)8 INPUT"WHO TS PLAYER W@"#NS(2) 
22 OPEN "PRPRTY" AS FILE 18 DIM #1,G8(40%)825,L%(40) »P (40%) ,R(40%) ee Be RN een csiuh cence ae ae Fea 

" " ® r] 20)850 oixs 

~ POReES ITO: 45 EA A A et Ll a Nae be 415 IF DeDt THEN FaFeis IF F<3 THEN PRINT M$(9)8 GOTO 102 
42 READ GSCI) ,/LKCID,PCI)/ROL) {17 IF Fed THEN PRINT MS(10)8 ICZ)eL8s MCZ)EM(Z)@5O% 
44 NEXT I 200 PRINTS PRINT "##"NS(2) "18 TURNetewewowwels Fed 
5B FOR Iai TO 20 202 Ze2X%t! GOSUB 10001 GOSUB 2000 
82 READ M8(3) 215 IF DaDi THEN Fareis IF Fad THEN PRINT MS(9)8 GOTO 202 


84 NEXT I 217 IF Fad THEN PRINT MS(10)8 L¢Z)a1G8 MCZPEM(Z) eK 
62 FOR I#1 TO 18 225 PRINT MSCL1)PEINPUT FSi IF F9B"QUIT" THEN 30000 ELSE 188 
62 READ C8(1) {200 PRINT MS(6))8INPUT FSt RANDOMEZES XRRNO(O)S YSRND(O) §!OICE ROLL 


64 NEXT I {@02 IF X»e@ AND X<8,16 THEN Dei 
70 FOR Ist TO 10 4083 IF X>,16 AND X48,32 THEN B82 
72 READ Z$(1) 4904 IF X»,32 AND X4#,48 THEN 083 
74 NEXT I 4005 IF X>,48 AND X<#,64 THEN 094 
120 DATA "MEDITERRANEAN AVENUE",0,60,2 4206 IF X>,64 AND X<s,81 THEN 08S 
102 DATA "COMMUNITY CHEST",0,0,0 1007 IF X>,81 AND X<#1 THEN Da6é 
ies GATE STAORE Tattvorbedee” iste He dbite ano geteSe Taty Dtea 
ore e ° 
108 DATA *READING RAITLROAD",@,200,25 1911 IF ¥>,32 AND Yeu,48 THEN Died 
410 DATA "ORIENTAL AVENUE*®,0,100,6 1212 IF Y>,48 AND Ya8,64 THEN Dis4 
112 DATA "CHANCE 2",2,0,0 1213 IF Y>.64 AND Y<#,8{ THEN Died 
114 DATA "VERMONT AVENUE",0,100,6 1014 IF Y>,8{ AND Yeat THEN Die6 
416 DATA "CONNECTICUT AVENUE",@,128,8 1045 PRINT "YOU ROLLED AMDMNAND A*DGGI(Z)8T(Z)¢(D401) 
118 DATA "VISITING IN JAIL",0,8,2 1016 IF 1¢Z)>40x% THEN 1(2)82(Z)m4BX9M(2) 9M CZ) 6200% 
420 DATA "ST.CHARLES PLACE",@,140,1° 41017 RETURN 
122 DATA "ELECTRIC COMPANY",@,150,3< 2000 PRINT"YOU ARE ON "9GSC(I(Z))  JPLACEMENT 
124 DATA "8TATES AVENUE", 0,140,120 2002 IF 1¢Z)#2 OR I(Z)#17 OR 1¢Z)833 THEN 4100 1COM CHEST 
$26 DATA "VIRGINIA AVENUE",@,160,12 2004 IF I(Z)#4 THEN MCZ)®M(Z)"200% BtRETURN JINC TAX 
128 DATA "PENNSYLVANIA RAILROAD",@,200,25 2006 IF 1(Z)e7 OR 1¢Z)#22 OR 1¢Z)#36 THEN 4480 |CHANCE 
430 DATA "ST,JAMES PLACE",0,180,14 2008 IF I(Z)#ia OR I1¢Z)820 THEN RETURN JVISIT IN JAIL&FREE PARKING 
432 DATA "COMMUNITY CHEST",0,0,0 2010 IF I1¢Z)e30 THEN MCZ)3M(Z)=50%8 1¢Z) 8108 RETURN JJAIL 
£34 DATA "TENNESSEE AVENUE",8,180,14 2041 IF 1¢Z)838 THEN M(Z)@M(Z)@75%s RETURN JLUX TAX 
436 DATA "NEW YORK AVENUE",0,200,16 2012 IF 1¢Z)#40 THEN mez encz ingens s 1(Z)#@t RETURN 1GO 
$38 DATA "FREE PARKING#,@,0,0 2018 IF LXCI¢Z))8Z THEN PRINT MS(12)! GOTO 3100 
140 DATA "KENTUCKY AVENUE",@,220,18 2019 YF (HXCICZ))#@ AND LXCICZ})>@ AND LX(I(Z))<>Z) THEN 2428 
142 DATA FCHANCE ?",0,0,0 2020 IF CHXCICZ))>@ AND LHXCICZ))a@ AND LXCICZ))<>Z) THEN 2100 
144 DATA "INDIANA AVENUE",@,220,18 2822 PRINT M9(7)PPCICZ))F "DOLLARS" 
$46 DATA "ILLINOIS AVENUE",@,240,20 2024 PRINT MS(8)/SINPUT FSi IF FS<>"BUY" THEN 3100 
148 DATA "B,& O, RAILROAD",0,200,25 2B26M(Z) @MCZ)@PCICZ)) SPRINT "YOU NOW HAVE"M(Z) "DOLLARS 
150 DATA "ATLANTIC AVENUE",0,260,22 2027 L%(1(Z))®ZsGOTO 3100 
$52 DATA "VENTNOR AVENUE" ,0,260,22 2100 IF Z84 THEN M(Z)#M(Z)@PNRY M(2)8M(2)4FNR 
454 DATA "WATER WORKS",2,158,38 2101 PRINT "YOU OWE"FNRYDOLLARS RENT" §RETURN 
156 DATA "MARVIN GARDENS",0,280,24 2102 If Ze2 THEN MCZ)BM(Z)SFNR§ M(L)EMCLISFNR 
158 DATA "GO TO JAIL",d,2,0 2103 PRINT "YOU OWEPFNR"DOLLARS RENT" SRETURN 
162 ons “PACIFIC AVENUE",0,300,26 2125 IF Ze1 THEN M(Z)#M(Z)@RCICZ)) UMC2)OM(2)R(16Z)) 
$62 DATA "NORTH CAROLINA AVENUE",@,300,26 2126 PRINT "YOU OWE"RCI(Z)) "DOLLARS RENT" SRETURN 
164 DATA "COMMUNITY CHEST*",@,0,2 2127 IF Ze2 THEN M(Z)BM(Z)@RCIECZIIG MELIAMCLIOROT(Z)) 
166 DATA "PENNSYLVANIA AVENUE",@,320,28 2128 PRINT "YOU OWEMR(I(Z))"DOLLARS RENT" PRETURN 
168 DATA "SHORT LINE",@,200,25 3100 PRINT MS(13)5 PRINT MSCL4)FRINPUT FS$ IF FSB"SELL® THEN GOSUB 3150 
170 DATA "CHANCE 2%,0,0,0 3495 PRINT MSC1O)PSINPUT HSt IF HSe"MOUSE® THEN 3200 ELSE RETURN 
172 DATA "PARK PLACE",@,350,35 3180 PRINT MOCLS)PLINPUT FSt IF FSa"LIST" THEN GOSUB 3170 
174 DATA "LUXURY TAX",@,2,2 3462 PRINT MSC17) PH INPUT VSt INPUT "HOW MUCH DO YOU WANT FOR IT*PY 
176 DATA "BOARDWALK",@, 400,58 3154 FOR Iei T0 39 
4178 DATA "GO",8,0,8 3156 IF VS$sGS(I) THEN IF L%(1)#@ THEN PRINT M$(16)8 RETURN 
an ru Uk lee a a MATLIDA'S MONOPOLY FOR TWOetweuewonennnl 3158 IF VS$eGS$(I) THEN IF L&¥(I) #1 THEN MCL) BMC 1) OV 
ACH PLAY HAS $1500" OM(2)9MC2)eVE LXCI)82t GOTO 3165 
204 DATA "WHEN YOU BUY HOUSES YOU HAVE TO PUT THE SAMEW 3460 IF V$eG8(I) THEN IF LX¥(I)82 THEN M(2)=M(2)¢V 
286 DATA "NUMBER ON EACH MEMBER OF A COLOR GROUP" OMCLIAMCL)eVE LXCI)e%s GOTO 3165 
288 DATA "WHEN YOU BUY HOUSES INPUT THE NUMBER YOU WANT PER LOT" 3162 NEXT I 
210 DATA "TO ROLL DICE TYPE ROLLY 3165 PRINT MSC(L8)F8INPUT FSS IF PSe"YES" THEN 3152 ELSE RETURN 
212 DATA "IT I$ FOR SALE FOR ONLY" 3170 C,Dsat FOR I#i TO 39 
214 DATA "IF YOU WISH To BUY IY TYPE BUY" 3172 IF LXCI)eL THEN Caceit AS(C)RGS(I) 
216 DATA "YOU ROLLED DOUBLES**ROLL AGAIN" 3174 IF LxXCL)e2 THEN Dedeis BS(0)8GS(I) 
218 DATA "YOU ROLLED 3 SETS OF DOUBLES*+#GO TO JAIL 3178 NEXT I 
220 DATA "IF YOU WANT TO QUIT TYPE QUIT" 3476 PRINT NS(1)"'S PROPERTY"? FOR Tei TO Ca PRINT AS(I)8 NEXT I 
222 DATA "YOU ALREADY OWN THIS PIECE OF PROPERTY" 3178 PRINT NS(2)"'S PROPERTY"8 FOR Lei TO Dt PRINT BS9C(I)1 NEXT I#RETURN 
224 DATA "IF THERE IS ANY PROPERTY YOU WISH TO SELL ANDW 3200 IF LXC1)#Z AND L%¥C3)eZ THEN &*HOW MANY HOUSES AT $5@ EACH DO YOU WANT ¢ 
226 DATA "YOUR OPPONENT WANTS TO BUY TYPE SELL" SPRINT GSC1)" "GSC3)PFINPUT UtGOSUB 3250 
228 DATA "IF yOU NEED A LIST OF PROPERTY TYPE LIST" 3202 IF LxK¢6)eZ AND LX(8)#Z AND LX(9)®Z THEN 
230 DATA "YOU CAN'T SELL THIS*eYOU DON'T OWN IT" PRINT "HOW MANY HOUSES AT $50 EACH DO YOU WANT ON" 
232 DATA "WHAT PROPERTY DO YOU WANT TO SELL" SPRINT GS(6)" "GS(8)" "GS(9)PSINPUT UIGOSUB 3282 
234 DATA "IF THERE I$ ANY MORE PROPERTY YOU WISH TO SELL TYPE YES" 3204 IF LxC11)8Z AND LX¥(13)8Z AND LX¥C14)8Z THEN 
236 DATA "IF YOU WANT TO IMPROVE YOUR PROPERTY TYPE HOUSE" PRINT "HOW MANY HOUSES AT $188 EACH DO YOOU WANT ON® 
238 DATA "YOU DON'T HAVE ENOUGH MONEY FOR THAT MANY HOUSES" IPRINT GSCLL)" "GSC13)" NGSCL4)PLINPUT USGOSUB 3284 
25@ DATA "PAY POOR TAX OF S15" 3206 IF LXC16)8Z AND L%(18)8Z AND LX%(49)8Z THEN 
252 DATA "ADVANCE TOKEN TO ILLINOIS AVENUE" PRINT "HOW MANY HOUSES AY $1@@ EACH DO YOU WANT ON# 
254 DATA "GO BACK THREE SPACES" IPRINT G8(16)" "GS(18)" "GSCLOIPTINPUT U8GOSUB 3256 
256 DATA "ADVANCE TO Gor 3208 IF Lx¢2i1)"Z AND L%(23)8Z AND LX(24)8Z THEN 
288 DATA "BANK PAYS YOU DIVIDEND OF $50" PRINT "HOW MANY HOUSES AT $18@ EACH DO YOU WANT ON® 
260 DATA "TAKE A RIDE ON THE READING" HPRINT GS(21)" "GSC23)" "GSC24)PLINPUT UIGOSUB 3288 
262 DATA "GO TO JAIL" 3210 IF Lx¢26)"z AND L%¥(27)8Z AND LX(29)8Z THEN 
264 DATA "BUILDING AND LOAN MATURES#*COLLECT $150" PRINT "HOW MANY HOUSES AT $152 EACH DO YOU WANT ON" 
266 DATA "ADVANCE TO BOARDWALK" tPRINT GSC26)" "GSC27)" "GS(29)PLINPUT U8GOSUB 3260 
268 DATA "ADVANCE TO ST,CHARLES PLACE" 3ai2 IF Lx¢31)8Z AND L%¥(32)8Z AND L¥€34)8Z THEN 
280 DATA "XMAS FUND MATURES@**COLLECT sigan PRINT "HOW MANY HOUSES AY $208 EACH DO YOU WANT ON* 
262 DATA "LIFE INSURANCE MATURES*eCOLLECT 8100" HPRINT GSC3L)" *GSC32)" "GEC34)PLINPUY UIGOSUB 3262 
284 DATA INCOME TAX REFUND«*COLLECT $20" 3214 IF L%(37)8Z AND L%¢39)8Z THEN 
aes aOR EV OIUUERE RE cidec $so" PRINT "HOW MANY HOUSES AY $200 EACH DO YOU WANT ON" 
290 DATA Se ouaneenTcagan S oie GS(37)" *G$(39)ssINPUT UIGOSUB 3264 
ATA "PAY HOSPITAL $100" 
294 DATA "60 TO JAIL® 3258 Be Cea tel eacce be deel eee THEN PRINT M$(20) 
208 DATA SRA EReo A enneray 3254 HXCL),HKC3)BUCLO® RETURN a Etaahiei 
" RROR IN YOUR FAVORw#eC E og" 
388 CLOSE 1,31 END oo sree UCINREDONCEDOCURIONZIE UCZVSUCZ FUE RETURN ee en 


3253 H%(6),H%C8),HX(9)8UC2)8 RETURN 

3254 UC3S)SUCS)sUt M(Z)EM(ZD@(US1SOx%)t IF M(Z)<B THEN PRINT M$(28) 
UMCZ)EM(Z)SCUSISOX)& UCSIBUCT)@U! RETURN 

3255 HXC11),HXC13),HXC14)8UC3)8 RETURN 

3256 UC4)8UC4)sUt M(Z)8MC(Z)@(US3OGK)1 IF M(Z)<@ THEN PRINT M$(20) 
OM(Z)OM(Z)4(UGSOBX)s UCS)8U(4)"Ut RETURN 

3257 HX(16),HX(18) »HX(19)8U(4)9 RETURN 

3256 UC5)eUC5)sUs M(Z)BM(ZI@(US4SOxIs IF MCZ)<O THEN PRINT M$(20) 
9M(Z)8M(Z)%(U#458%)9 UCS)8U(S)eUl RETURN 

3259 H¥(21),HX(23),H%(24)8U(8) 91 RETURN 
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UC6)MUC8)*UL MCZ)EM(Z)@(UO4SOX)E IF MEZ)<O THEN PRINT M8(22) 
1M(Z)8M(Z2)4(U0450x) 2 UC6)8U(6)eUL RETURN 


3261 HX(26),HX(27),H%(29)8U(6)1 RETURN 
3262 UC7)BUC7) eUs MCZ)BM(Z)@(UM6OGK)s IF MCZ)«O THEN PRINT M$(20) 
OMCZ)OM(Z)O(UC6OOx)) UC7)®UC7)eU RETURN 
3263 HX(31),HXC32) HX (34) @UC7) 9 RETURN 
3264 UCB) BUC8) ous M(Z)®M(Z)@(UedoOxyt IF M(Z)<O THEN PRINT M9(20) 
OM(Z)OM(Z)*(U8408x%)s UCB) aU(8)eUs RETURN 
3265 HX(37),H%XC39)8U(8)8 RETURN 
4100 RANDOMIZE! L#RND(@) |COMMUNITY CHEST 
4102 IF L>md AND Las,{ THEN PRINT Z9¢4)0 MCZ)@M(Z) 41.00% RETURN 
4104 IF L>.i AND L<w,2 THEN PRINT 7$(2)1 MCZ)SM(Z)4#100X%% RETURN 
4106 IF L>,2 AND Lew,3 THEN PRINT Z8(3)8 MCZ)SM(Z)620%9 RETURN 
4408 IF L>,3 AND Las,4 THEN PRINT Z$C4)8 MCZ)@M(Z)@8OX%2 RETURN 
4110 IF L>,4 AND Lea,S THEN PRINT 28(5)t M(Z)@M(Z)6100%% RETURN 
4112 IF L>.S AND Lem, THEN PRINT 2$(6)1 M(Z)8M(Z2) 420%) I(Z)eO8 RETURN 
4114 IF L>,8 AND Lew,7 THEN PRINT Z907)8 MCZ)SN(Z)~100%9 RETURN 
4116 IF L»,7 AND Les,8 THEN PRINT Z$(8)8 MCZI9M(Z)e5OX8 162) 8108 RETURN 
4118 IF L>,8 AND L<a,9 THEN PRINT Z8(9)8 MCZ)BM(Z)@5OX%t RETURN 
4120 IF L>,9 AND Leet THEN PRINT Z$(10)8 M(Z)8M(Z)+200%8 RETURN 
4400 RANDOMIZE! LaRNO(@) {CHANCE 
4402 IF L>sd AND Les,i THEN PRINY CSC1)§ M(Z)@M(Z){5%8 RETURN 
4404 IF L>.1 AND L<m,2 THEN PRINT CS8(2)8 1(Z)824¢ GOSUB 20008 RETURN 
4406 IF L>,2 AND L<s,3 THEN PRINT CS¢3)t 1(Z)®81(6Z)e3s GOSUB 20008: RETURN 
4408 IF L>o3 AND Lae,d THEN PRINT C8¢4)8 3¢Z)001 MCZ)BM(Z)4200%4 RETURN 
4410 IF L>,4 AND L<#,5 THEN PRINT €8(5)8 M(Z)SM(Z)45OX%1 RETURN 
4412 IF L»>,5 AND L<a,6 THEN PRINT CS(6)8 1¢Z)85 
#M(Z)8M(Z)4200X%1 GOSUB 20008 RETURN 
4414 IF L>,6 AND L<s,7 THEN PRINT CS(7)8 I(Z) 8108 M(Z)8M(Z)e5OX%s RETURN 
4416 IF L>.7 AND L<a,8 THEN PRINT CS9(8)8 MCZ)9M(Z)6150X8 RETURN 
4418 IF L>,8 AND Lea,9 THEN PRINT CS$(9)1 1(Z)#39§ GOSUB 20008 RETURN 
4420 IF L>,9 AND Leet THEN PRINT C9C10)0 L¢Z)9149 GOSUB 20008 RETURN 
38008 C,080 
30002 FOR Ist TO 39 
30004 IF LX¥CIT)a1 THEN CaCo1sAS(C)aGs(I) 
30806 IF LX(I)82 THEN 05041389(D)8G$(I) 
30008 NEXT ItPRINTEPRINT 
38009 PRINT N8(1)" OWNED THE FOLLOWING PROPERTY" 
tFOR Tei TO CePRINT ASCI)DSNEXT I 
38018 PRINT "AND HAD"PM(4)P"DOLLARS AT THE END OF THE GAME*® 
3OGi11 PRINT NS$(2)" OWNED THE FOLLOWING PROPERTY" 
SFOR Is{ TO DtPRINT BSCI)SNEXT I 
38012 PRINT "AND HAD" ~M(2)P"DOLLARS AT THE END OF THE GAME" 
36013 CLOSE 1,38END 
SAMPLE RUN 
RUN MONPLY 
soda THIS IS MATLIDA’S MONOPOLY FOR Thi Coo tok 
soERILILE Saat 
EACH PLAYER HAS $1506 
WHEN YOU BUY HOUSES YOU HAVE TO FUT THE SAME 
NUMBER ON EACH MEMBER OF A COLOR GROUP 
WHEN YOU GU’? HOUSES INPUT THE NUMBER YOU WANT PER LOT 
WHO IS PLAYER #17 DAVE 
WHO IS PLAYER #27 SANDY 
see DOPEVIE ST LD RYN as tok ok ak ok ok ob: 
TO ROLL DICE TYPE ROLL? ROLL 
YOU ROLLED A 6 AND A 4 
YOU ARE ON CHANCE ? 
ADYAINCE TOKEN TO ILLINGIS AVENUE 
YOU ARE ON ILLINOIS AVENUE 
IT 15 FOR SALE FOR ONLY 246 DOLLARS 
IF YOU WISH TO BUY IT TYPE BUY? BUY 
YOU NOW HAVE 1264 DOLLARS 
IF THERE IS ANY FROPERTY YOU WISH TO SELL AND 
YOUR OPPONENT WANTS TO BUY TYPE SELL? 
IF YOU WANT TO IMPROVE OUR PROPERTY TYRE HOUSE? 
som SAND! ST LDR Natta ok oc ob ob ok ok: 
TO ROLL DICE TYPE ROLL? ROLL 
YOU ROLLED A 2 AND A 4 
YOU ARE ON ORIENTAL AVENUE 
IT 15 FOR SALE FOR ONLY 146 DOLLARS 
IF YOU WISH TO BUY IT TYPE BUY? BUY 
OW NOW HAVE 14964 DOLLARS 
IF THERE IS ANY PROPERTY YOU WISH TO SELL AND 
YOUR OPPONENT WANTS TO BUY TYPE SELL? 
IF OU WANT TO IMPROVE YOUR PROPERTY TYPE HOUSE? 
IF YOU WANT TO QUIT TYPE QUIT? 
see DeRp yi“ ST LIRSN ok sata okobobk ae 
TO ROLL DICE TYPE ROLL? ROLL 


YOU ROLLED A = AND AS 

YOU ARE ON GO TO JAIL 

VOU ROLLED DOUBLES**ROLL AGAIN 
TO ROLL DICE TYPE ROLL? ROLL 
WOU ROLLED A 6 AND AS 

VOU ARE ON KENTUCKY AVENUE 


I 15 


FOR SALE FOR ONLY 226 DOLLARS 


IF YOU WISH TO BUY IT TYPE BUY? BU 

OU NOW HAVE 994 DOLLARS 

IF THERE IS ANY PROPERTY YOU WISH TO SELL AND 
OUR OPPONENT WANTS TO BUY TYPE SELL? 

IF WOU WANT TO IMPROVE YOUR PROPERTY TYPE HOUSE? 


aon S ANDY ST LIBS Nok oak ok koko 


TO ROLL DICE TYPE ROLL? ROLL 
YOU ROLLED A 1 AND AS 
VOU ARE ON ELECTRIC COMPANY 


Lh rs 


FOR SALE FOR ONLY 154 DOLLARS 


IF YOU WISH TO BUY IT TYPE BUY? 
IF THERE IS ANY FROFERTY WOU WISH TO SELL AND 
YOUR OPPONENT WANTS TO BUY TYRE SELL? 


IF YOU WANT TO IMPROVE YOUR PROPERTY TYPE HOUSE? 
IF YOU WANT TO QUIT TYPE QUIT? 


il ays) 


DAVES S TUR Nob bbb ok 

TO ROLL DICE TYPE ROLL? ROLL 
YOU ROLLED A S AND A 4 

VOW ARE ON GO TO JAIL 


HSIN ST LI RN beak atc ak obo ake abate ok 

TO ROLL DICE TYPE ROLL? ROLL 

YOU ROLLED A 6 AND A 1 

WOU ARE ON NEW YORK AVENUE 

IT 15 FOR SALE FOR ONLY 204 DOLLARS 
IF YOU WISH TO BUY IT TYPE BUY? BUY 
VOI NOW HAVE 1204 DOLLARS 

IF THERE IS ANY PROPERTY YOU WISH TO 


SELL AND 


YOUR OPPONENT WANTS TO BUY TYPE SELL? 


IF YOU WANT TO IMPROVE YOUR PROPERTY 
IF YOU WANT TO QUIT TYPE QUIT? 


seED AYES S TURNS kabobs kok obo as 

TO ROLL DICE TYPE ROLL? ROLL 
YOU ROLLED A S AND A 4 

YOU ARE ON NEW YORK AVENUE 
OU OWE 16 DOLLARS RENT 


ae SANG! ST LRUN st abot obs obs otros obo 

TO ROLL DICE TYPE ROLL? ROLL 

YOU ROLLEG A 6 AND A 4 

OU ARE ON MARVIN GARDENS 

IT 15 FOR SALE FOR ONLY 286 DOLLARS 
IF YOU WISH TO BUY IT TYPE BUY? BUY 
YOU NOW HAYE 936 DOLLARS 

IF THERE IS ANY PROPERTY YOU WISH TO 
YOUR OPPONENT WANTS TO BUY TYRE SELL? 
IF YOU WANT TO IMPROVE OUR PROPERTY 
IF YOU WANT TO QUIT TYPE QUIT? 


ae CAA WIE SLUR UN aR a ob ob ob ob ot ate ok: 

TO ROLL DICE TYPE ROLL? ROLL 

YOU ROLLED A 4+ AND AS 

OU ARE ON WATER WORKS 

IT 15 FOR SALE FOR ONLY 156 DOLLARS 
IF YOU WISH TO BUY IT TYPE BUY? 

IF THERE IS ANY PROPERTY YOU WISH TO 
YOUR OPPONENT WANTS TQ BUY TYPE SELL? 
IF YOU WANT TO IMPROVE YOUR PROPERTY 


ea SEN Dey’ ST LDR Nott teats stroke ak ob ato 

TO ROLL DICE TYPE ROLL? ROLL 

OW ROLLED A 6 AND A 4 

VOU ARE ON CHANCE ? 

ACVANCE TOKEN TO ILLINGIS AVENUE 
Ol ARE ON ILLINOIS AVENUE 

OW OWE 2a DOLLARS RENT 

IF YOU WANT TO QUIT TYPE QUIT? 


sea COPIES TLRS Nava state ate ate ate ake 

TO ROLL DICE TYPE ROLL? ROLL 

YOU ROLLED A Z AND A 6 

OU ARE ON PARK PLACE 

IT 15 FOR SALE FOR ONLY 256 DOLLARS 
IF WOU WISH TO BUY IT TYPE BUY? BUY 
YOU NOW HAVE 574 DOLLARS 

IF THERE I5 ANY PROPERTY YOU WISH TO 
YOUR OPPONENT WANTS TO BUS TYPE SELL? 
IF YOU WANT TO IMPROVE YOUR PROPERTY 
see SINC STR Not tsa ab ook ok ob akeak: 

TO ROLL DICE TYPE ROLL? ROLL 

OU ROLLED A 6&6 AND A 2 

VOU ARE ON NORTH CARGLINA AVENUE 

17 15 FOR SALE FOR ONLY 34@ DOLLARS 
IF WOU WISH TO BUY IT TYPE GUY? BUY 
VOU NOW HAVE 626 DOLLARS 

IF THERE IS ANY PROPERTY YOU WISH TO 
YOUR OPPONENT WANTS TO BUY TYRE SELL? 
IF YOU WANT TO IMPROVE YOUR FROPERTY 
IF WOU WANT TO QUIT TYPE QUIT? 


Se DAWES S TLR Nokototsotobababs aca a 

TO ROLL DICE TYPE ROLL? ROLL 

OU ROLLED A S AND A 4 

VOW ARE ON BALTIC AVENUE 

IT IS FOR SALE FOR ONLY 64 COLLARS 

IF YOU WISH TO BUY IT TYPE BUY? 

IF THERE 15 ANY PROPERTY YOU WISH TO 
YOUR OPPONENT WANTS TO BUY TYPE SELL? 
IF YOU WANT TO IMPROVE YOUR PROPERTY 


see SANDY! ST LRN aka ok ob a obo oko 

TO ROLL DICE TYPE ROLL? ROLL 

YOU ROLLED A 1 AND A 6 

YOU RARE ON BORRDWALK 

IT 1S FOR SALE FOR ONLY 466 DOLLARS 
IF YOU WISH TO BUY IT TYPE BUY? BUY 
VOU NOW HAVE 236 COLLARS 

IF THERE IS ANY PROPERTY YOU WISH TO 
YOUR OFPONENT WANTS TO BUY TYPE SELL? 
IF YOU WANT TO IMPROVE YOUR FROFERTY 
IF YOU WANT TO QUIT TYPE QUIT? 


SR DIAWE SS TLRS N aaa sob abot abob a 
TO ROLL DICE TYFE ROLL? ROLL 
WOU ROLLED A 2 AND AS 
YOU ARE ON VISITING IN JAIL 


SES FIND S'S ST LRN aka ototsot ob ako ak ak: 

TO ROLL DICE TYPE ROLL? ROLL 

VOU ROLLED A 6 AND A 6 

YOU ARE ON ST. CHARLES PLACE 

IT IS FOR SALE FOR ONLY 144 DOLLARS 
IF YOU WISH TO BUY IT TYPE BUY? BUY 
OU NOW HAVYE 296 DOLLARS 

IF THERE 15 ANY PROPERTY YOU WISH TO 
YOUR OPPONENT WANTS TO BUY TYPE SELL? 
IF YOU WANT TO IMPROVE YOUR PROPERTY 
OU ROLLED DOUBLES**ROLL AGAIN 

TO ROLL DICE TYPE ROLL? ROLL 

YOU ROLLED A 5 AND AS 

Ou ARE ON KENTUCKY AVENUE 

VOU OWE 418 DOLLARS RENT 


TYPE HOUSE? 


SELL AND 


TYPE HOUSE? 


SELL AND 


TYPE HOUSE? 


SELL AND 


TYPE HOUSE? 


SELL AND 


TYPE HOUSE? 


SELL AND 


TYPE HOUSE? 


SELL AND 


TYPE HOUSE? 


SELL AND 


TYPE HOUSE? 


MUG ; MP... 4 MUGWUMPS IN HIDING 


Description 


Your objective in this game is to find the four Mugwumps hiding 
on various squares of a 10 by 10 grid. Homebase (lower left) is 
position (0,0) and a guess is a pair of whole numbers “(0 -€0.9);, 
separated by commas. The first number is the number of units 

to the right of homebase and the second number is. the distance 
above homebase. 


You get ten guesses to locate the four Mugwumps; after each guess, 
the computer tells you how close you are to each Mugwump. Play- 
ing the game with the aid of graph paper and a compass should 
allow you to find all the Mugwumps in six or seven moves using 
triangulation--i.e., like LORAN radio navigation. 


Source 


This program was modified slightly by Bob Albrecht of People's 
Computer Company. The original source were students of: 


Bud Valenti 

Project SOLO 

University of Pittsburgh 
Pittsburgh, PA 15213 


156 


PROGRAM LISTING SAMPLE RUN 


REM COURTESY OF PEOPLE’S COMPUTER COMPANY THE OBJECT OF THIS GAME IS TO FIND FOUR 


1 J MUGWUMPS 
2 REM MUGWMP HIDDEN ON A 14 BY 414 GRID. HOMEBASE IS POSITION @,@ 
= REM *#* CONVERTED TO RSTS’E BY DAVIO AHL, OIGITAL ANY GUESS YOU MAKE MUST BE TWO NUMBERS WITH EACH 
S RANDOMIZE NUMBER EETWEEN & AND 9, INCLUSIVE. FIRST NUMBER 
14 DIM P¢4. 2) 15 DISTANCE TO RIGHT OF HOMEBASE AND SECOND NUMBER 
24 PRINT “THE OBJECT OF THIS GAME IS TO FIND FOUR MUGWUMPS" I5 DISTANCE ABOVE HOMEBASE 
34 PRINT "“HICDEN ON A 16 BY 18 GRID. HOMEBASE IS POSITION 6,0" 
44 PRINT “ANY GUESS YOU MAKE MUST BE TWO NUMBERS WITH EACH" YO GET 14 TRIES. AFTER EACH TRY. I WILL TELL 
54 PRINT “NUMBER BETWEEN @ AND 9, INCLUSIVE. FIRST NUMBER" “OU HOW FAR YOU ARE FROM EACH MUGWUMP 
64 PRINT “IS CISTANCE TO RIGHT OF HOMEBASE AND SECOND NUMBER" 
74 PRINT "IS DISTANCE ABOVE HOMEBASE. " 
£4 PRINT 
34 PRINT "YOU GET 16 TRIES. AFTER EACH TRY, I WILL TELL" URN NO. 4 WHAT IS SOUR GUESS? 5.5 
144 PRINT “YOU HOW FAR YOU ARE FROM EACH MUGWUMP. " cu ARE 6.4 UNITS FROM MUGHUMP 4 
4114 PRINT ARE 41.4 UNITS FROM MUGWUME 2 
4 GOSUB 1888 ARE 2.2 UNITS FROM MUGWLUME = 
a T=0 ARE 4.4 UNITS FROM MUGWUMF 4 
@ T=T+L 
@ PRINT 
5S  FRINT TURN NO. 2 WHAT IS YOUR GUESS? 4,4 
4 FRINT "TURN NO. "Ti “WHAT IS YOUR GUESS"; WOU ARE S UNITS FROM MUGHUMP 4 
a INPUT MN WOU ARE 2 UNITS FROM MUGMUMP 2 
@ FoR I=4 To 4 ARE 1 UNITS FROM MUGWUMP = 
4 IF PCI.1)=-1 THEN 406 ARE 2.3 UNITS FROM MUGWUMP 4 
IF FCI,41><>M THEN 388 
IF PCI.29<>N THEN 388 
PCI.4)0=-4 TURN NO. = WHAT IS SOUR GUESS? 6,6 


PRINT "SOU HAVE FOUND MUGHUMP"; I ARE 7.8 UNITS FROM MUGWUMP 4 
GOTO 444 ARE 2 UNITS FROM MUGWUMP 2 
D=SORC CPCI, 19-Md 724+ CPCI, 29-NIT ED ARE 3.6 UNITS FROM MUGWUMP & 

PRINT "YOU ARE“ INTCO*16>/16"UNITS FROM MUGWUMP"T HAVE FOUND MUGWLIME 4 

NEXT I 

FoR J=1 Ta 4 

IF F¢J.1)9<>-4 THEN 476 TURN NO. 4 WHAT IS Your GUESS? 
NEXT J OU ARE 6. ? UNITS FROM MUGWUMP 4 
PRINT VOU HAVE FOUND MUGWUMP 2 


PRINT "YOU GOT THEM ALL IN"; Ts; "TURNS!" WOU ARE 2.2 UNITS FROM MUGWUMP & 
GOTO See 
IF T<14@ THEN 266 


PRINT TURN NO. S WHAT IS YOUR GUESS? 3.4 
PRINT "SORRY. THAT’S 146 TRIES. HERE IS WHERE THEY’ RE HIDING" OW ARE 4.4 UNITS FROM MUGWUMP 4 
FOR I=1 To 4 YOU HAVE FOUND MUGHLUMF 3 
IF FPCI.1>9=-1 THEN S76 
RUN TL lis es AT CP Gia 2 aust PC ream ree 
NEXT I TURN NO. €& WHAT IS YOUR GUE 4.6 
PRINT VOU HAYE FOUND MUGWUMP 4 
PRINT “hn (WAS PUNY OLED Se PLAY AGAIN AS «2: MS 
PRINT "FOUR MORE MUGMUMPS ARE NOW IN HIDING. " VOU GOT THEM ALL IN 6 TURNS! 
GOTO 2468 
FoR J=1 TO 2 THAT WAS FUN! LET’S PLAY AGAIN..... 
FoR I=1 To 4 FOUR MORE MUGMUMPS ARE NOW IN HIDING 
FCI, JO=INTC1G*RND CBD > 
NEXT I 
NEXT J TURN NC 4 WHAT IS YOUR GUESS? 4,4 
RETURN SOU ARE 2.3 UNITS FROM MUGWUMP 4 
ENG YOU ARE 4.4 UNITS FROM MUGHWUMP 2 
OU ARE 5.3 UNITS FROM MUGWUMP = 
READY YOU ARE S UNITS FROM MUGWUMP 4 


TURM NO. 2 WHAT IS SOUR GUESS? 2,2 


SOU ARE 5.6 UNITS FROM MUGHWUMP 4 
WOU ARE 2 UNITS FROM MUGWUMP 2 

YOU ARE ? UNITS FROM MUGWUMP = 

OW ARE 7.2 UNITS FROM MUGWUMP 4 
TURN NO. & WHAT IS YOUR GUESS? 6.6 
: HAVE FOUND MUGWUMP 1 

WOW ARE 7.2 UNITS FROM MUGWUMP 2 
WOU ARE 5S UNITS FROM MUGWUMP & 

WOW ARE 3.6 UNITS FROM MUGHUMP 4 
TURN NO. 4 WHAT IS OUR GUESS? @.2 
WOW HAVE FOUND MUGWUMP 2 

VOW ARE 2 UNITS FROM MUGWUMP & 

VOU ARE 3 UNITS FROM MUGWUMP 4 
TURN NO. S WHAT IS YOUR GUESS? 4,9 
YOU ARE 8.6 UNITS FROM MUGWUMF & 
SOU HAVE FOUND MUGWUMP 4 

TURN NO. 6& WHAT IS OUR GUESS? 9,2 


YOU HAVE FOUND MUGWUMP & 


YOu GOT THEM ALL IN 6 TURNS! 


NICOMA COMPUTER GUESSES YOUR NUMBER 


Description 


One of the most ancient forms of arithmetical puzzle is sometimes 
referred to as a "boomerang." At some time, everyone has been 
asked to "think of a number," and, after going through some 
process of private calculation, to state the result, after which 
the questioner promptly tells you the number you originally 
thought of. There are hundreds of varieties of the puzzle. 


The oldest recorded example appears to be that given in Arithmetica 
of Nicomachus, who died about the year 120. He tells you to 

think of any whole number between 1 and 100 and divide it suc- 
cessively by 3, 5, and 7, telling him the remainder in each case. 
On receiving this information, he promptly discloses the number 

you. thought. of, 


Can you discover a simple method of mentally performing this feat? 
If not, you can see how the ancient mathematician did it by look- 
ing at Lines 80-100 of the program. 


Program Author 


Digital Equipment Corp. 
Maynard, MA 01754 


SUNN ATT as 


PROGRAM LISTING 


16 PRINT "BOOMERANG PLIZZLE FROM ARITHMETICA OF NICOMACHLIS -- FL oD 


26 FRINT 


3G PRINT "PLEASE THINK OF A NUMBER BETWEEN 4 FIND 100, " 
46 PRINT “YGUR NUMBER DIVIDED EY = HAS A REMAINDER OF"; 


45 INFUT A 
56 PRINT “YOUR NUMBER CIVIDED BY 
5S INPUT & 


on 


“ 


HAS A REMAINDER OF"; 


646 PRINT "OUR NUMBER DIVIDED EY 7 HAS Al REMAINDER ce"; 


65 INPUT C 

?8 PRINT 

8@ PRINT “LET ME THINK A MOMENT.... 
96 SLEEPCS) 

166 D=PG*eA+21*EB4+154e0 

148 IF (e=485 THEN 1448 

126 D=P-145 

126 GOTO 114 

144 PRINT 

156 PRINT "OUR NUMBER WAS"O", RIGHT"; 
168 INPUT AF 

165 PRINT 

176 IF AS="YES" THEN 22a 

1686 IF A¢="NO" THEN 246 

196 PRINT “EH? I DON’T UNDERSTAND ° "Ag"? TRY 
268 GOTO 154 

228 PRINT “HON ABOUT THATS!" 

236 GOTO 256 

PRINT "I FEAR YOUR ARITHMETIC IS IN ERROR. 
PRINT 

PRINT "LET’S TRY ANCTHER. " 


GOTO 26 
END 
SAMPLE RUN 


BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHLUS 


PLEASE THINK OF A NUMBER BETWEEN 1 AND 10% 


YOUR NUMBER CIVICED BY = HAS A REMAINDER OF 7= 
YOUR NUMBER CIVICED BY S HAS A REMAINDER CF a 
YOUR NUMBER CIVICED BY 7 HAS A REMAINDER OF 35 
LET ME THINK A MOMENT... 

YOUR NUMBER WAS 75 . RIGHT ?RIGHT 

EH? I DON’T UNDERSTAND “RIGHT. Ud hss als 


YOUR NUMBER WAS #75 . RIGHT ?Y'ES 

HOW ABOUT THAT! ! 

LET’S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETWEEN 41 ANC 18 
YOUR NUMBER CIVICED EY = HAS A REMAINCER CF 


YOUR NUMBER CIVICED BY 5 HAS A REMAINCER CF 
YOUR NUMBER CIVICED BY 7 HAS A REMAINCER CF 


EET ME THENK OR MOMENT: 

YOUR NUMBER WAS 164 . RIGHT YES 

HOW ABOUT THAT!! 

LET’S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETWEEN 1 ANC 168 
YOUR NUMBER CIVICED BY = HAS A REMAINDER OF 


YOUR NUMBER CIVICED 6&4 S HAS A REMAINCER OF 
YOUR NUMBER CIVICED BY * HAS A REMAINDER OF 71 


LET ME THINK A MOMENT.... 

YOUR NUMBER WAS 4. RIGHT ?NO 

1 FEAR YOUR ARITHMETIC IS IN ERROR, 

LET’S TRY ANOTHER 

PLEASE THINK OF A NUMBER BETWEEN 1 ANC 188 
YOUR NUMBER CIVICED BY = HAS A REMAINDER OF 7 


aL) 
YOUR NUMBER CIVICED BY HAS A REMAINDER OF 7 
YOUR NUMBER CIVIDED BY 7 HAS A REMAINCER OF 74 


in 


LET ME THINK AOMGNENT.... 
YOUR NUMBER WAS 15 . RIGHT PES 


HOW ABOUT THAT! ! 


cb SRS) 


“YES? OR: 


= AL 0s 


- Ne 


3a! 


9a)" 


NIM CHINESE GAME OF NIM 


Description 


NIM is one of the oldest two-person games known to man; it is 
believed to have originated in ancient China. The name, which 
was coined by the first mathematician to analyze it, comes from 
an archaic English verb which means to steal or to take away. 
Objects are arranged in rows between the two opponents as in 
the following example: 


Kone Oe Row 1 -- 7 Objects 
EX a OC Row 2 -- 5 Objects 
GP. Gae e Row 3 -- 3 Objects 
> Row 4 -- 1 Object 


Opponents take turns removing objects until there are none 
left. The one who picks up the last object wins. The moves 
are made according to the following two rules: 


1. On any given turn only objects from one row may be 
removed. There is no restriction on which row or on 
how many objects you remove. Of course, you cannot 
remove more than are in the row. 

2. You cannot skip a move or remove zero objects. 


The winning strategy can be mathematically defined, however, 
rather than presenting it here, we'd rather let you find it 
on your own. HINT: Play a few games with the computer and 
mark down on a piece of paper the number of objects in each 
stack (in binary!) after each move. Do you see a pattern 
emerging? 


Source 


One of the most popular computer games. Over 10 versions of 
NIM were submitted. One notable one came from Larry Ruane, 
Mt. Prospect, Illinois, who programmed NIM for a DIGITAL 
EduSystem 10. Quite a feat: The one published is from: 


Robert G. Cox 


Trinity College 
Hart£ord,..cT “O6106 


160 


PROGRAM LISTING 


128 
105 
110 
115 
120 
125 
138 
135 
148 
145 
150 
155 
168 
165 
178 
175 
188 
185 
192 
195 
200 
205 
218 
215 
220 
225 
238 


REM THIS PROGRAM USES A STRATEGY AS PRESENTED IN 'GAMES OF FUN ANO 
REM STRATEGY!, A PUBLICATION OF THE MATHEMATICAL SERVICES DEPART= 
REM MENT OF COMPUTER CONTROL CO,, INC, 

PRINT "THIS PROGRAM PLAYS NIM," 

PRINT "DO YOU WANT INSTRUCTIONS"I\INPUT OS 

IF QS®"YES" THEN 135\I1F Q$="NO" THEN 192 

PRINT "TYPE YES OR NOs"\INPUT OS\GOTO 125 

PRINT 

PRINT " NIM IS PLAYED BY TWO PEOPLE PLAYING ALTERNATELY, BEFORE" 
PRINT "THE PLAY STARTS, AN ARBITRARY NUMBER OF STICKS OR OBJECTS 18" 
PRINT "PUT INTO AN ARBITRARY NUMBER OF PILES, IN ANY DISTRIBUTION" 
PRINT FWHATEVER, THEN EACH PLAYER IN HIS TURN REMOVES AS MANYW 
PRINT "STICKS AS HE WISHES FROM ANy PILE=-BUT FROM ONLy ONE PILE," 
PRINT "AND AT LEAST ONE STICK, THE PLAYER wHO TAKES THE LAST STICK" 
PRINT "Ig THE wINNER,* 


PRINT THIg PROGRAM ALLOWS YOU 70 sEy UP THE INITIAL ARRANGEMENT 


PRINT "OF pILES AND gyICKs, If wILL Noy ACCEPT MoRE THAN TWENTY" 
PRINT "PILES OR STICKS IN EACH PILE," 
RANDOM 
REMwwwwwmwmmmnmwowmenelONFIGURATION INPUT ewwnnmcnnenccccncencenncene 
DIM X(20,4),3(20),L(29),82(28),N2(4),6(28),83(22),V(20) 
PRINT\PRINT "HOW MANY PILES“y\ INPUT P\IF P>20 THEN 215 
IF P>INT(P) THEN 215\IF P<w® THEN 245\GO0 TO 220 
PRINT "ILLEGAL PILE NUMBER,"\PRINT\GO TO 295 
PRINT\FOR Isq TO P 
PRINT "HOW MANY STICKS IN PILE") IS\ INPUT L¢I)\IF L(1)>20 THEN 235 
IF LOI)>INT(L(1)) THEN 235\IF L¢I)<#@ THEN 235\G0 TO 24¢ 
PRINT "ILLEGAL g7ICK NyMBER,"\PRINT\GO 10 225 
NEXT % 
FoR I#1 To P\SCIDSLC(I)\GEGeLC(I)\NEXxT I 
PRINT\PRINT "DO YOU WANT To Go FIRST") 
INPUT GS\IF GSE"YES" THEN 340\7F QS="NO" THEN 390 
PRINT "TYPE YES OR NO."\GO TO 258 
REM==CONTROL OF GAME REPEATS AND TESTS FOR END OF GAMEewonwnnnnnnne 
IF Ga@ THEN 275\IF Fey THEN 392\GO TO 308 
IF Fey THEN 345 
PRINY\PRINT "I WON, DO yOy WANT 7O PLAY AGAINN 
INPUT Q$\IF gS#"NO™M THEN 290\IF g$e"YEg" THEN 3200\G0 79 295 
STOP 
PRINT "TYPE YES OR NO."\GO TO 295 
PRINT\PRINT "SAME ARRANGEMENT" 
INPUT QS\IF G$e"NO" THEN 205\IF QSa"YES" THEN 945 
PRINT "TYPE YES OR NO."\GO TO 395 
PRINT\PRINT "YOU WON, DO YO!) WANT TO PLAY AGAIN"3\GO TD 285 
PRINT\PRINT nPILE NUMBERH,uSTICKS LEFT 
FOR Is} TO P\IF S(1)#@ THEN 332\PRINT 1,8(1) 
NExT I 
RE Mam w mw www mewn mmm mmm enn aPLAYERIS MOVE www eww wenn n nw nnn ene n nen een n nee 
PRINT\PRINT "WHICH PILE DO YoU WANT STICKS FROM"S\INPUT N 
IF N>P THEN 355\1F N>INTON) THEN 355\F N<8G THEN 355 
IF S(N)8@ THEN 355\GO TO 36% 
PRINT "ILLEGAL PILE NUMBER,"\PRINT\GO TO 340 
PRINT\PRINT "HOW MANY STICKS"sZ\ INPUT T 
IF T>S(N) THEN 37Q9\IF T>INT(T) THEN 37Q\IF T<#g THEN 37y4\GO TO 375 
PRINT "ILLEGAL STICK NUMBER,"\PRINT\GO TO 369 
S(N)2S(N)@T\GEGHT 
Fe1\GO TO 270 
RE Mam mmm ww enwcwnnnnneneMACHINEIS le eee eee 
FOR 188 7O 4\y(I)s@\NExT I 
For I#1 To Pp 
C(1)48(1) 
FOR €®4 TO @ STEP et 
IF SC1)<2AE THEN 415\S2(1)8S2(1) +1 0rE\S(1) eS(1)-2aE 
NEXT E 
FOR Ys4 TO g STEP =y 
XC(I,Y)BINTCS2C1) /10AY)N\S2(1) 85261) @XC1,Y) #1 GAY 
VOY) BV CY) 4+X(1,Y) 
NEXT Y 
NExT I 
Reo 
FOr y#4 10 @ sTEP =1 
IF v(¥)/2"INT(V(Y)/2)38 THEN 489 
IF Rei THEN 478\Q8InTCP#eRND(X)) 41 
IF X€Q,Y)<>1 THEN 462\X(G,Y)20\R81\GO To 482 
IF X(G,/Y)®1 THEN 475\X(0,Y)81\GO TO 488 
x(0,Y) 88 
NEXT Y 
FOR I=1 TO P 
$2(1)#@ 
FOR Yaa TO @ STEP =4 
S3CT)ax( IY) *yBaY\S2(1)#S2¢(1)+83¢1) 
NEXT Y 
FOR Esa TO @ STEP =} 
IF g2(1)<19sE THEN 520\8(1)®8(1)#2aE\g2(1) 89261) -104E 
NEXT E 
NEXT I 
IF Rel THEN S35\QRINT(PORND(X)I+INIF S(0)2% THEN 530\8(0)2S(Q) 91 
DaC(Q)-S(G)\GaG=D 
IF Dey THEN 559 
PRINT\PRINY "I'LL TAKE"SDe"g7tICKS FROM PILE"3Q9","\GO 7O 555 
PRINT\PRINT "I'LL TAKE 1 STICK FROM pILE"sQ9"," 
Fe@\Go To 278 
END 


Ne cyl 


SAMPLE RUN 


THIS PROGRAM PLAYS NIMe. 
DO YOU WANT INSTRUCTIONS? YES 


NIM IS PLAYED BY TWO PEOPLE PLAYING ALTERNATELY+ BEFORE 
THE PLAY STARTSs AN ARBITRARY NUMBER OF STICKS OR OBJECTS IS 
PUT INTO AN ARBITRARY NUMBER OF PILESs IN ANY DISTRIBUTION 
WHATEVERe THEN EACH PLAYER IN HIS TURN REMOVES AS MANY 
STICKS AS HE WISHES FROM ANY PILE--BUT FROM ONLY ONE PILED 
AND AT LEAST ONE STICK.s THE PLAYER WHO TAKES THE LAST STICK 
IS THE WINNER. 

THIS PROGRAM ALLOWS YOU TO SET UP THE INITIAL ARRANGEMENT 
OF PILES AND STICKS. IT WILL NOT ACCEPT MORE THAN TWENTY 
PILES OR STICKS IN EACH PILE. 


HOW MANY PILES? 5 


HOW MANY STICKS IN PILE 1 ? 1 
HOW MANY STICKS IN PILE 2 ? 2 
HOW MANY STICKS IN PILE 3 ? 3 
HOW MANY STICKS IN PILE 4 ? 4 
HOW MANY STICKS IN PILE 5 ? 5 


DO YOU WANT TO GO FIRST? YES 

WHICH PILE DO YOU WANT STICKS FROM? 4 
HOW MANY STICKS? 2 

I'LL TAKE 3 STICKS FROM PILE 5 .« 


PILE NUMBER STICKS LEFT 


MbwWN 
NNOWMH 


WHICH PILE DO YOU WANT STICKS FROM? 3 
HOW MANY STICKS? 3 
I'LL TAKE 1 STICK FROM PILE S .« 


PILE NUMBER STICKS LEFT 
1 


usn 
=-nynves 


WHICH PILE DO YOU WANT STICKS FROM? 5S 
HOW MANY STICKS? 1 
I*EL TAKE 1 STICK FROM PILE 1 
PILE NUMBER STICKS LEFT 
2 2 
4 ee 
WHICH PILE DO YOU WANT STICKS FROM? 4 
HOW MANY STICKS? 1 
I*LL TAKE 1 STICK FROM PILE 2 
PILE NUMBER STICKS LEFT 
2 1 
4 1 
WHICH PILE DO YOU WANT STICKS FROM? 5 
ILLEGAL PILE NUMBER. 
WHICH PILE DO YOU WANT STICKS FROM? 4 
HOW MANY STICKS? @ 
ILLEGAL STICK NUMBEK. 
HOW MANY STICKS? 1 
I*LL TAKE 1 STICK FROM PILE 2 - 
I WONe DO YOU WANT TO PLAY AGAIN? YES 
SAME AKRANGEMENT? NO 
HOW MANY PILES? 3 
HOW MANY STICKS IN PILE 1 ? 


HOW MANY STICKS IN PILE 2 ? 
HOW MANY STICKS IN PILE 3 ? 


onv= 


DO YOU WANT TO GO FIRST? WO 

I'LL TAKE 1 STICK FROM PILE 1 « 

PILE NUMBER STICKS LEFT 

2S 2 

3 3 

WHICH PILE DO YOU WANT STICKS FROM? 3 
HOW MANY STICKS? 1 

I*LL TAKE 1 STICK FROM PILE 3 
PILE NUMBER STICKS LEFT 

ef 4 

3 1 

WHICH PILE DO YOU WANT STICKS FROM? 2 
HOW MANY STICKS? 1 

I*LL TAKE 1 STICK FROM PILE 3 » 


PILE NUMBER STICKS LEFT 
2 1 


WHICH PILE DO YOU WANT STICKS FROM? 2 
HOW MANY STICKS? 1 


YOU WONe- DO YOU WANT TO PLAY AGAIN? NO 


NUMBER _............ 


Description 


In contrast to other number guessing games where you keep guess-— 
ing until you get the random number selected by the computer 
(GUESS, TRAP? .STARS, etc.) in this game you get only one guess 
per play and you gain or lose points depending upon how close 
your guess is to the random number selected by the computer. 

You occasionally get a jackpot which will double your point 
count. You win when you get 500 points. 


Program Author 


Tom Adametx 
Gunes. Jundon High school 
Sudbury, MA 01776 


NUMBER EDUSYSTEM 38 


PRINT " NUMBER GAME" 

PRINTSPRINT "YOU NOW HAVE 146 POINTS" 

PRINT "BY GUESSING NUMBERS FROM 14 TO 5. YOU CAN GAIN OR LOSE" 
PRINT “POINTS DEPENDING UPON HOW CLOSE YOU GET To A RANCOM" 
PRINT “NUMBER SELECTED BY THE COMPUTER" S\FPRINT 

PRINT "YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLEC!)" 
PRINT "YOUR POINT COUNT. YOU WIN WHEN YOU GET Sa@a@ POINTS. " 
PRINTSP=180 

11 PRINT “GUESS A NUMBER FROM 4 TO 5"; 

412 INPUT G 

415 LET R=INTCS*RND(@) > 

16 LET S=INTCS*RND(@)) 

47 LET T=INTCS*RND(G@) > 


OBVNULWHR 


48 LET U=INT(5*RND(B) >» NUMBER GAME 
19 LET Y=INTC5*RND(@)) 
20 IF G=R THEN 30 YOU NOW HAVE 184 POINTS 
24 IF G=S THEN 48 BY GUESSING NUMBERS FROM 1 TO 5. YOU CAN GAIN OR LOSE 
22 IF G=T THEN 58 POINTS DEPENDING UPON HOW CLOSE YOU GET To A RANCOM 
23 IF G=U THEN 68 NUMBER SELECTED BY THE COMPUTER 
24 IF G=V THEN 70 
25 IF G>5 THEN 14 YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL COUELEC!) 
3@ LET P=P-5 YOUR POINT COUNT YOU WIN WHEN YOU GET Sa@a POINTS. 
35 GO To 80a 
40 LET P=P+5 GUESS A NUMBER FROM 4 To 57% 
45 GO TO 8a YOU HAYE 4181 POINTS 
5@ LET P=P+P GUESS A NUMBER FROM 41 TO S?z 
52 PRINT "YOU HIT THE JACKPOT" YOU HAYE 4166 POINTS 
55 GO TO ga GUESS A NUMBER FROM 4 To S72 
68 LET P=P+4 YOU HAVE 164 POINTS 
55 GO To 86 GUESS A NUMBER FROM 4 To 572 
76 LET P=P-CPx*. 5) YOU HAVE 182 POINTS 
36 IF P>58@ THEN 96 GUESS A NUMBER FROM 4 To S?z 
82 PRINT "YOU HAVE "3 F3 "FOINTS" YOU HAVE 37 POINTS 
35 GO To 414 GUESS A NUMBER FROM 4 
98 PRINT “!!! YOU WIN!!!) WITH “SPs "POINTS" YOU HAYE 92 POINTS 
39 END GUESS A NUMBER FROM 4 
YOU HIT THE JACKPOT 
READY YOU HAVE 4184 POINTS 


GUESS A NUMBER FROM 1 
YOU HAYE 189 POINTS 
GUESS A NUMBER FROM 1 TO 572 
YOU HAVE 184 POINTS 

GUESS A NUMBER FROM 1 To 572 
YOU HIT THE JACKPOT 

YOU HAVE 368 POINTS 

GUESS R NUMBER FROM 1 To 572 
YOU HAVE 2363 POINTS 

GUESS A NUMBER FROM 4 To 572 
YOU HAVE 358 POINTS 

GUESS A NUMBER FROM 4 To S7?2 
YOU HAVE 363 POINTS 

GUESS A NUMBER FROM 4 To 572 
YOU HAVE 268 POINTS 

GUESS A NUMBER FROM 4 To 522 
YOU HAVE 363 POINTS 

GUESS A NUMBER FROM 4 TO 572 
YOU HAYE 358 POINTS 

GUESS A NUMBER FROM 4 TO 572 
YOU HIT THE JACKPOT 

PEttV¥OU WIN!!! ! WITH 7416 POINTS 


READY 
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| CH ECK SOLITAIRE CHECKER GAME 


Description 


In this game or puzzle, 48 checkers are placed on the two 
outside spaces of a standard 64-square checkerboard as shown: 


The object is to remove as many checkers as possible by 
diagonal jumps (as in standard checkers). 


It is easy to remove 30 to 39 checkers, a challenge to 
remove 40 to 44, and a substantial feat to remove 45 to 47. 


Program Author 


David Ahl 
Digital Equipment Corp. 
Maynard, MA 01754 


PROGRAM LISTING 


ACHECK 85:54 PM 25-JUN-7S 

5 PRINT 

48 PRINT "SOLITAIRE CHECKER PUZZLE BY DAVID AHL" 
15 PRINT 


'5 ARE PLACED ON THE 2 OUTSIDE SPACES OF A" 
25 PRINT “STANDARD 64-SGUARE CHECKERBORRO THE OBJECT 15 TH" 

38 PRINT “REMOVE MANY CHECKE ee a BLE BY CIAGONAL JUMPS" 
25 PRINT "CAS IN STANDARD CHECKERS) USE THE NUMBERED &OARC TO" 
4G PRINT "INDICATE THE SQUARE YOU WISH TO JUMP FROM ANC TO. ON" 
45 PRINT "THE BOARD PRINTEO OUT ON EACH TURN “4° INDICATES A" 

50 PRINT "CHECKER AND ° AN EMPTY 


26 PRINT "45 CHECKE 


JARE WHEN WOL! HAE NO" 

55 PRINT "POSSIGLE JUMPS REMAINING. INPUT A “a IN RESPONSE To" 

66 PRINT "QUESTION “JUMP FROM 7°" 

62 PRINT 

65 PRINT "HERE IS THE NUMERICAL BOARD: " 

66 PRINT 

63 DIM Ac64) 

vO FOR J=2 T0 S57 STEP 8s 

Po BS="HH HH FH FH HH FH HH HH" 

?4 PRINT USING GF. 0. J+. J+2. J+e. D449. T+. J+. J+? 

rs NEXT J 

Tae OLB 

73 PRINT "AND HERE IS THE OPENING POSITION OF THE CHECKERS: " 

eo PR LNT 
5] J=1 TO 64 

d=1 


S19 sot Sneha ce 
tetas Teds 
=4 


GOTO 346 

INPUT "JUMFE FROM": F 
IF F=6 THEN SHH 
INPUT "TO"s T 

PRINT 
< LEGALITY OF MOWE 


goto 
PRINT "ILLEGAL MOVE TRY (AGAIN, 2.” 
GOTO 144 

REM x4+ UPDATE BORRD 


M=Mt+4 

REM +++ PRINT BORRC 

FOR J=t TOS? STEPS 

FOR tao 10 Sr 

PRINT ACT: 

NEST I 

PRINT 

NEST J 

PRINT 

GOTO 146 

REM +++ ENC GAME SUMMARY 

S=68 

FOR J=41 TO 64 

S=S+ACT? 

NEXT I 

PRINT 

PRINT "YOU MACE"M" JUMPS AND HAC" S"PIECES" 
PRINT “REMAINING ON THE BORRD " 

PRINT 

INFUT "TRY AGRIN" 
IF AS="YES" THEN 
IF AS="NO" THEN 
PRINT "PLEASE Ah 
594 GOTO Sé2 
664 PRINT 
619 PRINT "OK HOPE Yo! HAC FUN!" 
939 END 


READY 


SAMPLE RUN 
SOLITAIRE CHECKER PUZZLE 64 DAYID AHL 


48 CHECKERS ARE PLACED ON THE 2 OUTSIDE SPACES OF A 
STANDARD 64-SGUARE CHECKERBOARD. THE GEJECT 15 TO 
REMOVE AS MANY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS 
KAS IN STANDARD CHECKERS). USE THE NUMBERED BOARD TO 
INDICATE THE SQUARE YOU WISH To JUMP FROM AND TO. CN 
THE BOARD PRINTEO OUT GN EACH TURN “1° INDICATES A 
CHECKER AND “@° AN EMPTY SQUARE. WHEN WOU HAYE Ni 
POSSIELE JUMPS REMAINING. INPUT A “4° IN RESPONSE TO 
QUESTION “JUMP FROM 7° 


HERE IS THE NUMERICAL BOARD: 


4 2 Si 4 2 
OTe Ae. 16 
LESS. Boe 720 24 
25°26 27 28 oe 
S32 S4iF Sh eo 2 4 
44 42 42 44 47 48 
49 5@ 51 52 55 56 
S758 59 16a Sar et 


AND HERE IS THE OPENING POSITION GF THE CHECKERS: 


Ey Oe, RE mite SCE 
0S See: Gece, Gee 
= aap OR (OO & ieee 
cM See) aa ee Ete 
a eee Fie 
a o4 oy or Rie) Dee 
lee ele, AS MR AO ih 
ce i Pie Eee 
JUMP FROM? 12 
JUMP FROM? 2 10? 26 
10? 43 
B26: 66) Wa Gr te et I 
le Glens) Ape) LN spare se ek Cg Cine Ue 
po ieee eel oe ese eee eee 
454 49 1G) (ep eet ede BBY! Oy eee 
164 eo ae tea BO NBert: teed Lee 
vet Of oe Oo etd ele We Men (cr ey (chy acl 
“1 eae) le OM tet Go o io eo eae ot 
Li ge! EL Re Ce 6 646 6 8 8 @ 
lp a Soe sacibaas meal Neel 
JUMP FROM? 26 
JUMP FROM? 2 10? 44 
TO? 26 
@ a aa) (oa ee 
ep Ae) at ue nt 16 6 8 #8 8 @ @ 
Cee R( os weil, Meet tLe gly oe G8 8 f° a age 8 
2d a ooo eet We ae eqn eee Sopa a 
Gin) ago Ceara ea ong oie, 440% 4 
{te ab Gee oe 6 8 O.4 6 259 
4 ig) Spee So: Ee Oe iiss G Piieostoees 
SE Leas tie ay rc 66168 6 4 @ @ 
cn sslmeral, (BB GI ct sil it 
JUMP FROM? 46 
JUMP FROM? = TO? 66 
10? 24 
9 Geag Be%a af 4a 
rhe teh Wg eae gS ah Pal en eh sl ee ye a 
4 "8 6 6B 1 et BO) 1G Set alg 
si pees ces IR ns ns gay Som ees f) ibis) te doe Sect 
Ppt 8, BB BS JA AO ee RS eRe Te ast mer 
iu 8 8. oe ft 4 oe 6 1 "eo ob Bt 
Nae Si OR ig A a ae 9 6 89 86 8 @ @ 4 
Si ol a ae ae 8686141464 @ @ & 
Sh tet eh ules sl Sal 
JUMP FROM? & ae Ee 
To? 22 
F y @ o (00% obit) eile 
Oe Ge dnd tet 4) 0) (08 1a Bg 
ee eee A ee Ett BB) Oe 4S Si ot Bay sa 
oP Ee oe ee eect fd OC ay ee PO or rei: 
ee a, Ol a o & & 4 Boo 4s 
ce rh, gS I a S tee: Eas © ee “OB SET a eB A ee 
iets & # ee 4.8 eo 6 82 8 & B & 4 
li ci sf te al al i BG) Beat "4 re 6 & a 
gh GIR 22 op BUNS ch aisle BSE) 
JUMP FROM? 36 
JUMP FROM? 16 TO? 38 
TO? 36 
Be, We ea st ar 
BRA et. Reet eee tL 8 8 88 Sb a 
AEG 6 (eed a Ve a 8) Je tk Vom oe a 
Eee is wd aac easter co sh eee eh fs) ty al 
cl iL Ce eerie ey Bel O 16 8 doa ae 4 
SP se Tey Te Meal eal 86 86 4 8B @ w 4 
Tet GG. ON Gy at 6 6 6 6 8 8 8 &@ 
Be Ele alah EN Sh ah iB 1G) oie 4) a ioe Gao 
AD Sie Petal el ah ie al 
JUMP FROM? 43 
JUMP FROM? 24 TO? 36 
10? 38 
ne 66 © @ @ 4 4 o 
Cedi 8 ee ede 1B 48 6 6 8 @ @ @ 
1 BR te: Fie Sipe FS. TS A IBS eae a et 
lg ME eh ch Matte kl { 8.8 G8 a ake oa 
Tbe: 2A at Seger GB 8 Pee 
ie -shamyeh ie teh, Se he Mt BO? BoB Sh A MB ee 
4) Ss Oe eI 41 eA, G6 Be 6) ee ee 
SE ei esi ech ee 88 te a ae 
Tee he rele i ee hence | aie ec 
JUMP FROM? 26 
JUMP FROM? 64 TO? 46 
TO? 46 
3 ILLEGAL MOVE. TRY AGAIN. . 
BC. OP VON Sie ae JUMP FROM? 
ACG Tas Heme “ae 
SE ae eh oh ee YOU MADE 35 JUMPS AND HAD 12 
ee Lab ae 1h eiil REMAINING ON THE BOARC 
Pee Cea reonky vk maa 
seen URE Oe deo bee BY ih ; SAIN NO 
Geer eb nS TRY AGAIN? NO 
ime Be BR Ghee oak 7) O.K. HOPE YOU HAD FUN! 


PIEGES 


ORBIT 


Description 


DESTROY AN ORBITING ENEMY SPACESHIP 


ORBIT challenges you to visualize spatial positions in polar 
coordinates. The object is to detonate an explosive within a 
certain distance of a germ laden spaceship. This ship is orbit- 
ing a planet at a constant altitude and orbital rate (degrees/ 
hour). The location of the ship is hidden by a device that 
renders the ship invisible, but after each bomb you are told 
how close to the enemy ship your bomb exploded. The challenge 
is to hit an invisible moving target with a limited number of 
shots. 


The planet can be replaced by a point at its center (called the 
origin); then the ship's position can be given as a distance 
from the origin and an angle between its position and the 
eastern edge of the planet. 


direction hip 
Of VOrDre 


angle 
E 


The distance of the bomb from the ship is computed using the 
law of cosines (see line 430 of the program listing). The law 
of cosines states 


bomb D 


ship 
D= /R**2+D1**2+R*D1*COS (A-Al) 
hii aie : 


where D is the distance between the ship and the bomb, R is the 
Bl titude sof .the..ship,..Dl is.the altitude of the bomb, and A-Al 
is the angle between the ship and the bomb. 


Practice Off-Line Problem: 


Aircraft appear on radar as 
blips of the form "=". What 

is the distance between the 

TWA and United aircraft shown 

on the radar screen on the right. 


270 090 


Source 


ORBIT was originally called 
SPACE WAR and was written by: 
Jeff Lederer 
Project SOLO 
University of Pittsburgh 
Pattsburgh, PA 15213 


L65 


PROGRAM LISTING 


5 RANDIMIZE 


10 
15 
20 
es 
30 


PhINT "SOMEWHERE ABOVE YOUR PLANET IS A RUMULAN SHIP." 
PRINT 

PRINT “THIS SHIP IS IN A CONSTANT POLAR ORBIT. 
PRINT "DISTANCE FROM THE CENTER OF YOUR PLANET IS FRUM" 

PRINT 10,000 TO 30,000 MILES AND AT IT'S PRESENT VELUCITY CAN" 


Leon 


31 PRINT "CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HIJURS+"”* 

35 PRINT 

40 PRINT “UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE Sv)" 
4S PRINT “"YQU ARE UNABLE TO SEE THEMs BUT WITH A SPECIAL " 
50 PRINT "INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR" 


55 PRINT “PHOTON BOMB EXPLODED. 
PRINT “HAVE BUILT UP SUFFICIENT POWER IN ORDER TO ESCAPE " 


60 


YOU HAVE SEVEN HOURS UNTIL THEY" 


65 PRINT "YOUR PLANET'S GRAVITY." 
70 PRINT 
75 PRINT "YOUR PLANET HAS ENOUGH POWER TO FIRE ONE BOMB AN HiJUhe™ 


60 
65 


PRINT 
PRINT 


90 PRINT "ANGLE (BETWEEN 0 AND 360) AND A DISTANCE IN UNITS OF" 
95 PRINT "100 MILES (BETWEEN 100 AND 300)» AFTERWHICH YOUR BUMB'S" 


100 
105 
110 
Mit 
114 
115 
116 
117 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
162 
183 
184 
185 
186 
187 
168 
189 
190 
191 
192 
195 
196 
197 
196 
199 
200 
201 
203 
204 
270 
280 
290 
300 
310 
320 
325 
326 
330 
335 
340 
350 
360 
365 
366 
370 
380 
390 
400 
410 
420 
430 
440 
445 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
999 


PRINT “DISTANCE FROM THE ENEMY SHIP WILL BE GIVENe" 

PRINT 

PRINT "AN EXPLOSION WITHIN 52000 MILES OF THE ROMULAN SHIP" 
PRINT “WILL DESTROY ITe" 

PRINT 

PRINT "BELOW IS A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT." 
PRINT 


PRINT 

PRINT "" 90" 

PRINT " iti 

PRINT " 0000000000000" 

PRINT " o0o0000000000000000L 

PRINT " 000000 oooooo" 

PRINT "* 00000 00000” 

PRINT " 00000 XXXXXXXXXXX ooooo" 
PRINT " 00000 XXXXXXXXXXXXXKXK oooo" 
PRINT * 0000 XXXXXXXXXXXXXKXKXK oooo" 
PRINT " 0000 XXXXXXXXXXXXXXKXXXX oooo" 
PRINT " 0000 XXXXXXXXXKXXXXXXXKXXK 0000" 
PRINT '180<== 00000 XXXXXXXXXXXXXXXXXXXXX 00000 ==>0" 
PRINT " 0000 XXXXXXXXXXXXXXXXXXXXX oooo"” 
PRINT " 0000 XXXXXXXXXXXXKXXXXXXK oo0o" 
PRINT " 0000 XXXXXXXXXXXKAXXXKK oooo" 
PRINT * 00000 KXXXXXXXXXXXXXX ooooo" 
PRINT " 00000 XXXXXXXXXXXXX 00000" 
PRINT " 00000 00000" 
PRINT " 000000 oooo00" 

PRINT " 00000000000000000000" 

PRINT " 000000000000000" 

PRINT "* nes 

PRINT " 270° 

PRINT 

PRINT 


PRINT "X = YOUR PLANET" 

PRINT "0 = THE ORBIT OF THE ROMULAN SHIP" 

PRINT 

PRINT “ON THE ABOVE DIAGRAMs THE ROMULAN SHIP IS CIRCLING" 
PRINT “COUNTERCLOCKWISE AROUND YOUR PLANET+ DON'T FURGET" 
PRINT “WITHOUT SUFFICIENT POWER THE ROMULAN SHIP'S ALTITUDE" 
PRINT “AND ORBITAL RATE WILL REMAIN CONSTANT." 

PRINT 

PRINT “GOOD LUCK.e THE FEDERATION IS COUNTING ON YOUe" 
LET A=INTCRND*360) 

LET D=INTCRND*200) +100 

LET R#INTCRND*20) +10 

LET H=0 

IF H=7 GOT) 490 

LET H=H+1 

PRINT 

PRINT 

PRINT “HOUR"3H3"ts AT WHAT ANGLE DO YOU WISH TO SEND" 
PRINT “YOUR PHOTON BOMB?" 

INPUT Al 

PRINT “HOW FAR OUT DO YOU WISH TO DETONATE IT?” 

INPUT D1 

PRINT 

PRINT 

LET AsA¢R 

IF A<360 GOTO 400 

LET AsA-360 

LET T=ABSCA-Al) 

IF T<180 GOTO 430 

LET T2360-T 

LET C#SQR(D*D¢D1*D1-2*D#D1 *COS(T*3014159/7180)) 

PRINT “YOUR PHOTON BOMB EXPLODED™3C3"*1012 MILES FROM THE” 
PRINT “THE ROMULAN SHIP 

IF C<=50 GOTO 470 

GOTO 310 

PRINT “YOU HAVE SUCCESSFULLY COMPLETED YOUR MISSION.” 
GOTO soo 

PRINT "YOU HAVE ALLOWED THE ROMULANS TO ESCAPE." 
PRINT “ANOTHER ROMULAN SHIP HAS GONE INTO ORBIT." 
PRINT “DO YOU WISH TO TRY TO DESTROY IT?" 

INPUT C$ 

IF C$="YES" GOTO 270 

PRINT “PLEASE LOGOUT" 

END 


“AT THE BEGINNING OF EACH HOUR YOU WILL BE ASKED TU GIVE AN" 
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SAMPLE RUN 
SOMEWHERE ABOVE YOUR PLANET IS A ROMULAN SHIP. 


THIS SHIP IS IN A CONSTANT POLAR ORBIT. IT'S 

DISTANCE FROM THE CENTER OF YOUR PLANET IS FROM 

10,000 TO 30,000 MILES AND AT IT S PRESENT VELOCITY CAN 
CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HIJURS- 


UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE SO 

YOU ARE UNABLE TU SEE THEMs BUT WITH A SPECIAL 
INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR 
PHOTON BOMB EXPLUDED-e YOU HAVE SEVEN HOURS UNTIL THEY 
HAVE BUILT UP SUFFICIENT. POWER IN. ORDER TO ESCAPE 

YOUR PLANET'S GRAVITYe 


YOUR PLANET HAS ENOUGH POWER TO FIRE ONE BOMB AN HUURe 

AT THE BEGINNING OF FACH HOUR YOU WILL BE ASKED TO GIVE AN 
ANGLE (BETWEEN 0 AND 360) AND A DISTANCE IN UNITS OF 

100 MILES (BETWEEN 100 AND 300). AFTERWHICH YOUR BOMB*S 
DISTANCE FROM THE ENEMY SHIP WILL BE GIVEN. 


AN EXPLOSION WITHIN 5,000 MILES OF THE ROMULAN SHIP 
WILL DESTROY IT. 


BELOW IS A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT. 


90 
1 
0000000000000 
0000000000000000000 
000000 000000 
00000 00000 
00000 KXXXKXKXKKKK 00000 
00000 XXXXXXXXXXXXXXKX 0000 
0000 XXXXXXXXKXXXXKXKKXX 0000 
0000 XXXXXXXXXKAXXXXXKXKX 0000 
0000 XXXXXXXXXXXKXXKXKAKKXKK 0000 
180<== 00000 XXXXXXXXXXXXKXXXXKAXXK 00000 ==>0 
0000 AXXKXXKXXAXXXXXXAXKAXXK 0000 
0000 XXXXKKXXXKAXKXKXXKXXKXXK 0000 
0000 XXXXXXXKXAXXAXAXAKK 0000 
00000 XXXXXXXXXXXXXXK 00000 
00000 XXXXXXXKXXXKX 00000 
00000 00000 
000000 000000 
00000000000000000000 
o000000000000000 
! 
270 


X - YOUR PLANET 
0 - THE ORBIT OF THE ROMULAN SHIP 


ON THE ABOVE DIAGRAMs THE ROMULAN SHIP IS CIRCLING 
COUNTERCLOCKWISE AROUND YOUR PLANETe DON*T FORGET 
WITHOUT SUFFICIENT POWER THE ROMULAN SHIP*S ALTITUDE 
AND ORBITAL RATE WILL REMAIN CONSTANT. 


GOOD LUCKe THE FEDERATION 1S COUNTING ON YOU. 


HOUR 1 » AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOMB? 

20 

HOW FAR OUT DO YOU WISH TO DETONATE IT? 

? 200 


YOUR PHOTON BOMB EXPLODED 357-237 *10t2 MILES FROM THE 
THE ROMULAN SHIP 


HOUR 2 » AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOMB? 

? 180 

‘HOW FAR OUT DO YOU WISH TO DETONATE IT? 

? 200 


YOUR PHOTON BOMB EXPLODED 267-336 *10t2 MILES FROM THE 
THE ROMULAN SHIP 


HOUR 3 » AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOMB? 

2 980 

HOW FAR OUT DO YOU WISH TO DETONATE IT? 

? 200 


YOUR PHOTON BOMB EXPLODED 295-315 *10t2 MILES FROM THE 
THE ROMULAN SHIP 


HOUR 4 » AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOMB? 

2 (250 

HOW, FAR OUT DO YOU WISH TO DETONATE IT? 

? 200 


YOUR PHOTON BOMB EXPLODED 103-558 *10t2 MILES FROM THE 
THE ROMULAN SHIP 


PIZZA 


Description 


DELIVER PIZZAS IN HYATTSVILLE 


In this game, you take orders for pizzas from people living in 
Hyattsville. Armed with a map of the city, you must then tell 
a delivery boy the address where the pizza is to be delivered. 
If the pizza is delivered to the correct address, the customer 
Poenes you and thanks you; if not, you must give the driver 
the correct address until the pizza gets delivered. 


Some interesting modifications suggest themselves for this 
program such as pizzas getting cold after two incorrect delivery 
attempts or taking three or more orders at a time and figuring 
the shortest delivery route. Send us your modifications! 


Source 


This program seems to have surfaced originally at the University 
of Georgia in Athens, GA. The author is unknown. 


PL OE RR keene TR aE A TE TE RY I RE TE men 
OER ORIEL IONE Bi 0 ENE SRS IES RENO EARN Se 8 SARE ARR OE AN Sh ROT RES 


NZ 


(unr 


© 1964 by E.C. Publications 
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PROGRAM LISTING SAMPLE RUN 


RUNNH 


Sc SNn PIZZA DELIVERY GAME 


14 DIM AS62653, S$CLEX, NSCS, ACLOX, MEC4D 
28 RANDOMIZE 
PRINT “PI22A DELIVERY GAME": PRINT 


INPUT "WHAT I5 YOUR FIRST NAME"; NS: PRINT a 4 ; 
PRINT “HI, "NS". IN THIS GAME YOU ARE TO TAKE ORDERS" HI. BETS‘. IN THIS GAME YOU ARE TO TAKE ORDERS 


PRINT "FOR PIZZAS. THEN YOU ARE TO TELL A DELIVERY BOY" FOR FI THEN YOU ARE TO TELL A DELIVERY BOY 
PRINT "WHERE TO DELIVER THE ORDERED PIZZAS. ": PRINT: PRINT WHERE TO DELIVER THE ORDERED PIZZAS 

FOR I=1 TO 16 

READ S#¢I> 

NEXT I MAP OF THE CITY OF HYATTSVILLE 

FOR I=1 TO 4 E 

READ M$cI> SN a a i oe ae 

NEXT I = 

DATA "A". SONNE, WEE, ONC AAG eT eT ee UN OW AP = 

DATA "i", ; 

PRINT “MAP : 
PRINT “ ----1 4 mM N 9 P 4 
K=4 = 

FoR I=1 TO 4 % 

PRINT “-":PRINT "-" PRINT "-" PRINT "=" 7 

PRINT M#CK3; = ae 
S1=16-441+4 3 I J K ie 3 
FRINT " BSHC "5 S$¢S1+4%5 " "5 S$CS14235" "; S$CS14+3%5 3 

FRINT " "SMSCKD " 

K=K-4 = 

NEXT I = . 4 
PRINT "-":PRINT "<"“PRINT "-":PRINT "=" 2 E E G H 2 
PRINT "§----41----2----3----4----"" PRINT = 

PRINT "THE ABOVE IS A MAP OF THE HOMES WHERE" = 

PRINT “WOU ARE TO SEND FIZZAS, "> PRINT = 

FRINT “OUR JOB IS TO GIVE A TRUCK DRIVER" = 

PRINT “THE LOCATION OR COORDINATES OF THE" st A B (s D 4 
PRINT "HOME ORDERING THE PIZZA. ": PRINT = 

INFUT "DO YOU NEED MORE DIRECTIONS"; AS - 

IF At="ES" THEN 590 - 

IF At="NO" THEN 756 - 


WHAT 15 YOUR FIRST NAME? BETSY 


oes oo 


= 


PRINT "VES" OR “NO (PEERSE, NOW THEN, “2 GOTO s20 Fa ath a Vo 

PRINT: PRINT “SOMEBODY HILL ASK FOR A PI22A TO BE" 

PRINT “DELIVERED. THEN A DELIVERY BOY WILL" THE ABOVE I5 A MAP OF THE HOMES WHERE 
PRINT “ASK YOU FOR THE LOCATION. ": PRINT "“ EXAMPLE: " YOU ARE TO SENG PI2Z2AS. 

As lih WG platen eS wile PEBASE SEND AR PrZZn" 

PRINT “DRIVER TO "N¢" WHERE DOES J LIVE?" OUR JOG IS TO GIVE R TRUCK DRIVER 
PRINT "YOUR ANSWER WOULD BE 2. 3":FRINT THE LOCATION OR COORDINATES OF THE 
INPUT “UNDERSTAND"; At HOME ORGERING THE FI22A 

IF AS="YES" THEN 6398 

PRINT “THIS JOB IS TOO DIFFICULT FOR YOU. THANKS ANYWAY "GOTO 999 DO WOU NEED MORE DIRECTIONS? WES 


98 PRINT “GOOD. YOU ARE NOW READS TO START TAKING ORDERS. ": PRINT 
rea PRINT "GOOD LUCK! ! "> PRINT SOMEBODY WILL ASK FOR A PI22A TO BE 
Too FOR T=1 TO 5 CELIVERED. THEN A DELIVERY BOY WILL 
S=INTCRND#16441%>PRINT ASK ‘OU FOR THE LOCATION 
Pino sHeeioe News. Leet, THES: TS “SSeS; EXAMPLE : 
PRINT ". PLEASE SEND A PIZZA." Neves, BS, FPLERSE SEND A PIZ2 
PRINT " DRIVER TO "N$". WHERE DOES "S$eSh" LIVE"; ORIVER TO BETS. WHER 


DOES J LIVE? 
INPUT Acid. Ae 3 


YOUR ANSWER WOULG BE 


T=ACL94+6AC 22-4984 

IF T=5 THEN 926 WNCERSTAND? YES 

PRINT "THIS IS “S$¢T2". I DID NOT ORDER A PIZZA. " GOOD. YOU ARE NOW READY TO START TAKING ORDERS 
PRINT “I LIVE AT "ACL3", "AC: 

SOTO 788 Boob LUCK!! 

PRINT "HELLO "N$". THIS IS "S$cS¥", THANKS FOR THE PIZZA. " 

NEXT I 

PRINT: INPUT "DO YOU WANT TO DELIVER MORE PIZZAS"; As HELLO BETSY’S PIZZA. THIS IS E. PLEASE SEND A PIZZA 
IF A$="VES" THEN 756 DRIVER TO BETSY. WHERE DOES E LIVE? 
PRINT:FRINT "C.K. "N$", SEE YOU LATER!" THIS 15 6. I DID NOT ORDER A PIZZA 

END TVesni) Goes 


DRIVER TO BETSY. WHERE DOES E LIVE? 4.2 
HELLO BETS THIS IS E, THANKS FOR THE PI 


HELLO BETSY'S THIS: ESS: PLEASE SEND A PIZ2A 
GRIVER TO BETS‘. WHERE DOES H LIVE? 4,2 
HELLO BETS. THIS IS Hs THANKS FOR THE PIZZA 


HELLO’ BETSY< SP 
CRIVER TO BE 
HELLO BETS". i 


THIS LS. \P: PLEASE SEND A PI22A 
WHERE DOES P LIVE? 4,4 
P, THANKS FOR THE PIZ22 


HELLO BETSY'S PI22A. PALS. ES. Te PLEASE SEND A PIZ2A 
DRIVER TO BETSY. WHERE COES J LIVE? 3,2 

THIS. ISG. I DIG NOT ORDER A PIZ2 

TRIPIME? AT  Saeve 
CRIVER TO BETSY. WHERE DOES J LIVE? 2,3 

HELLO BETSY. THIS I5 J, THANKS FOR THE PIZZA 


HELLO BETSY’S PIZZA. THIS tS. PLEASE SEND A PIZZA. 
DRIVER TO BETSY WHERE DOES C LIVE? 3,4 

HELLO BETS. THIS I5 C, THANKS FOR THE PI22A 

OO YOU WANT TO DELIVER MORE PIZZAS? NO 

O.K. BETSY. SEE YOU LATER! 


READY 
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POETRY 


Description 


RANDOM POETRY (HAIKU) 


POETRY: This program will randomly choose a singlet, couplet, 
or quatrain from a set of 23 preset PRINT statements. It spaces 
at random intervals, but ends at approximately the same point 
each time. There is a low likelihood of duplication of lines. 


POET: This program produces random verse which might loosely 
be considered in the Japanese Haiku style. It uses 20 phrases 
in four groups of five phrases each generally cycling through 
the groups. It inserts commas (random--19% of the time), 
indentation (random--22% of the time), and starts new para- 
graphs (18% probability, but at least every 20 phrases). 


The version of POET published has phrases suggestive of Edgar 
Allen Poe. Try it with phrases from computer technology, from 
love and romance, from four-year-old children, or from some 
other subject. Send us the output: 


Here are some phrases from nature to try: 


Carpet of ferns Mighty Oaks 

Morning dew Grace and beauty 
Tang of dawn Silently singing 
Swaying pines Nature speaking 
Entrances me Untouched, unspoiled 
Soothing me Shades of green 
Rustling leaves Tranquility 

Radiates calm ---SO peaceful 


Program Author 


POETRY : POET: 
H. David Crockett Original author unknown. 
5609 Wimbleton Way Modified and reworked by 
Forteworth;- 1x 76133 Jim Bailey, Peggy Ewing, and 


Dave Ahl of DIGITAL. 


POET RY PROGRAM LISTING 


{28 GO TO 116 
{10 LET Dea 
120 LET Dedet 
130 GO TO 1308 = E 
140 PRINT "THE HOURS RISE UP PUTTING OFF STARS" 
150 LET Aged 
160 LET DeDe. 
470 PRINT * 
180 Go TO 1350 
198 PRINT "INTO THE STREET OF THE SKY LIGHT" 
200 LET A2et 
210 LET DeDdet 
220 PRINT * 
2308 GO TO 1350 
240 PRINT "ON EARTH A CANDLE I8 EXTINGUISED" 
250 LET ASei 
260 LET Dadet 
270 PRINT * 
269 GO TO 1350 
290 PRINT "WITH A SONG UPON HER MOUTH" 
300 LET Adei 
310 LET Depdet 
S20 PRINT ¥ 


AND IY I8 DAWN* 


WALKS SCATTERING POEMS" 


THE CITY WAKES" 


WAVING DEATH IN HER EYES# 

338 GO TO 1380 

34@ PRINT "AND IT I8 DAWN" 

35@ PRINT © THE WORLD" 

360 LET ASet 

370 LET Dedet 

Yo PRINT " GOES FORTH TO MURDER DREAMS" 
398 Go To 1358 

“408 PRINT " AND IT 8 DAY" 

412 LET cBat 

420 LET Dedet 

432 GO TO 1350 

44@ PRINT WIN THE MIRROR I SEE A MAN, AND HE" 
45@ PRINT " SCREAMS" 

460 LET De Del 

470 LET CSai 

480 PRINT "FOR HE IS ME" 

490 LET DaDet 
500 PRINT *— 
($108 GO TO 1350 
S20 PRINT "AND IT IS DUSK" 
S30 LET A7ey 
S40 LET DaDet 
$50 PRINT * 
360 GO TO 1350 
$70 PRINT "A CANDLE Ig LIGHTED" 
$80 LET A8s1 
$90 LET DeDet 
600 PRINT " 
610 GO TO 1350 
630 LET Agmy 
640 LET Dede, 
650 GO TO 1350 
660 PRINT "SHE SLEEPS WITH DEATH UPON HER MOUTH" 
670 LEY Bis) 

680 LET Dedei 
690 PRINT * 
70@ GO TO 1350 
740 PRINT " THE HOURS DESENDED" 
720 LET Baey 
730 LET Dedet 
748 PRINT " 
788 GO TO 1350 
760 PRINT "NOBODY LOSES ALL THE TIME " 
770 LET B31 

780 LET Dadet 

VOCNCOMNOnTSSOu ee 

800 PRINT "HIS MOST WISE MUSIC STOLE" 
810 LET Bay 
820 LET DaDet 
830 PRINT " 
840 GO TO 1350 
850 PRINT "LOVE IS THE EVER ONLY GOD" 

860 LET B5a1 

870 LET OaDdelt 

680 GO TO 1350 

898 PRINT "WHO SPOKE THIS EARTH SO GLAD AND BIG" 
900 LET Beet 
910 LET Dede 
520 PRINT " 
938 GO TO 1350 
940 PRINT "WHO Ig AFRAID OF DEATH?THOY" 
950 LET Bye} 
960 LET Dedelt 
970 PRINT " 
980 GO TO 1350 
990 PRINT "OR WITH THY MIND AGAINST MY MIND," 
1000 LET Benq 
1010 LET Dede 
1820 PRINT " 
1230 GO To 1358 
1240 PRINT "FOR IF HE IS GONE AND Y AM HERE" 
1050 LET 89a) 
1860 LET Depei 
1070 PRINT " 
{882 GO TO 1388 
1290 PRINT " TIME IS TWISTED TO LAP UPON" 
{100 LET Cyey 
1110 LET Dadet 
1120 PRINT * 
1132 GO To 1358 
1140 PRINT "AND SPACE I8 MISING FOR IT WAS ¥ 
1180 LET C204 

T160 LET pades 

11708 PRINT "STOLEN FOR ALL TIME TO COME ¥ 
1180 GO TO 1350 

4190 PRINT "THERE I8 NEVER AN END,# 

1200 LET C3a1 

1210 LET Dede 

1220 PRINT " MERELY A BELATED BEGINING..." 
1230 GO TO 1380 

1240 PRINT "AND TWICE REPEATED THERE" 


AND I HE" 


ON EARTH" 


AND IT I8 DARK" 


AND A SONG IN HER EYES" 


PUTTING ON STARS" 


NOTHING FROM DEATH" 


EVEN A THING ALL SMALL AND SAD¥ 


ART OF HIM" 


YOU SHOULD NOT HEAR ME SPEAK# 


THERE I18 NO MEETING" 


ITSELF FOREVER" 


1280 LET C4et 
1260 PRINT * 
1272 GO TO 1380 
4281 DsDe4 
1290 GO TO 1380 
4300 PRINT " RANDOM POETRY IN FOUR PART HARMONY," 
1340 PRINT 

1320 PRINT i. 

TS3O IF GeINT(G) THEN 1260 

1340 JP Dai2 THEN 2330 

1352 LET X#RND(e1) #24 

1362 LET XL#INTCX) 41 

{361 IF Ded THENL280 

1362 IF Da& THENI280 

1363 IF D>i6 THEN 2330 

1370 IF Xie1 THEN 1398 

4389 GO TO 1410 

1390 IF Aleit THEN 1410 

1490 IF Xie{ THEN 148 

4410 IF Xim2 THEN 1438 

1420 GO TO 1456 

1430 IF A2si THEN 4450 

1440 IF Xis2 THEN 290 

1450 IF Xja3 THEN 1470 

1460 GO TO 1498 

1470 IF A3e1 THEN 1490 

1480 IF Xie3 THEN 190 

1490 IF Xie4 THENI510 

1800 GO TO 1530 

1840 IF Adel THEN 1530 

1520 IF X{e4 THEN 240 

4530 IF Xie5 THEN 1650 

1540 GO TO 15738 

{850 IF ASe{ THEN 1570 

1560 IF X1{#S THEN 340 

1870 IF X1#6 THEN 1590 

1580 GO TO 1610 


A6{OIF X187 THEN 1630 
1620 GO TO 1652 

1630 IF A7#i THEN 1650 
1642 GO To 520 

1680 IF X198 THEN 1670 
1660 GO TO 1692 

1670 IF Asai THEN 1690 
1682 GO TO 570 

1690 IF X1e9 THEN i710 
1700 GO TO 1730 

1710 IF AQei THEN 1730 
1720 GO To 620 

1730 IF Xi1#1@ THEN 1750 
1748 GO TO 1780 

1752 GO TO 1768 

1760 IF Biat THEN 178@ 
1770 GO TO 660 

1780 IF Xiei1 THEN 1808 
1792 Go To 1820 

1800 IF B2e1 THEN 1820 
1812 GO TO 710 

1820 IF Xisi2 THEN 1840 
1830 GO TO 1860 

1849 IF B3e1 THEN 1860 
1850 GO TO 760 

1860 IF Xiei3 THEN 1680 
1872 GO TO 1900 

1880 IF B4ei THEN 1900 
1892 GO TO 8a0 

{900 IF Xi1ei4 THEN 1920 
1918 GO To 1940 

1920 IF BSai THEN 18490 
1930 GO TO 880 

1940 IF Xiei5 THEN 1968 
1950 GO TO 1980 

1960 IF 8681 THEN 1980 
1970 GO TO 890 

1960 IF Xiei6 THEN 2000 
1998 GO TO 2020 

2000 IF 8781 THEN 2020 
2812 GO TO 940 

2020 IF Xie17 THEN 2040 
2030 GO To 2060 

2040 IF B8ei THEN 2060 
2050 GO TO 990 

2060 IF X{ei8 THEN 2080 
2072 GO TO 2100 

2080 IF BOs; THEN 2100 
2090 GO TO {a40 

2100 IF X1#19 THEN 2120 
2110 GO To 2140 

2120 IF Cisi THEN 2140 
2130 GO TO 1090 

2140 IF Xie20 THEN 2162 
2150 GO TO 2180 

2160 IF C2e1 THEN 2180 
2178 GO TO 1140 

2180 IF Xis2i THEN 2200 
2198 GO To 2220 

2200 IF C3ei THEN 2220 
2210 GO TO 1190 

2220 IF Xie22 THEN 2240 
2230 GO TO 2260 

2240 IF C4ey THEN 2260 
2280 GO TO 1240 

2260 IF xie23 THEN 2260 
2278 GO To 2300 

2280 IF C581 THEN 2300 
2298 G0 10 449 

2308 GO TO 2320 

2310 IF Xie24 THEN 1280 
2320 GO TO 1369 

2330 PRINT 

2340 PRINT 


WAS NO MORE" 


2350 PRINT " 120 BY A, COM PUTER," 


2360 END 


SAMPLE RUN 
RANDOM POETRY IN FOUR PART HARMONY 


TIME IS TWISTED TO LAP UPON 
ITSELF FOREVER 
NOBODS LOSES ALL THE TIME 


AND IT IS DAWN 
THE WORLD 
GOES FORTH TO MURDER DREAMS 
HIS MOST WISE MUSIC STOLE 
NOTHING FROM DEATH 
AND IT 15 DUSK 
ON EARTH 


THE FEQRFLE ARE IN THEIR HOUSES 
SHE SLEEPS WITH DEATH UPON HER MOUTH 
AND A SONG IN HER EYES 
THE HOURS DESENDED 
PUTTING ON STARS 
THE HOURS RISE UP PUTTING OFF STARS 
AND 17 IS DAWN 
MITH A SONG UPON HER MOUTH 
HAYING DEATH IN HER EVES 
WITH A SONG UPON HER MOUTH 
HAVING DEATH IN HER EVES 
IN THE MIRROR I SEE A MAN, AND HE 
SCREAMS 
Fok HE IS ME 
AND I HE 


BY A. COM PUTER 


REACY 


RANDOM POETRY IN FOUR FART HARMONY 


TIME IS TWISTED TO LAP UPON 
ITSELF FOREVER 
NOBOCY LOSES ALL THE TIME 


ANC IT IS CAWN 
THE WORLD 
GOES FORTH TO MURDER DREAMS 
HIS MOST WISE MUSIC STOLE 
NOTHING FROM CEATH 
AND IT 15 DUSK 
ON ERRTH 


THE FECPLE ARE IN THEIR HOUSES 
SHE SLEEPS WITH DEATH UPON HER MOUTH 
AND A SONG IN HER EVES 
THE HOURS CESENDED 
FUTTING ON STARS 
THE HOURS RISE UP PUTTING OFF STARS 
AND 1T IS DAWN 
WITH A SONG UPON HER MOUTH 
HAVING DEATH IN HER EVES 
WITH A SONG UPON HER MOUTH 
HAVING CEATH IN HEF EVES 
IN THE MIRROR I SEE A MAN, AND HE 
SCREAMS 
FoR HE IS ME 
AND I HE 


BY A. COM PUTER 


READY 


POET 


PROGRAM LISTING 


98 RANDOMIZE 


100 
104 
102 
183 


IF I<>1 THEN 
If I<>2 THEN 
IF I<>3 THEN 
IF I<>4 THEN 
IF I<>5 THEN 
GOTO 210 

IF I<>1 THEN 
IF I<>2 THEN 
IF I<>3 THEN 
IF I<>4 THEN 
IF I<>5 THEN 
GOTO 210 

IF I<>1 THEN 
IF I<>2 THEN 
IF I<>3 THEN 
IF I<>4 THEN 
IF I<>5 THEN 
GOTO 210 

I<>1 THEN 
I<>2 THEN 
I<>3 THEN 


101 
12 
103 
104 
210 


ELSE 
ELSE 
ELSE 
ELSE 
ELSE 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"MIONIGHT DREARY") 
"FIREY EYES") 
"BIRD OR FIEND} 
"THING OF EVIL") 
"PHOPHET") 


111 
112 
113 
114 
218 


ELSE 
ELSE 
ELSE 
ELSE 
ELSE 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"BEGUILING ME"} 

“THRILLED ME") 

"STILL SITTING,.,"\GOTO 212 
"BURNED, "\GOTO 212 

"NEVER FLITTING") 


121 
122 
123 
124 
210 


ELSE 
ELSE 
ELSE 
ELSE 
ELSE 


IF Us® THEN 210 ELSE PRINT "SIGN OF PARTING") 
PRINT "AND MY SOUL"5 

PRINT "DARKNESS THERE") 

PRINT “SHALL BE LIFTED") 

PRINT "QUOTH THE RAVEN"3 


131 
132 
133 


ELSE 
ELSE 
ELSE 


PRINT 
PRINT 
PRINT 


"NOTHING MORE") 

"YET AGAIN") 

“SLOWLY CREEPING"? 

I<>4 THEN 134 ELSE PRINT ",,,NEVERMORE"S) 

I<>5 THEN 210 ELSE PRINT "EVERMORE,") 

Us@ THEN 212 ELSE IF RND>,19 THEN 212 ELSE PRINT ","s\UeQ 
RND>,65 THEN 214 ELSE PRINT " "$\UBU4i\GOTO 215 

PRINT\USO 

TB INT(S#RND41) 

JaJei\Kakey 

IF U>@ THEN 240 ELSE IF INT(J/2)<>J/2 
ON J GOTO 100,118,120,130,250 
JeQ\PRINT\IF K>20 THEN 27@ ELSE GOYO 215 
PRINT\USA\KBQ\GOTO 110 

END 


THEN 24¢@ ELSE PRINT * "y 
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SAMPLE RUN 


THING OF EVIL BEGUILING 
DARKNESS THERE 
SLOWLY CREEPING 
FIREY EYES BEGUILING ME 
THING OF EVIL 
THRILLED ME 
SHALL BE LIFTED 


ME. 


SHALL BE 


YET AGAIN 


STILE SITTING: - 
FIREY EYES 
THRILLED ME AND MY SOUL WET 
MIDNIGHT DREARY 
SHALL BE LIFTED 
THING OF EVIL, 
... NEVERMORE 
BIRD OR FIEND BEGUILING ME. 


BEGUILING ME 
YET AGAIN. 


NEVER FLITTING DARKNESS 


LIFTED. 


AGAIN 


THERE 


SHALL BE LIFTEC 


MIDNIGHT DREARY BEGUILING ME SIGN OF FARTING 


.., NEVERMORE 


BEGUILING 
THING 


ME 
OF EVIL BURNED 


QUOTH THE RAVEN 
SLOWLY CREEPING 


FIREY EYES 
THRILLED ME G@UOTH THE RAEN 
PHOPHET 
THRILLED ME SHALL BE LIFTED 
NOTHING MORE 
THING OF EVIL 
STILE SiTING. 
DARKNESS THERE YET AGAIN 
MIDNIGHT DREARY. 
Sie Sot tele 


SHALL BE LIFTEC SLOWLY CREEPING. 


BEGUILING ME PHOFHET. 
BURNED. 


SHALL BE LIFTEC EVERMORE 
FUREY EYES SPIEL SPTTING 
SIGN OF PRRTING YET AGAIN 
MIDNIGHT DREARY BURNED 
DARKNESS THERE YET AGAIN 
MIDNIGHT DREARY, BURNED 
DARKNESS THERE, 
EVERMORE 

MIDNIGHT DREARY BURNED 


QUOTH THE RAYEN 
EVERMORE. 


NEVER FLITTING FIREY EVES 
BIRD OR FIEND BEGUILING ME 
SHALL BE LIFTED YET AGAIN 
FIREY EVES 
THRILLED ME 
THING OF EVIL 
BURNED 
DARKNESS THERE EVERMORE 
THING OF EVIL BURNED 
SHALL BE LIFTEC EVERMORE 


QUOTH THE RAVEN, 


THRILLED ME 
FIREY EYES NEYER FLITTING 
AND MY SOUL SLOWLY CREEPING 
BIRD OR FIEND THRILLED ME. 
NOTHING MORE 
FIREY EYES 
BEGUILING ME DARKNESS THERE 
YET AGAIN 
NIGDNIGHT DREARY 
STILL STPTENG 
SIGN OF PARTING 
NOTHING MORE 
PHOPHET BEGUILING ME. 
YET AGAIN 


ANG MY SOUL 


THRILLED ME BIRO OR FIEND 
THRILLED ME SIGN OF PARTING 
BIRD OR FIEND THRILLED ME. GUOTH 
BIRD OR FIEND 
THRILLED 
EDREY EVES 


ME SHALL Be LIRTED 


NEVER FLITTING DARKNESS THER 
BIRD OR FIEND THRILLED ME. DARKNE 
BURNED. 


THRILLEC 


SIGN OF 


EVERMORE. 


ME SIGN OF 


.. NEVERMORE 

PARTING 

. NEVERMORE 
THE RAEN 


NOTHING MORE 


E YET AGAIN 


THING OF E¥IL NEVER FLITTING GUOTH THE RAEN, 


NOTHING MORE 
MIDNIGHT DREARY 


THRILLED ME CARKNESS THERE ET AGAIN 
MIDNIGHT DREARY 
BEGUILING ME CARKNESS THERE 


YET AGAIN 
MIDNIGHT DREARY STILL SITTING 
SHALL BE LIFTEC SLOWLY CREEPING 


THING OF EVIL BEGUILING ME 
DARKNESS THERE . NEVERMORE 
BURNED 
FIREY EYES 

STILE STTTING 


AND MY SOUL EYERMORE 
FIREY EYES 
.. NEVERMORE 
MIDNIGHT DREARY 

THRILLED ME 
QUOTH THE RAVEN 


NEVER FLITTING GUOTH THE 


RAVEN 


NOTHING MORE, 


. NEVERMORE 


PARTING NOTHING 


NEVERMCORE 


© THERE NOTHING MORE 


POKER _........ 


Description 


In this game, you play draw poker with the computer as your 
opponent. At the start of the game, each person has $200. 
The game ends when either opponent runs out of money (if you 
run short, the computer gives you a chance to sell your 
wristwatch or diamond tie tack). 


The computer opens the betting before the draw; you open the 
betting after the draw. If you don't have a hand that's worth 
anything and want to fold, bet 0. Prior to the draw, to check 
the draw, you may bet .5. Of course, if the computer has 
betted, you must match bets (see his bet) in order to draw or, 
if your hand looks good either before or after the draw, you 
may always raise the bet. 


Source 


Thanks to A.E. Sapega for submitting this program to DECUS 
(BASIC 8-556). Its author is: 


A. Christopher Hall 
Trinity College 
Macerord, Cr. O0GLOG 


Why Does It ALWAYS HAPPEN That... 


... your only Full House of 
the night loses to the only 
Four-Of-A-Kind of the night? 


© 1973 byE.C. Publications 


Liz 


PROGRAM LISTING 


{DIMAC15),8C10, 
2DEFFNACX)®INT(1G*RND(X), 

SDEFFNB(X) @Xe1OGwINT(X/100) 
4PRINT"WELCOME TO THE HALLDEN CASINO, 


WE EACH HAVE $200" 


SPRINT"I WILL OPEN THE BETTING BEFORE THE DRAW) Y 


6PRINT*WHEN YOU FOLD, BET 07 YO CHECK, BET 
7PRINT"ENOUGH TALK == LET'S GET DOWN TO BUSI 


BPRINT 
SLETOe! 

1OLETC#200 
TILETS#200 

12LETPsa 

{3RANDOM 

{4PRINT 
ISIFC<@STHEN3S67 
{6PRINT*THF ANTE IS $5, I WILL DEAL" 
Y7PRINT 

ASIF S>5THEN2O 
19GOSUB383 
20LETP#Ps19 
21LETS#S-5 
22LETCaCe5 
2SFORZ#1TO1O 
24G0SUB174 

25NEXTZ 
26PRINT"YOUR HANDS" 
27LETN@1 

28G0SUB185 

29LETNS6 

SOLETI#2 

31G0SUB217 

32PRINT 
SSIFI<>6THENG7 
S4IFFNACG) <B7THENS7 
SSLETX#Liie0 
36GOTO42 
S7IFFNA(B)<57THENGO 
SOBLETX#ii1110 
39G0TO42 
4O1FFNA(O)>21THENSS 
44LETXeiii4: 
42LETI#7 

43LETZ#23 

44G0T058 

4S5LETZ#1 

46G0T053 

471 FU>S13THENSS 
48IFFNA(Q)>#2THENSO 
49G0T042 

S@LETZ#0 

SILETKSO 

S2PRINT"I CHECK" 
53G0T062 
S4IFUCBI6THEN5S7 
SSLETZ#2 
S6IFFNA(O)>s{THENSS 
S7LETZ#35 
S8LETVSZ+FNACQ) 
59GOSUB348 
6O@PRINT"I'LL OPEN WITH "V 
61LETKaV 

62G0SUB305 
63G0SUB65 

64G0T082 
651IFI<>3THEN7T6 
66PRINT 

67PRINT"I WIN" 
68LETCaCeP 
69PRINT"NOW I HAVE S"C"AND YOU HAVE $"S 
7O@PRINT"DO YOU WISH TO CONTINUES 
TLINPUTHS 
T2IFHSE"YES"THENI2 
T3IFHSE"NO"THENAIS 
74PRINT"ANSWER YES OR NO,» IDIOT" 
75G0T070 
76IFI<>4THENB! 
77PRINT 

78PRINT" YOU WIN" 
79OLETSBS+P 

88G0T069 

BL RETURN 

B2PRINT 


BIPRINTYNOW WE DRAW em HOW MANY CARDS SO YOU WANT") 


S4INPUTT 
BSIFTSATHENSS 
S6LETZ#10 
87 IFT <4THEN9SG 


o58 
NESS" 


BBPRINT"YOU CAN'T DRAW MORE THAN THREF CARDS" 


BOGOTOR4 

QOPRINT"WHAT ARE THEIR NUMBERS" 
S1FOR QeiTOT 

92INPUTU 

93GOSUB173 

94NEXTO ; : 
SSPRINT"YOUR NEW HANDS" 
S6LETNSL 

97G0SUB185 

9BLETZa104T 
SOFORUS6TOYO 


LOOIFINT(X/1BA(U@6) ) <>L4HINT (X71 AA (U5) )THENIO2 


TO1GOSUBI73 
{@2NEXxTU 

{O3PRINT 
{B4PRINT"I AM TAKING"Z=1B=T"CARD"} 
{O51IFZ811{+TTHENIQ9 
{@6PRINT"S" 
[O7PRINT 
{e8GOTO119 
LOOPRINT 
L1OLETN&6 
{LiLETVal 
LL2LETIe1 
113GOSUB217 
114LETB8u 
TISLETM®D 
LI6IFV<>7THENII9 
{17LETZa28 
118GOTO133) 
TIOIFI<>6THENI22 
120LETZe1 
1216070133 
L221FUP>eL3THENI27 


‘OU OPEN AFTER® 


{23LETZ#2 

L241 FFNA(G) 4>6THENI26 
{25LETZ819 

1266070133 

L271 FU>Bi6THENI32 
{28LETZe19 
L29I1FFNA(Q)<>8THENIS{ 
{SOLETZa11 

{31GOTO133 

A32LETZ#2 

133LETKEO 

134G0SUB8305 

L35IFT<>, STHENI45 
L361FV@7THENL 4G 


L37IFI<>6THEN{ 4g 
ASBPRINT"I'LL CHECK" 
139G0T0146 
L4OLETVSZ+FNA(Q) 
141G0SUB348 
AGQPRINTWIILL BETHY 
{43LETKsV 

144G0SUB306 

145G0S8uUB65 

L46PRINT 

L47PRINT"NOW WE COMPARE HANDS" 
A48LETJS#HS 

149LETKS8I§ 
“L5OPRINT"MY HAND g" 

151 LETN#6 

152608UB{85 

{S53LETNa1 

{54G08UB217 

{S5PRINT 

LS6PRINT"YOU HAVE "3 
{57LETK#D 

158G0SU8369 

159LETHSaJS 

A6BLETIS#ks 

164LETKaM 

{62PRINT"AND I HAVE "y 
163GO0SUB369 
1641FB>UTHEN67 
{651FU>BTHEN78 
AG6IFHS8"A FLUS"THENI79 
{67PRINT"THE HAND IS DRAWN" 
{68PRINT"ALL $"P" REMAIN IN THE POT" 
{69GOT014 
{7OIFFNB(M)>FNB(D) THEN67 
171 IF FNB(D)>FNB(M) THEN78 
1726070167 

{73LETZ#Z41 
174LETA(Z)B@INT(1O00#RND(B) ) 
{75IFINT(ACZ)/100)>3THENI74 
176IFACZ) 10GB INT(A(CZ)/180) >12THENIL74 
{77FORK®1TOZ@j 
{781FA(Z)#A(K)THENI74 
L79NEXTK 
18OIFZ<#1HTHENI84 
{81LETN®A(U) 
182LETA(U)#A(Z) 
{83LETACZ) BN 

{84RETURN 
LBSFORZENTONGS 
186PRINTZ"ee Ny 
187GOSUB195 

{8BPRINT" OF"; 
1{89G0SUB207 
{901FZ/2<>INT(Z/2) THENI92 
“T91PRINT 

192NEXTZ 

{93PRINT 

1946RETURN 
195LETK#FNB(A(Z)) 
L96IFK<>9THENI9B 
L{97PRINT"JACK"Y 
19BIFK<>1GTHEN2G0 
L{99PRINT"QUEEN") 
200I1FK<>{1{1THEN202 
2O014PRINT"KING") 
2021FK<>{2THENQB4 

2041 FK>®9THEN2O6 
2O5PRINTK#23 

206RETURN 
2O7LETKBINT(A(Z)/100) 
2O8IFK<>OTHEN210 
2B9PRINT" CLUBS", 
2101IFK<>1THEN212 
211PRINT" DIAMONDS", 
212IFK<>2THEN214 
213PRINT" HEARTS", 
2141FK<>3THEN216 
“2LS5PRINT" SPADES", 
216RETURN 

217LETUSO 

218FORZENTONS4 
219LETB(2Z) sFNBCA(Z)) 
2201 FZ@N+4THEN223 


22LIFINTCACZ) /102) <>INT(A(Z41) /100) THEN223 


222LETUBU4! 
223NEXTZ 

2241 FU<>4THEN231 
225LETXa1ii14 
226LETDBA(N) 
227LETHS#"A FLUS" 
228LETISs"H IN" 
229LETUBI5 
23O0RETURN 
231FORZ@NTONS3 
232FORK#Z4+4TONed 
ZUSIFB(Z) <BB(K)THEN2S9 
234LETX#A(Z) 
235LETA(Z) BACK) 
236LETB(Z)#B(K) 


LS 


237LETACK) BX 


236LETB(K) BACK) @LOOwINT(A(K) /102% 


2ZSONEXTI 
24QNEXTZ 
241LETXaO 
242FORZ®NTONGS 


2431FB(Z) <>B(Z41) THEN247 


244LETXaXeilelAacZen) 
245LETDBA(Z) 
246G08UB276 

247NEXTZ 
2481FX<>OTHEN262 


249TFB(N)+36>B (N43) THEN252 


250LETXe1114 
251LETUsia 


252I1FB(NO1)+¢3<>B(N+4) THEN262 


2531 FU<>IQTHEN2Z60 
254LETUBL4 
255LETHS®"STRAIG" 
256LETISe"HT" 
257LETXeliiid 
258LETDSA(N#4) 
259RETURN 
26BLETUBIC 
261LETX811110 
2621FU>#{ BTHENZ6% 
263LETDBA(NS4) 
264LETHS®"SCKMAL" 
265LETIge"7z, " 
266LETUS9 
267LETX#11000 
268G0T0274 
2691 FU<>1BTHEN272 
270IFI8{THEN274 
271G0T0275 
2721FU>1L2THEN275 
2731FFNB(D)>6THEN275 
274LETIB6 
275RETURN 

2761 FU>®11THEN2B81 
277LETUBi1 
27BLETHSa"A PAIR" 
279LETISa" OF " 
28ORETURN 
2BLIFU<>{1 1 THEN291 


2821FB(Z)<>B(Z=1) THEN287 


283LETHS®"THREE" 
284LETIge 
285LETUS13 
286RETURN 
DB7LETHSH"TWO PH 
288LETISS"AIR, " 
289LETUS12 
290RETURN 

291 IFU<>12THEN296 
292LETUB16 
293LETHS@"/FULL HN" 
294LETISe"OUSE, " 
295RETURN 


2961FB(Z)«>B(Z@1) THENSOL 


297LETUBL7 
298LETHS="FOUR" 
299LETISa" w 
SOORETURN 
SOLLETUBI6 
SO2LETHSe"FULL HK" 
3O3LETIS#"OUSE, " 
SO4RETURN 
SOSLETG#S 


SO6PRINT"WHAT IS YOUR BET") 


3O7INPUTT 


SOBIFT@INT(T) SOTHENS14 


JO9IFK<>OTHENSI2 
SL GIFG<>OTHENS12 
SALIF TS, STHENS 41 


SL2PRINT"NO SMALL CHANGE, PLEASE" 


3136070306 
SLi4IFSeGeT>BATHENSI7 
315G0S8UB383 
316G0T0306 
SITIFT<>OTHENS20 
SABLETIa3 

319G0T0338 
S201FG+T>sKTHEN3S23 


S21PRINT"IF YOU CAN'T SEE MY BET, THEN FOLD" 


3226070306 
S23LETGEG+T 

S241 FGEKTHEN3S38 
J25IFZ<>1THENS 42 
S26I1FG>STHENS3O 
S271FZ>S2THEN335 
S28LETV8S 
329G0TO342 
S3QIFZ®1 THENS32 
SSLIFT<S25THEN3SSS 
S32LETI84 
S33PRINT"I FOLD" 
334RETURN 


SISIFZS2THENS 43 


S36PRINT"I'LL SEE You" 


S37LETKEG 
JIBLETS#SeG 
SSOLETC HC HK 
J4OLETPaPsGek 
S4LRETURN 
3421FG>3*ZTHENS35 
J43LETVEGRKeFNA(B) 
344G0S8SUB348 


S45PRINT"I'LL SEE YOU, 


S46LETKEGSV 
347G0T0306 
J4BIFCeGaV>BOTHENIS66 
J49IFG<>OTHENSS2 
JSOLETVaC 


AND RAISE YOu"y 


NOW WE DRAW -- HOW MANS CARDS DO YOU WANT? = 


3S1RETURN WHAT ARE THEIR NUMBERS 

JEVIFCHG>sOTHENS3O > 4 

SSSIFO/2<>INT (0/2) THENS6O el 

US4PRINT"WOULD YOU LIKE TO BUY BACK YOUR WATCH FOR $50") 25 

SSSINPUTJS YOUR NEW HAND: 

SS6IFJSB"NO"THENS6O 4 -- & OF DIAMONDS 2-- 9 OF DIAMONDS 
JS7LETCHCeSO 3 -- KING OF CLUBS 4 -- 4 OF CIAMONCS 
358LETO#0/2 5 -- 5 OF DIAMONDS 

JSORETURN 

JEBIFO/3<>INT(O/3) THENS67 I AM TAKING = CARDS 

SeLPRINT"WOULD YOU LIKE TO BUY BACK YOUR TIE TACK FOR $80") 

3G2INPUTJS WHAT IS YOUR BET? & 

JESIFISB"NO"THENS67 

JO4LETCHCe5O 1 WIN 

J65LETO#0/3 NON I HAYE # 208 AND YOU HAVE + 20a 

3J66RETURN DO YOU WISH TO CONTINUE? YES 

S67PRINT"I'M BUSTED. CONGRATULATIONS" 

36esToP THE ANTE 15 #5. I WILL DEAL 

JOOPRINTHS)IS) 

S7DIFHS<>"A FLUS"THENS75 YOUR HAND: 

S7ALETK®INT(K/100) 4 -- 5 OF DIAMONDS 2 -- KING OF CLUES 
372G0SUB208 3 -- 5 OF CLUBS 4 -- 4 OF CLUES 
373PRINT 5 -- 5 OF SPADES 

37 4RETURN 

S75LETKeFNB(K) 


4 31 
376G08UB196 I°LL OPEN WITH : 


S77 IFHSB"SCHMAL"THENS WHAT 1S YOUR BET? 28 
A UT Sle IF YOU CAN’T SEE MY BET. THEN FOLD 


37B1FHS<>"STRAIG"THENSBL B gst Sete A 
379PRINT" HIGH" WHAT IS YOUR BET? 34 
38ORETURN 


NON WE DRAW -- HOW MANY CARDS DO YOU WANT? 2 

Sp ld WHAT ARE THEIR NUMBERS 
“JOSPRINT is 
3B4PRINT"YOU CAN'T BET WHAT YOU HAVEN'T GOT" t ; 
BLAU a EC ed Soo sn OIAacnDe 2 -- JACK OF HEARTS 
SB6PRINT"WOULD YOU LIKE To SELL YOUR WATCH") z ape abe Alea a Cae Sees 
JE7INPUTJS Sa eh 2 CLUBS es 7 OF CIAMONDS. 
3881F JS#"NO"THENS97 BS le Single 
JEOTFFNACO)>a7THENSOS ee en oe 
JOBPRINT"I'LL GIVE YOU $75 FOR IT* I AM TAKING 2 CARDS 
3 ETS#Se75 
Sesecensce WHAT IS YOUR BET? 2a ' 
JOSPRINT"THATIS A PRETTY CRUMMY WATCH = I'LL GIVE YOU $25" i aS eee Hab eho l en say ck 

JOALETS#39e25 WHAT 15 YOUR BET? 28 

JOSLETOBOe2 z = 

396RETURN NOW WE COMPARE HANDS 
397 IFO/3®INT(O/3) THENGO9 MY HAND: i ‘ 

S9BPRINT"WILL YOU PART WITH THAT DIAMOND TIE TACK") Cie tues nee 2 aan A 
SOSINPUTJS ? -- 4 OF DIAMONDS S$ -- 3 OF HEARTS 
4QQ1F JS®"NO"THENG8 9 -- KING OF DIAMONDS 16 -- ACE OF SPADES 
4OLIFFNA(Q)>86THENGOS 
4Q2PRINT"YOU ARE NOW $102 RICHER" 
aeaCbteeeo ine : Bene YOU HAVE THREE 5 & 
404G0T0407 AND I HAYE A PAIR OF 4 5 
4 RINT"IT! A 50 YOU WIN 
aL a PAST ESE Se NOW I HAVE # 146 AND YOU HAVE + 
4O7LETOBOe3 DO YOU WISH TO CONTINUE? YES 
408RETURN x 
4Q9PRINT"YOUR WAD IS SHOT, SO LONG, SUCKER" THE ANTE 15 $5. 1 WILL DEAL 
4 

see YOUR HAND: 
SAMPLE RUN hes 8) ip Rene 2 -- JACK OF HEARTS 
WELCOME TO THE HALLDEN CASINO. WE EACH HAVE #200 3 -- 7 OF DIAMONDS 4 -- KING OF DIAMONDS 
I WILL OPEN THE BETTING BEFORE THE DRAW: SOL! OPEN AFTER 5 -- 4 OF SPADES 

WHEN YOU FOLD, BET @: TO CHECK, BET .5 Mienee 

3H TALK -- 5 G TH O BUSINESS CHECK 
ENOUGH TALK LET’S GET DOWN TO BUSINE Habe ie meoeteeere 
4 I WIN 
iy 

ERE BN TESS Sh Maths SDEFY NON I HAVE $ 424 AND WOU HAVE # 279 

YOUR HAND: DO YOU WISH TO CONTINUE? YES 

1 -- 7? OF SPADES 2-- = OF SPADES B Z 

3 -- GUEEN OF SPADES 4 -- 7 OF DIAMONDS THE ANTE 15 $5. I WILL DEAL 

peru oer ore YOUR HAND: 

I CHECK 1 -- & OF SPADES 2 -- BUEEN OF HEARTS 

ae = 3 -- 9 OF SPADES 4 == | 2) ne Clues 

poe ata pee 5 -- 16 OF DIAMONDS 

NON NE DRAW -- HOW MANY CARDS DO SOL! WANT? = SP SUEEK 


WHAT IS YOUR BET? 5 


stata ARE THEIR NUMBERS I‘LL SEE you 


2S 


oe NOW WE CRAW -- HOW MANS CARDS CO YC! WANT? 4 

y : UMBERS. 

MRIRENEW) LANDS ae ARE THEIR NUMBERS 

-- 7 OF SPADES 2-- JACK OF DIAMONDS : 

a ene Reet As a oe TAN Nee ee MENDES ¥ ’ ; 

S—— 5 OF DIAMONDS gh ca 8 OF SPADES 2 -- QUEEN OF HEARTS 
: ‘3 Z-- 9 OF SPADES 4 -- KING OF CLUES 
I AM TAKING % CARDS S-- 16 OF DIAMONDS 

WHAT IS YOUR BET? 28 TAM TAKING 3 CARDS 

I FOLD 

WHAT IS YOUR BET? 5 

YOU WIN ILL SEE YOU 

NOW I HAVE ¢ 198 AND YOU HAYE * 4a 
DO YOU WISH TO CONTINUE? YES NON WE COMPARE HANDS 


MY HAND: 
oh % OF SPADES 


THE ANTE 15 $5. I WILL DEAL 6 
i> ? OF CLUBS 
9 


ct S OF CLUES 

YOUR HAND: -- JRCK OF SPADES 14 -- ACE OF SPADES 
4 == 4 OF HEARTS 2 == 3 OF OLAMONDS. 
3 -- KING OF CLUES Lh 6 OF CIAMONDS 
al ea S$ OF SPACES YOU HAYE SCHMALT2, KING HIGH 

AND I HAVE A PAIR OF 7 S 
I CHECK I WIN 
WHAT IS YOUR BET? 5 NON I HAVE # 436 AND YOU HAVE ¢ 2e4 
TALE SEE You OO YOU WISH TO CONTINUE? YES 
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OU BIC 3-DIMENSIONAL TIC-TAC-TOE 


Descri Description 


QUBIC is the game of tic-tac-toe in a 4x4x4 cube. You must get 
4 markers in a row or diagonal along any 3-dimensional plane 

in order to win. It is up to you to keep track of moves (the 
program does not print out a diagram as you play). 


Each move is indicated by a 3-digit number (digits not separated 
by commas), with each digit between 1 and 4 inclusive. The 
digits indicate the level, column, and row, respectively, of 

the move. YOU Can win.af you play.correctly; although, it ds 
considerably more difficult than standard, two-dimensional 3x3 
tic-tac-toe. 


Source 


QUBIC seems to have first shown up on a G.E. timesharing system 
in 1968. Its original author is unknown. 


tha 


Lf?) 


PROGRAM LISTING 


REM * 


QUBIC= # 


PRINT "DO YOU WANT INSTRUCTIONS") 


IF C$s"NO" THEN 21 
IF Cgs"YES" THEN 13 


@ 
5 
6 INPUT CS 
7 
8 
9 


PRINT "INCORRECT ANSWER, PLEASE TYPE 'YES! OR INO'My 
GOTO 6 
PRINT "THE GAME IS TIC*TAC*TOE IN A 4 X 4 X 4 CUBE," 


24F 
25F 
26 
27 
28 
35 
40 
50 
54 
ss 
60 
66 
67 
68 
69 
70 


PRINT "EACH MOVE IS INDICATED BY A 3 DIGIT NUMBER, WITH EACH" 
PRINT "DIGIT BETWEEN 1 AND 4 INCLUSIVE, THE DIGITS INDICATE THE" 
PRINT "LEVEL, COLUMN, AND ROW, RESPECTIVELY, OF THE OCCUPIED PLACE," 
DIM X(64),L0676)9M(76+4) /¥(16) 

FOR I # 1 TO 16 

READ Y(I) 

NEXT I 

OR 181 TO 76 

OR Js 170 4 

READM(I,J) 

NEXT J 

NEXT I 

FOR I = 1 TO 64 

LET X (I) 30 

NEXT I 

LET 251 

PRINT "DO YOU WANT TO MOVE FIRST") 

INPUT S8& 

IF SSs"NO" THEN 110 
IF Sse" YES" THEN 70 
PRINT "INCORRECT ANSWER. 
GOTO 6@ 

PRINT " ¥ 


PLEASE TYPE 'YES! OR 'NO!,"5 


72 PRINT "YOUR MOVE" 


8er 
8s 


NPUTJ4 

GOSUB 18008 
LETK1=INT(J1/100) 
LET J2e(J1°K1#100) 
LET K28INT(J2/10) 


97 LET K35 Ji = K1i#100 #K2410 


251 
252 
255 
260 
265 
272 
275 
280 
285 
290 
295 
300 
305 
316 
315 
322 
360 
362 
365 
368 
375 
380 
381 
385 
389 
396 
400 
410 
412 
415 
422 
425 
430 
435 
440 
445 


LET MB16#Ki+4#K24K3<20 
IF X(M)®0 THEN 109 
PRINT "THAT SQUARE IS USED, 
GOTO 72 

LET X(M)@1 

GOSUB 1050 

FOR Jei TO 3 

FOR I#1 TO 76 

IF Je1 THEN 210 

IF J=2 THEN 220 

IF Ja3 THEN 235 
NEXT I 

NEXTJ 

GOTO 4098 

IF LC(I)<>4 THEN 205 
PRINT "YOU WIN AS FOLLOWS"} 
FOR JSi TO 4 

LET MaM(I,J) 

GOSUB 1002 

NEXT J 

GOTO 500 

IF L¢1)<>15 THEN 205 
FOR Jai TO 4 

LET MeM(I,J) 

IF X(M)<>@ THEN 227 
LET X(M)s5 

PRINT "MACHINE MOVES TO"? 
GOSUB 1000 

NEXT J 

PRINT ", AND WINS AS FOLLOWS" 

FOR Jei TO 4 

LET MeMC(I,J) 

GOSUB 1000 

NEXT J 

GOTO 520 

IF L(1)<>3 THEN 265 

PRINT "NICE TRY MACHINE MOVES TO"} 

FOR Jsi TO 4 

LET M3M(IeJ) 

IF X(€M)<>0 THEN 245 

LET X(M)85 

GOSUB 1000 

GOTO 70 

NEXT J 

GOTO 420 

FOR rie 1. TO) 76 

LET LCI)@XCM(1e1))+XCMCI02))+XCM(1,3) )+X(MCI,4)) 
LET L ® LCI) 

IF L “2 THEN 296 

IF L>33 THEN 290 

IF L>2 THEN 1600 

FOR Js 170 4 

IF X(M(CI,J))<?0 THEN 285 

LET X(M(I-J))=1/8 

NEXT J 

NEXT I 

GOSUB 1050 

FOR I = 4 TO 76 

IF L(1)51/2 THEN 1700 

IF L(I)#1+3/8 THEN 1700 

NEXT I 

GOTO 1300 
LET Z 2 1 

IF X(¥(Z))=@ THEN 340 

LET ZSZ414 

IF Z<>47 THEN 362 

GOTO 1200 

LET MByY(Z) 

LET X(M)85 

PRINT "MACHINE MOVES TO") 

GOSUB 1000 

GOTO 70 

LET X=X 

FOR Isi TO 76 

LET L(I)=XCM(I+1))+X(MO1,2))#X(MCI,3))+XCMC(1,4)) 
LET L&L(I) 

IF L<1® THEN 455 

IF L>#41 THEN 455 

IF L>1@ THEN 1600 

FOR Jai TO 4 

IF X(MCI,J))<>0 THEN 450 

LET X(M(I-J))21/8 


TRY AGAIN" 
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450 NEXT J 

455 NEXT I 

47@ GOSUB 1080 

475 FOR Iai TO 76 

46@ IF L(I)#,5 THEN 1700 

485 IF L(I)s5+3/8 THEN 1700 

490 NEXT I 

492 GOSUB 1800 

493 GOTO 250 

500 PRINT " " 

505 PRINT "DO YOU WANT TO TRY ANOTHER GAME") 

$19 INPUT Xs 

545 IF X$e"YES" THEN 35 

516 IF X8a"NO" THEN 520 

547 PRINT "INCORRECT ANSWER, PLEASE TYPE 'YES! OR !NO'N) 
§18 GOTO 510 

520 STOP 

1900 LET KisINT((M"1)/16)+1 

1010 LET J2eM=16#(Kie1) 

1030 LET K2BINT((J2"1)/4) 41 

1935 LET K38M=(Kie1)#16"(K201) #4 

1040 LET M3K1#1004+K2*104K3 

1042 PRINT M3 

1045 RETURN 

105@ FOR Ssi TO 76 

1060 LET Ji = M(S,1) 

1070 LET J25M(S,2) 

1980 LET J35M(S,3) 

1090 LET J4=M(S,4) 

1100 LET L6S)=X(I1)+XCI2)4XC93)+X(I4) 

1110 NEXT § 

1120 RETURN 

1208 FOR I#i TO 64 

1219 IF X(I)<>@ THEN 1250 

1220 LET X(1I)=5 

1225 LET Mal 

1226 PRINT "MACHINE LIKES") 

1227 GOSUB 1200 

1228 PRINT " " 

1230 GOTO 76 

1250 NEXT I 

14252 PRINT "THE GAME IS A DRAW" 

1255 GOTO 500 

1300 FOR K#1i TO 18 

1305 LET Ped 

1310 FOR I=4#K=3 TO 4#K 

1315 FOR JBi1 TO 4 

1320 LET P#P+X(M(I-J)) 

1325 NEXT J 

1330 NEXT I 

1345 IF P<4 THEN 1390 

1350 IF P<S THEN 1400 

1355 IF P<9 THEN 1390 

1360 IF P<1@ THEN 1400 

1390 NEXT K 

1395 GOSUB 1800 

1396 GOTO 36” 

1400 LET Se1/8 

1405 FOR I=4#Ke3 TO 4#K 

1410 GOTO 1703 

1415 NEXT I 

1420 LET Sad 

1425 GOTO 1405 

1520 DATA 1,49,52,4,13,61,64,16722,39,23,38,26,42,27,43 
LSLODATA 1424374755677 78 49418411412 413414015,16417,18 419,29 
1520 DATA 21,22,23,24,25,26,27,28,29,30,31732,33,34,35, 36,37,38 
1521 DATA 39,40,41442443,44,45 746447748749 ,50,51,52,53,54755756 
1522 DATA 57,58,59,60,61,62,63,64 

LSZ3DATAL 917433649956 21¢37 653,97 25741457513 429445, 61 
1524 DATA 2,18434,566,22738,54710, 26742758414) 30,46,62 
AS25DATA 3,19,35,5147723,39,55411,27,43,59,15,31,47,63 
1527 DATA 4/20736,52,8,24,40,56+12,28144,60,16,32,48,64 
1529 DATA 19599¢136175214525529433437441745749,53,57761 
1532 DATA 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62 
1534 DATA 3467140156199 23,276317359397 43547751555 759,63 
1536 DATA4,8,12,16520,24,28,32,36,40,44,48,52,56,60,64 
1538 DATA1,6,11,16+17,22,27,32,33,38,43,48,49,54,59,64 
1540 DATA 13,10)744¢29726423,20745 7427394 36761758755752 
1542 DATAL,21741,61,2422442,6253723,43,6354)24,44,64 
LS44DATA 49,37725,13,50,38,26414,51,39,27,15 452440, 28,16 
L546DATA 1,18735-5295422439, 56797264434 60,134 30747764 
1548DATA 49,34,19,4,53,38,23,8,57,42,27,12,61, 46,34 ,16 
ASSODATA 1,22,43,64,16,27,38,49,4,23,42,61,13,26,39,52 
1690 FOR Jei TO 4 

1605 IF X(MCI,J))<>1/8 THEN 1659 

1610 LET X(M(I,J))85 


1615 IF L(I)<S THEN 1625 

162@ PRINT "LET'S SEE YOU GET OUT OF THIS: MACHINE MOVES TO") 
1622 GOTO 1626 

1625 PRINT "YOU FOX, JUST IN THE NICK OF TIME, MACHINE MOVES TO") 


1626 LET M&M(I,J) 

1630 GOSUB 10090 

1642 GOTO 70 

1650 NEXT J 

166@ PRINT "MACHINE CONCEDES THIS GAME," 
1665 GoTo S40 

1700 LET se1/8 

1703 IF TeINT(I/4)#4>1 THEN 1715 
1705 LET Asi 

171@ GOTO 1720 

1715 LET As2 

1720 FOR JSA TO SeA STEP 524A 
1725 IF X(M(IvJ))8S THEN 1750 
1730 NEXT J 

1735 GOTO 1415 

1750 LET X(MCI,J))85 

1755 LET MaM(IrJ) 

1760 PRINT "MACHINE TAKES" 
1770 GOSUB 1000 

1780 GOTO 70 

1800 FOR Imi TO 64 

1810 IF X(1I)<>1/8 THEN 1850 
1815 LET X(1)8@ 

185@ NEXT I 

1862 RETURN 

2000 END 


SAMPLE RUN 


QUBIC 15:16 27-APR-7x 


DO YOU WANT INSTRUCTIONS ?YES 

THE GAME 1S TIC-TAC-TGE INA 4X 4% 4 CUBE 

ERCH MOVE IS INDICATED EY A = DIGIT NUMBER, WITH EACH 

DIGIT BETWEEN 1 AND 4 INCLUSIVE. THE DIGITS INDICATE THE 
LEVEL, COLUMN, AND ROW, RESPECTIVELY, OF THE OCCUPIED FLACE 
DO YOU WANT TO MOVE FIRST ?YES 


YOUR MOVE ?222 

MACHINE MOVES TO 1414 

YOUR MOVE 72144 

MACHINE MOVES TO 4144 

YOUR MOWE ?233 

NICE TRY MACHINE MOYES TO 244 
YOUR MOVE 7122 

MACHINE MOVES TO 414 

YOUR MOVE ?422 

NICE TRY MACHINE MOVES Tao z22 
YOUR MOVE ?424 

MACHINE MOVES TO 114 

YOUR MOVE ?32 

NICE TRY MACHINE MOVES TO 424 
YOUR MOVE ?41x 

NICE TRY MACHINE MOVES TO 14% 
YOUR MOVE ?444 

MACHINE MOWES TO 144 

YOUR MOWE 7142 

MACHINE TAKES 112 

YOUR MOVE 7142 

MACHINE TAKES 223 

YOUR MOVE 7144 

THAT SQUARE IS USED, TRY AGAIN 


YOUR MOVE ?332 

MACHINE MOVES TO 444 

YOUR MOVE ?244 

LET’S SEE YOU GET GUT OF THIS: MACHINE MOVES TO 424 
YOUR MOVE ?434 

MACHINE MOVES TO 124 , AND WINS AS FOLLOWS 

421-322 223 124 

DO YOU WANT TO TRY ANOTHER GAME ?Y'ES 

DO YOU WANT TO MOVE FIRST 7YES 


YOUR MOVE ?141 

MACHINE MOVES TO 444 

YOUR MOVE ?144 

MACHINE MOVES TO 4144 

YOUR MOVE ?444 

MACHINE MOVES TO 144 

YOUR MOVE 7124 

NICE TRY MACHINE MOVES TO 424 

YOUR MOVE ?224 

NICE TRY MACHINE MOVES To z34 

YOUR MOVE ?344 

NICE TRY MACHINE MOVES TO 244 

YOUR MOVE 7444 

MACHINE MOVES TO 144 

YOUR MOVE ?222 

NICE TRY MACHINE MOVES TO 33= 

YOUR MOVE 7243 

MACHINE TAKES 232 

YOUR MOVE ?434 

LET’S SEE YOU GET OUT GF THIS: MACHINE MOVES TO 214 
YOUR MOVE ?314 

MACHINE MOVES TO 223 , AND WINS AS FOLLOWS 
241 232 225 (2i4 

DO YOU WANT TO TRY ANOTHER GAME 7NO 
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UEEN 


Description 


ONE CHESS QUEEN 


This game is based on the permissible moves of the chess queen-- 
i.e., along any vertical, horizontal, or diagonal. In this game, 
the queen can only move to the left, down, and diagonally down 
to the left. 


The object of the game is to place the queen (one only) in the 
lower left-hand square (no. 150), by alternating moves between 
you and the computer. The one to place the queen there wins. 


You go first and place the queen in any one of the squares on 
the top row or the right-hand column. That is your first move. 
The computer is beatable, but it takes some figuring. See if 
you can devise a winning strategy. 


Source 


Source and author are totally unknown. 
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PROGRAM LISTING 


1 REM PLAYS QUEEN GAME, 3510 IF M ® 158 THEN 3570 
2 PRINT "DO YOU WISH INSTRUCTIONS") 3520 IF M = 127 THEN 3570 
9 RANDOMIZE 3530 IF M = 126 THEN 3570 
1®@ DIM S(64) 3540 IF M # 78 THEN 3570 
{1 FOR I = 1 TO 64 3550 IF M = 73 THEN 3570 
12 READ S(I) 3560 RETURN 
13 NEXT I 3570 LET C = 1 
PSRDATA Oe 7A G87 She: 449" 34e 2%, Ly 3580 GO TO 3869 
15 DATA 92, 825 72, 62, 52, 42, 32, 22 3998 REM ANOTHER GAME? 
16 DATA 103, 93, 83, 73, 63, 53, 43, 33 4090 PRINT "ANYONE ELSE CARE TO TRY"} 
17 DATA 114, 104, 94, 84, 74, 64, 54, 44 4020 INPUT as 
18 DATA 125, 115, 105, 95> 85, 75, 65> 55 4030 PRINT 
19 DATA 136, 126, 116, 106, 96, 86, 76, 66 4040 IF Qse"yYEs" THENIOO 
20 DATA 147, 137, 127, 117, 107, 97, 87, 177 4042 IF Q6e"NO" THEN 4050 
21 DATA 158, 148, 138, 128, 118, 108, 98, 988 4045 PRINT "INCORRECT ANSWER, PLEASE TYPE 'YES! OR INO!"y 
22 INPUT Ws 4946 GOTO 4020 
23 IF WS=#"NO" THEN 30 4050 PRINT "OK = » THANKS AGAIN," 
24 IF WSa#"YES" THEN 28 406% STOP 
25 PRINT "INCORRECT ANSWER, PLEASE TYPE '¥ES! OR INO!" 4990 REM DIRECTIONS, ETC, » o 
26 GOTO 22 §002 PRINT "WE ARE GOING TO PLAY A GAME BASED ON ONE OF THE CHESS MOVES," 
28 GOSUB §800 5010 PRINT "OUR QUEEN WILL BE ABLE TO MOVE ONLY TO THE LEFT," 
29 GO TO 180 5020 PRINT "DOWN, AND DIAGONALLY DOWN TO THE LEFT," 
30 GOSUB 51590 5030 PRINT 
92 REM ERROR CHECKS, 5040 PRINT "THE OBJECT OF THE GAME IS TO PLACE THE QUEEN IN THE" 
106 PRINT "WHERE WOULD YOU LIKE TO START") 5050 PRINT "LOWER LEFT=HAND SQUARE BY ALTERNATING MOVES BETWEEN" 
110 INPUT Mi $06@ PRINT "YOU AND THE MACHINE/ THE FIRST ONE TO PLACE THE QUEEN" 
115 IF Mi = @ THEN 232 5070 PRINT "THERE, WINS," 
120 LET Ti = INT(M1/1@) 5080 PRINT 
13@ LET U1 = Mi = 104T1 5099 PRINT "YOU GO FIRST AND PLACE THE QUEEN IN ANY ONE OF THE" 
140 IF ui = 1 THEN 200 5100 PRINT "SQUARES ON THE TOP ROW OR THE RIGHT*HAND COLUMN," 
150 IF U1 8 Ti THEN 200 $11@ PRINT "THAT WILL BE YOUR FIRST MOVE," 
16@ PRINT "PLEASE READ THE DIRECTIONS AGAIN," $120 PRINT "WE WILL THEN ALTERNATE MOVES," 
165 PRINT "YOU HAVE BEGUN ILLEGALLY," 5130 PRINT "YOU MAY FORFEIT AT ANY TIME BY TYPING '¥! AS YOUR MOVE," 
170 PRINT 5140 PRINT "BE SURE TO PUSH THE '!RETURN! KEY AFTER EACH RESPONSE," 
182 GO TO 100 5150 PRINT 
202 GO SUB 2000 5160 FOR A = @ TO 7 
210 PRINT "MACHINE MOVES TO SQUARE" 5170 FOR B = 1 TO B 
215 IF M ® 158 THEN 3400 5180 LET I = 8#A + B 
22@ PRINT "WHAT IS YOUR MOVE"y 5190 PRINT SCI)} 
230 INPUT M1 5200 NEXT B 
231 IF Mi <> @ THEN 239 5210 PRINT 
232 PRINT 5220 PRINT 
233 PRINT "IT LOOKS LIKE I HAVE WON BY FORFEIT," 5225 PRINT 
234 PRINT 5230 NEXT A 
235 GO TO 4000 5240 PRINT 
239 IF Mi <= M THEN 3200 5250 RETURN 
240 LET Ti © INT(M1/10) 99999 END 
250 LET U1 = Mi = 1O*T1 
260 LET P ® UL = U SAMPLE RUN 
ae EA eee pi te 300 DO YOU WISH INSTRUCTIONS 74'ES 
‘TLeqtie T WE ARE GOING TO FLAY A GAME BASED ON ONE OF THE CHESS MOVES 
290 IF L <® @ THEN 3200 OUR QUEEN WILL BE ABLE To MOvWE ONLY To THE LEFT, 
295 GO TO 200 DOWN, AND DIAGONALLY DOWN TO THE LEFT. 
300 If T1 = T <> P THEN 320 
310 GO TO 290 THE OBJECT OF THE GAME 1S TO FLACE THE GIEEN IN THE 
320 IF Ti = T <> 2P THEN 3290 LOWER LEFT-HAND SGUARE BY ALTERNATING MOVES BETWEEN 
3302 GO TO 200 YOU AND THE MACHINE’ THE FIRST ONE TO PLAGE THE GLIEEN 
1990 REM LOCATE MOVE FOR MACHINE, THERE, WINS. 


2000 IF M1 = 414 THEN 2180 


2010 IF Mi = 44 THEN 2180 YOU GO FIRST ANC PLACE THE GUEEN IN ANS ONE CIF THE 
2020 IF M1 = 73 THEN 2180 SQUARES ON THE TOF ROW OR THE RIGHT-HAND COLUMN 

2030 IF Mi = 75 THEN 2180 THAT WILL BE YOUR FIRST MOVE 

2040 IF Mi = 126 THEN 2180 WE WILL THEN ALTERNATE MOVES 

2050 IF M1 = 127 THEN 2188 YOU MAY FORFEIT AT ANY TIME BY TYFING “@ AS YOUR MOVE 
2060 IF Mi © 158 THEN 3300 BE SURE TO PUSH THE ‘RETURN’ KEY AFTER EACH RESPONSE 
2065 LET C = 0 

2070 FOR K a 7 TO 1 STEP #1 Ot ei 61, 354 saa) esd oa 

2080 LET U 2 U1 

2090 LET T = T1 + K 

2102 GO SUB 35008 2S en oe ae ESOS. 


2105 IF C = 1 THEN 2160 

2110 LET U = U + K 

2128 GO SUB 3500 2655 (95 (835 72 ex OSS aes 
2125 IF C © 1 THEN 2160 

2130 LET T2T + K 


2140 GO SUB 3500 444 104 94 84 74 64 54 44 
2145 IF C = 4 THEN 2160 

2150 NEXT K 

2155 GO TO 2180 125 4125 465 95 65 75 65 55 


2169 LET C = @ 

2170 RETURN 

2189 GO sUB 3000 136 126 116 186 36 S6 76 66 
2190 RETURN 

2990 REM RANDOM MOVE, 

3000 LET z=RND 14? 437 4127 447 107 97 S87 77 
3010 IF Z2 > ,6 THEN 3110 

3020 IF Z > ,3 THEN 3070 

3030 LET U = U1 156 146 4136 128 4118 106 ge se 
3040 LET T=T1 + 1 

3050 LET M = 10*T + 

3060 RETURN 

3070 LET u ® U1 + 1 
3080 LET T = T1 + 2 
BOSCEUET INDE 1087 + NICE TRY, BUT IT LOOKS LIKE I HAVE WON 
3100 RETURN THANKS FOR FLAYING 

3119 LET U 2 UL 4 1 

3120 LET T= T1 +1 
3130 LET M = 19#7T + U 


WHERE WOULD YOU LIKE TO START 784 
MACHINE MOVES TO SQUARE 158 


ANYONE ELSE CARE TO TRY ?YES 


3140 RETURN WHERE WOULD YOU! LIKE TO START 7456 
3190 REM ILLEGAL MOVE MESSAGE, PLEASE READ THE DIRECTIONS AGAIN 
3200 PRINT YOU HAVE BEGUN ILLEGALLY 

3210 PRINT "YOU CHEAT, y « TRY AGAIN") 

3220 GO TO 230 WHERE WOULD YOU LIKE TO START 744 
3290 REM PLAYER WINS. MACHINE MOVES TO SQUARE 55 

3300 PRINT WHAT 1S YOUR MOVE 765 

3310 PRINT "CONGRATULATIONS 4.2." MACHINE MOVES TC S 

3320 PRINT WHAT IS YOUR MOVE 786 

3330 PRINT "YOU HAVE WON**VERY WELL PLAYED," MACHINE MOVES TO SQUARE 126 

3340 PRINT "IT LOOKS LIKE I HAVE MET MY MATCH." WHAT IS YOUR MOVE 74148 

3350 PRINT "THANKS FOR PLAYINGe#I CAN'T WIN ALL THE TIME," MACHINE MOVES TO SQUARE 15S 

3369 PRINT 

3372 GO TO 4000 NICE TRY, BUT IT LOOKS LIKE I HAVE WON 
3390 KEM MACHINE WINS, ANE S. EORIPL AGING 

3400 PRINT 

3410 PRINT "NICE TRY, BUT IT LOOKS LIKE I HAVE WON," ANUONE ELSES CARE TO) TRY. ZNO 

3420 PRINT "THANKS FOR PLAYING," 

3430 PRINT OK - - THANKS AGAIN 

3442 GO TO 4900 

3490 REM TEST FOR MACHINE MOVE, 179 


3500 LET M @ 10*T + U 


{ 
ORDER A LIST OF NUMBERS 


REVRSE 


Description 


The game of REVERSE requires you to arrange a list of numbers 
in numerical order from left to right. To move, you tell the 
computer how many numbers (counting from the left) to reverse. 
For example, if the current ier: 


Dias 3 eA. eae Gad 37 HO 9 

and you reverse 4, the result will be: 
Boe 4. 53 2 OR IRS Ge (eG: PaO 

Now if you reverse 5, you win: 


There are many ways to beat the game, but approaches tend to be 
either algorithmic or heuristic. The game thus offers the player 
a chance to play with these concepts in a practical (rather, than 
theoretical) context. 


An algorithmic approach guarantees a solution in a predictable 
number of moves, given the number of items in ‘the Tistw< <or 
example, one method guarantees a solution in 2N - 3 moves when 
the list contains N numbers. The essence of an algorithmic 
approach is that you know in advance what your next move will 
be. One could easily program a computer to do this. 


A heuristic approach takes advantage of "partial orderings" in 
the list at any moment. Using this type of approach, your next 
move is dependent on the way the list currently appears. This 
way of solving the problem does not guarantee a solution in a 
predictable number of moves, but if you are lucky and clever, 
you may come out ahead of the algorithmic solutions. One could 
not so easily program this method. 


In practice, many players adopt a "mixed" strategy, with both 
algorithmic and heuristic features. Is this better than either 
“pure stracvegy? 


Program Author 


Bob Albrecht 
People's Computer Co. 
Menlo Park, CA 94025 
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PROGRAM LISTING 


196 PRINTSPRINT “REVERSE -- A GAME OF SKILL“SPRINT 
126 RANDOMIZE 
4238 DIM AC2H) 
146 REM *#* N=NUMEBER CIF NUMBERS 
158 N=9 
166 INPUT “OO YOU WANT THE RULES (YES OR NOD"; AF 
480 IF AS="NO" THEN 244 
196 GOSUE 714 
290 REM *** MAKE A RANDOM LIST Fi¢41) TO ACND 
210 ACLI=INTCON-4)*R ND +E 
226 FOR K=2 TO N 
238 ACKO=INTON*RND 44 
246 FOR J=1 Ta K-4 
256 IF ACKI=ACJ> THEN 22a 
260 NEXT JNNEXT K 
286 REM wee PRINT ORIGNIAL LIST AND START GAME 
296 PRINTSFRINT “HERE WE GO... THE LIST 18:" 
316 T=4 
220 GOSUE 614 
INPUT "HOW MANS SHALL I REVERSE"; & 
IF R=8 THEN Som 
IF R¢=N THEN =o 
379 PRINT "“GQOPS! TOO MANY - I CAN REVERSE AT MOST"NS\GOTO =ze 
299 T=T+1 
408 REM +44 REVERSE R NUMBERS ANG PRINT NEN LIST 
TO INTCR?2) : 


458 NERT K 
468 GOSUE 616 
479 REM +e CHECK FOR A WIN 


489 FOR K 
496 1F Ax 
598 NEXT K 

S16 PRINT "YOU WON IT IN"T"MOVES !!! "SPRINT 

S36 INFUT "TRY AGAIN CYES OR NOD"; AF 

556 TF AS="ES" THEN 216 

S66 PRINTSPRINT "CO. K. HOPE YOU HAC FUN! IS GOTO sos 
668 REM eke SUBROUTINE TO PRINT LIST 

610 PRINTSFOR K=41 TO NSPRINT ACKO3 SNEXT K 
659 PRINTSFRINTS RETURN 

POG REM #e* SUBROUTINE TO PRINT THE RULES 
vie PRINTSPRINT "THIS IS THE GAME OF “ REVERSE’. TO WIN, ALL YOU HAVE" 
rea PRINT "TO DO If ARRANGE A LIST OF NUMBERS ¢€4 THROUGH"N")>" 

PSG PRINT "IN NUMERICAL ORDER FROM LEFT TO RIGHT. TO MOE, Yo" 

P4G PRINT “TELL ME HOW MANY NUMBERS CCOUNTING FROM THE LEFT) Th" 

P56 PRINT "REVERSE. FOR EXAMPLE. IF THE CURRENT LIST If:" 
P6E"PRINTSPRINT “2 3 4 5 4 6 7 gu 

77S PRINTSFRINT “AND YOU REVER 
786 PRINTSNPRINT "S 4 3 24 6 7 
P96 PRINTSPRINT "NOW, IF SOL REVERSE S, YO! MIN!" 

8@0 FRINTSPRINT] "2 of eted S56 os SONNE RIMT 

$18 PRINT "NO COUET WOOL WILL LIKE THIS GAME OF SKILL, ELIT" 

$26 PRINT “IF YOU WANT TO @UIT, REVERSE @ (ZERO). "SPRINTS RETURN 
999 END 


1 TON 
2<>K THEN 234 


Paaehiblee fees TCL CE Eee 


READY 
SAMPLE RUN 
REVERSE -- A GAME OF SKILL 


DO YOU WANT THE RULES (YES OR NOD? YES 


THIS IS THE GAME OF “REVERSE’. TO WIN, ALL YO) HAVE 


TO DO IS ARRANGE A LIST OF NUMBERS (4 THROUGH 2 > 
IN NUMERICAL ORDER FROM LEFT TO RIGHT. TO MOVE, YOu 
TELL ME HOW MANY NUMBERS (COUNTING FROM THE LEFT) TO 
REVERSE. FOR EXAMPLE, IF THE CURRENT LIST IS: 
214 5) 167 1S 2 
AND YOU REVERSE 4, THE RESULT WILL BE: 
Gd s ele e ¢ 6) 9 
NOW, IF YOU REVERSE 5S, WOU WIN! 
{2-394 6 2 So 
NO DOUBT YOU WILL LIKE THIS GAME OF SKILL, ELIT 
IF YOU WANT TO @UIT, REVERSE & (ZERO) 
HERES MEVOG a eHe CESS. 
Te Ai Bd eB FE 
HOW MANY SHALL I REVERSE? & 
i 3 belie OS AS OS 


HOW MANY SHALL I REVERSE? & 


io 


Saree gS 4G ed 
HOW MANY SHALL I REVERSE? 3 
Juels eGht tee ire 10. te 
HOW MANY SHALL I REVERSE? 2 
tee ek ate So re OS 
HOW MANY SHALL I REVERSE? & 
Sai Oat Gee sueee, i 9 
HOW MANY SHALL I REVERSE? @ 


fog so ee Ce Tee en 


HOW 


TRY 


MANY 


MANY 


By AS 


MANY 


ge ct 


MANY 


2S 


MANY 


aS 


MANY 


5 4 


MANY 


8 


ie) 


hoe te 


MANY 


5 4 


MANY 


SHALL I REVERSE? 4 
Tacs 4° 9) 7 1s 
SHALL I REVERSE? 6 
Le eee 
SHALL I REVERSE? 2 
De ir a Pett ante 
SHALL I REVERSE? & 
ee ae ee 
SHALL I REVERSE? 2 
Se See ee 
SHALL I REVERSE? & 
eee eee S ty, 
SHALL I REVERSE? = 
ee eS ere 
SHALL I REVERSE? = 
Tee Fe oe ee 
SHALL I REVERSE? 6 
Oe Be hoe yen es 
SHALL I REVERSE? = 
a Niet: Se Mee Mi 
SHALL I REVERSE? 6 
ae Ss ek ta af 
SHALL I REVERSE? = 


ee eS ese 


w 


Ls 
fh 


SHALE IT REVERSE? oS 
See se eee 
SHALL I REVERSE? = 
Le ee eee i 


SHALL I REVERSE? 3 


wt 
th 
BE 
~“ 


& @g 


SHALL I REVERSE? 6 


Ae Ge if to ae 


WON IT IN 2@ MOVES !!! 


AGAIN 


CYES OR NOOO? YES 


HERE WE GO = WHEVELS Gals 


g 


HOW 


HOW 


fo 


&. 6 


MANY 


4 2 


MANY 


24 


MANY 


MANY 


1 $5 


MANY 


MANY 


Cmenke 


MANY 


[so et 


MANY 


WwW 


4 


MANY 


4 3 


MANY 


2S 


BRN TS CA ME 
SHALL I REVERSE? & 
et CSS 
SHALE TI REVERSES 4 
Deg th eee Came es, eet 
SHALL I REVERSE? 2 
S waeed 1ee BUS. 
SHALL I REVERSE? 6 
A FEA ELS RIAD 
SHALL I REVERSE? 2 
42 YS 2 Ge Ss 3S 
SHALL I REVERSE? 6 


Sime eee y mamas £e 


‘o 


SHALL I REVERSE? 7 


Se tee 


co 
oo 


SHALL I REVERSE? 2 
Se, a at = ha 
SHALL I REVERSE? 7 
Yo Sm Toga Se ee 
SHALE I REVERSE? 4, 
eae as hoe ie OLE an! 
SHALL I REVERSE? 5 


4 Fo Ga teare, 39 


WON IT IN 11 MOVES !!! 


ROCKET... AN APOLLO CAPSULE ON THE MOON 


Description 


ROCKET, known also as LUNAR, LEM, and APOLLO, is by far and away 
the single most popular computer game. It exists in versions 

that start you anywhere from 500 feet to 200 miles above the 

moon, or other planets, too. Some allow the control of directional 
stabilization rockets and/or the retro rocket. The three versions 
presented here appear to be the most popular of the many varia- 
trons. 


ROCKET... In this program, you set the burn rate.of the retro 
rockets (pounds of fuel per second) every 10 seconds and attempt 
to achieve a soft landing on the moon. 200 lbs/sec really puts 
the brakes Oon,.and 0 lbs/sec 1S free falls” Ignition, oecurs at 

8 lbs/sec, so do not use burn rates between 1 and 7 ibsfsec. 

To make the landing more of a challenge, but more closely ap- 
proximate the real Apollo LEM capsule, you should make the 
aveitablewtuel vatuthe start -(N) equal’ to 16,0007 Ibs, vand- ene 
weight of the capsule (M) equal to 32,500 lbs in Statement 15. 


Some computers object to the series expansion calculations in 
Statements 91 and 94 (as you near the lunar surface, these 
numbers get very small). If yours does, substitute the expanded 
form--for the expansion in Statement 91: 


SO lO 172702 (U/340*.(1/47075)'))) } 
You should be able to figure the other one out yourself. 


ROCKT1. In this version, you start 500 feet above the lunar 
surface and control the burn rate in l-second bursts. Each unit 
of fuel slows your descent by 1 ft/sec. The maximum thrust of 
your engine is 30 ft/sec/sec. 


ROCKT2. This is the most comprehensive of the three versions 
and permits you to control the time interval of firing, the 
thrust, and the attitude angle. It also allows you to work in 
the metric or English system of measurement. The instructions 


in the program dialog are very complete, so you shouldn't have 
any trouble. 


In most versions Of ROCKET, the temptation is to slow up too 
soon and then have no fuel left for the lower part of the 
journey. This, of course, is disasterous (as you will find out 
when you land your own capsule)! 
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Source 


To put all the conflicting stories to rest, we can say with 
confidence that ROCKET was originally written in FOCAL by a 
Lexington High School student back in the mid 60's. 


ROCKET ROCKIT LL: 
Jim Storer Eric Peters 
Lexington High School Digital Equipment Corp. 
Lexington, MA 02173 Maynard, MA 01754 
ROCKT2 ;: 


William Labaree II 
621 Oakley Place 
Alexandria, VA 22302 


NS 


© 1958 by Editorial Projects, Inc. 
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ROCKET PROGRAM LISTING 


RO 


wewWwh 


ww Ow 


18 
ait 
Ts 
45 
24 
=o 
32 
35 
38 
44 
si 
52 
53 
56 
5? 
53 
59 
58 
64 
Con’ 
fs 
B34 
83 
on 
34 
35 
93 


CKET EDUSYSTEM 36 


PRINT "THIS IS A COMPUTER SIMULATION OF AN APOLLO LUNAR" 
PRINT “LANDING CAPSULE. "\SPRINTSPRINT 
PRINT "THE ON-BOARD COMPUTER HAS FAILED (IT WASN’T MADE By" 
PRINT "DIGITAL? SO YOU HAYE TO LAND THE CAPSULE MANUALLY" 
PRINTSPRINT "SET BURN RATE OF RETRO ROCKETS TO ANY WALUE BETWEEN" 
PRINT "@ (FREE FALL)? AND 200 (MAXIMUM BURN) POUNDS PER SECOND" 
PRINT "SET NEW BURN RATE EVERY 14 SECONDS. "SPRINT 
PRINT “CAPSULE WEIGHT 22.508 LES: FUEL WEIGHT 16. 5@a LBS" 
PRINTSPRINTSPRINT "GOOD LUCK!!!" 
L=6 
PRINTSPRINT "SEC". "MI + FT". "MPH", “LE FUEL". "BURN RATE"SPRINT 
A=120NY=1\M=S2GGONN=16580G=1E-2N2=1, 
PRINT L. INTCAD; INTC S280%(A-INTCAD)) #4. M-N. SINPUT KN T=18 
IF M-N<. G4 THEN 44NIF T<. 41 THEN 24 KK THEN 25 
S=tM-N)D CK 
GOSUE 94N\IF I<=@ THEN 7ANIF Y<=@ THEN ZSN1F J<@ THEN St 
GOSUB 64\GOTO S4 
PRINT "FUEL QUT AT"L"SEC"SS=(-¥4S0R (YRY+2eA#G ))/GSWEY+G"SSL=L45 
W=26GG+YSPRINT"ON MOON AT"L > = IMPRCT YELOCITY" W "MPH" 
IF W4.2 THEN SZNPRINT "PERFECT LANDING! (LUCKY) "SGOT 
IF WD4G THEN S6é\PRINT "GOOD LANDING (COULD BE BETTER) "GOTO 95 
IF W>68 THEN S@ SPRINT "CRAFT DAMAGE..... “RE STRANDED HERE UNTIL" 
PRINT "A RESCUE PARTY ARRIVES. HOPE YOU HAYE ENOUGH OXGEN! "GOTO 35 
PRINT "SORRY. BUT THERE WERE NO SURYIYOR COU BEE Tht” 
PRINT "IN FACT. YOU BLASTED A NEW LUNAR MATER "“bWs. 2777"°FT DEEP" 
GOTO 35 
L=L+S\T=T-SSM=MN-S#KSA=1TSV=EINRETURN 
IF S<SE-Z THEN SANDH=V+SOR Ca¥ t See CG-ZHK MDDS 
GOSUB 94NGOSUB S41\GO0TO 74 
W=C4-M#G 2 C24K D2 Z2NSHMAaN SC Z4K se CHESOR CHF 42) +. BSS 
IF I= THEN 7AiNGOSUB 
B=SHK /MNJHV4+GeSt+ 24% (-H- RR 2e— 
T=A-G4S4#S/2-VHS+ 245+ CR 76+" I 4 /2AFO7S EA) RETURN 
PRINTSPRINTSPRINTSPRINT 
END 


HAD 


ISUB 94 
GOTO S41 


SAMPLE RUN 


RO 


TH 


CKET EDUSYSTEM 34 


1S 15 AR COMPUTER SIMULATION OF AN APOLLO LUNAR 


LANDING CAPSULE 


THE ON-BOARD COMPUTER HAS FAILED (IT WASN’T MADE Bt 
DIGITAL)? 50 YOU HAYE TO LAND THE CAPSULE MANUALLY 


SET BURN RATE OF RETRO ROCKETS TO ANY YALUE BETWEEN 


4 
SE 


SPREE FALL? AND 244 (MAXIMUM BURN) POUNDS PER SECOND 
T NEW BURN RATE EVERY 14 SECONDS. 


CRPSULE WEIGHT 32.56@ LBS; FUEL WEIGHT 16.584 LES 


GOOD LUCK!!! 


SEC 


8 


16 


2 
Ks 
4 
e 


68 
74 
368 


&) 
4 
4 
4 
uf 
i 
4 
at 
a 


138 
198 
289 
218 
228 
238 


OW 


=z 
m 
+ 
nn 
=f 
= 
u 
2S 


LB FUEL “ BURN RATE 


fey 
fo 
a 


m% 


be 
pou 
so 
une 
o 
- 
on 


8 
a 
8 
8 


93 
39 
re) 
63 
53 
47 
27 


BEEBE EEEEBE 


ci) 

48 
19 
26 
38 
46 
58 
68 
79 


VPI Tres oo S 


Wea 
ta bed bet 


tal al 


PROM OEE 


2 
il 
4 
ii 
a 
a 
6 
a 
a 
8 
F) 
a 
4 


NEE RM AWE RETRY 


Fi bo 
Wh OO UN 


MOON AT 233.183 SEC — IMPACT v 


GOOD LANDING (COULD BE BETTER) 


TRY AGAIN??? 
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ROCKT1 PROGRAM LISTING 


LIST 

ROCKT1 2:27 PM BE-MAY-73 

78 PRINT "LUNAR LANDING SIMULATION" 

8@ PRINT "----- ------- -~--------- "SPRINT 


199 INPUT "CO YOU WANT INSTRUCTIONS (¥ES OR NO)“: Re 

428 IF AS="NO" THEN Z96 

4168 PRINT 

299 PRINT "WOU ARE LANDING ON THE MOON AND HAYE TAKEN OVER MANUAL" 

246 PRINT "CONTROL 504 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE AM 
228 PRINT "DOWNWARD VELOCITY OF 5@ FT/VSEC. 4120 UNITS OF FUEL REMAIN. * 
225 PRINT ; 
230 PRINT "HERE ARE THE RULES THAT GOYERN YOUR 
246 PRINT "(41) AFTER EACH SECOND. THE HEIGHT. 


SPACE YEHICLE:* 
ELOCITY. AND REMAINING" 


Poe PRINT “ FUEL WILL BE REPORTED. " 

266 PRINT "(2) AFTER THE REPORT. A “?° WILL BE TYFED. ENTER THE" 

27@ PRINT * NUMBER OF UNITS OF FUEL YOU WISH TO BURN CURING THE" 
289 PRINT “ NEXT SECOND. EACH UNIT OF FUEL WILL SLOW YOUR DESCENT" 
290 PRINT ” BYE hset. = 

316 PRINT "€3) THE MAXIMUM THRUST OF YOUR ENGINE IS 24 FTIYSEC/SEC oR® 
328 PRINT " 34 UNITS OF FUEL PER SECOND. " 

338 PRINT "C4) WHEN YOU CONTACT THE LUNAR SURFACE. YOUR DESCENT ENGINE” 
340 PRINT " WILL AUTOMATICALLY CUT OFF AND YoU WILL EE GIVEN AR" 

356 PRINT " REPORT OF YOUR LANDING SPEED AND REMAINING FUEL. ” 

366 PRINT "€5) IF YOU RUN OWT OF FUEL, THE “ WILL NO LONGER APPEAR, ” 
276 PRINT " BUT YOU SECOND By SECOND REPORT WILL CONTINUE UNTIL" 
336 PRINT "“ YOU CONTACT THE LUNAR SURFACE. "SPRINT 

396 PRINT “BEGINNING LANDING PROCEDURE... .. "SPRINT 

416 PRINT "GOOD PUM ce ee et) 

426 PRINTSPRINT 

449 PRINT "SEC FEET SPEED FUEL PLOT OF CISTANCE" 

454 PRINT 


455 T=G6NH=S58GNV=5O\F=1248 

490 PRINT 73 TRB(4)i Hs TABCL2)3 ¥i TAB C24) Fs TABC2S): "1" TABCH S12 
588 INPUT E 

516 IF 6<6 THEN 6548 

526 IF B>26 THEN é 
536 IF B>F THEN B=F 
546 Y1I=V-B+5 

566 F=F-B 

S?6@ H=H-. S#cv+a) 
58@ IF Hé 
596 T=T+41 

688 Y=v4 

616 IF F>6 THEN 434 

615 IF B= THEN 644 

626 PRINT “#44 OUT OF FUEL aaa” 

64@ PRINT Ti TABC4)3 Hs TABC1295 Ws TAB C 2895 Fs TABC S995 "IG TRB CHL 2429) Ne" 
5656 B=65 

666 GOTO 546 

678 PRINT “+++ CONTACT +o" 

6988 H=H+. S#cv+¥4) 

696 IF B=5 THEN 72a 

PGS D=(-V+SAR (Va +H* (18-246) 705-6) 

716 GOTO 736 

726 D=H/Y 

73H VA=¥+(5-B)+0 

768 PRINT "TOUCHDOWN AT"; T+0s "SECONDS, " 


pe 


778 PRINT “LANDING YELOCITY ="s'45 "FT“SEC" 

736 PRINT Fi; "UNITS OF FUEL REMAINING. " 

796 IF V4<>8 THEN 316 

865 PRINT “CONGRATULATIONS! ! A PERFECT LANCING! " 
805 PRINT "YOUR LICENSE WILL BE RENEWECD....... Beet 


814 IF ABS¢¥41) THEN 344 

826 PRINT "*+###+ SORRY. BUT YOU BLEW IT!!!!" 

836 PRINT "APPROPRIATE CONCPOLENCES WILL BE SENT TO YOUR NEXT OF KIN. " 
849 PRINTSPRINTSPRINT : 
858 INPUT "ANOTHER MIS 
876 IF AS=""ES" THEN 396 

838 PRINTSPRINT “CONTROL OUT. "SPRINT 
999 END 


ON" G AS 


READY 


5 


SAMPLE RUN 


RUN 
ROCKTi 63:39 PM 
LUNAR LANDING SIMULATION 


MAY-7= 


DO YOU WANT INSTRUCTIONS (YES OR NOD? YES 


YOU ARE LANDING ON THE MOON AND HAYE TAKEN OVER MANUAL 
CONTROL 564 FEET ABOVE A GOOD LANDING SPOT. YOu HAYWE A 
DOWNWARD YELOCITY OF S@ FT/SEC. 124 UNITS OF FUEL REMAIN 


HERE ARE THE RULES THAT GOYERN YOUR SPACE YEHICLE 

<4) AFTER EACH SECOND, THE HEIGHT. WELOCITY. ANC REMAINING 
FUEL WILL BE REPORTED 

€2) AFTER THE REPORT. AR “?” WILL BE TYPED ENTER THE 
NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE 
NEXT SECOND EACH UNIT OF FUEL WILL SLOW YOUR DESCENT 
BY 4 FT/SEC. 

“%) THE MAXIMUM THRUST OF YOUR ENGINE IS 24 FT’SEC/SEC OR 
36 UNITS OF FUEL PER SECOND 

S4) WHEN YOU CONTACT THE LUNAR SURFACE. YOUR D SENT ENGINE 
WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIYEN A 
REPORT OF YOUR LANDING SPEED AND REMAINING FUEL 

£5) IF YOU RUN OUT OF FUEL. THE “7° WILL NO LONGER RPFEAR. 
BUT YOUR SECOND BY SECONC REPORT WILL CONTINUE UNTIL 
YOU CONTACT THE LUNAR SURFACE 


BEGINNING LANCING PROCEDURE 


Goo D Ue ec ts 


SEG EEBT SPEED FUEL PLOT OF DISTANCE 
iS] 5o6 58 124 I 
ae 3 
4 449 52 pbs Lig I 
2-3 
2 396 S4 114 I 
ee = 
3 344 56 eilehs I + 
Paes, 
4 234 58 188 I ‘ 
late 
5 227 36 144 I * 
2,4) 
6 173 52 92 I 4 
SS) 
? 123 45 I + 
PP A 
8 76.5 45 75 I + 
Cas) 
g 41.5 25 a) Ia te 
2 25 
16 26.5 = 25 I 
ee eh) 
ask OUT OF FUEL tek 
geil Bele) -15 U) I 
412 44 -414 4 I 
Se ae ES -5 a I 23 
a4 54 4a 4 I oH 
15e 5105 2} a I Sis 
46 44 18 a I # 
UP RE) 15 Ds] ides 
18 44 28 a I* 


ak CONTACT act 
TOUCHDOWN AT 18. 847 
LANDING VELOCITY = 22. 2373 FITS 
@ UNITS OF FUEL REMAINING 
aoe SORRY, BUT YOU BLEW IT!!!! 

APPROPRIATE CONDOLENCES WILL BE SENT TO OUR NEXT OF KIN 


ANOTHER MISSION? YES 
BEGINNING LANDING PROCEDURE 


5) 0) je UP IE tee 


Sb (ASS )) SPEEG FUEL PLOT OF DISTANCE 

9 568 5a 126 I 
25 

4 456 5a BBs Hy 

2b 

2 460 5 1416 I 

eae 

3 358 58 105 I * 
2S 

4 isis 58 164 uf + 
25 

5 256 548 a5 I + 
hb 

6 2a 5G 28 I a 

2 

i 4156 548 5 I + 

a) 

3 168 5a =) I + 
2 

iS) 58 5a 75 I 
2? 38 

46 Ske 25 45 Is 
? 36 


soto CONTACT ae 
TOUCHDOWN AT 12 SECOND 
LANDING YELOCITY = @ FTYSEC 

15 UNITS OF FUEL REMAINING 
CONGRATULATIONS! ! A PERFECT LANDING! 
YOUR LICENSE WILL BE RENENED LATER 


ROCKT2 PROGRAM LISTING 


REM LUNARI IS A INTERACTIVE GAME THAT SIMULATES A LUNAR 
REM LANDING SIMILAR TO THAT OF THE APOLLO PROGRAM. 
REM THERE IS ABSOLUTELY NO CHANCE INVOLVED. 

LET Z$="GO" 

LET Bl=1 

LET M=17-95 

LET F1=5.25 

LET N=7.5 

LET R@=926 

LET VO=1.29 

LET T= 

LET H@=60 

LET R=RO+HE 

LET A=-3,425 

LET R1=8 

LET Al=8.84361E-24 

LET R3=e 

LET A3=9 

LET M1=7.45 

LET M@=M1 


SOL Bie B= toe 


Cpa 
Lea 
LET 
PEL 
LEY 
LET 
LET 
IF Z$="YES" THEN 1158 

PRINT 

PRINT "LUNAR LANDING SIMULATION” 

PRINT 

PRINT "HAVE YOU FLOWN ON AN APOLLO/LEM MISSION SEFORE#"S 
PRINT “CYES OR NOD"3 

INPUT QS 

LECS= a yeS" eS LHEN SiSe 

IF Q$="NO” THEN 285 

PRINT “JUST ANSWER THE QUESTION, 
GOTC 168 

PRINT 

PRINT "ENTER MEASUREMENT OPTION NUMBER”; 

GOTO 225 

PRINT 

PRINT “WHICH SYSTEM OF MEASUREMENT DO YOU PREFER ?” 


i) 


Qnsz04m4 

Wore DO te 

aQereeos 
i=) 


PEEASESs 


215 PRINT ™ 1=METRIC ®=ENGLISH" 

22@ PRINT “ENTER THE APPROPRIATE NUMBER™S 

225 INPUT K 

230 PRINT 

235 IF K=@ THEN 282 

24@ IF K=1 THEN 2598 

245 SOTO 220 

256 LET Z=1852.8 

255 LET MS="METERS™ 

260 LET G3=3.6 

265 LET N$=" KILOMETERS” 

27€@ LET G5=1206 

275 GOTO 325 

288 LET Z=6062 

265 LET NS="FEET” 

290 LET G3=.592 

295 LET NS=* NeILES™ 

3@8 LET G5=Z 

3@5 IF BI=3 THEN 672 

$12 IF QS="YES" THFN 485 

S15 PRINT 

S22 PRINT ™ YOU ARE ON 4 LUNAR LANDING MISSION, AS THE PILOT OF” 
$25 PRINT “THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO” 
33@ PRINT “GIVE CERTAIN COMMANDS TO THE MODULE NAVIGATION SYSTEM,” 


335 PRINT “ THE ON BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT” 


$48 PRINT “OF INFORMATION NEEDED TO NAVIGATE THE SHIP.” 

345 PRINT 

352 PRINT 

355 PRINT “THE ATTITUDE ANGLE CALLFD FOR IS DESCRIBED AS FOLLOWS-" 
362 PRINT “+ OR -18@ DEGREES IS DIRECTLY AWAY FROM THE MOON” 

365 PRINT “-9@ DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT” 
378 PRINT “98 DEGREES IS CN A TANGENT FROM THE DIRECTION OF ORBIT™ 
375 PRINT "% (ZERO) DEGREES IS DIRECTLY TOWARD THE MOON” 

382 PRINT 

385 PRINT TAB(3€)3"-182,182" 

398 PRINT TAB(34):"t" 

S95 PRINT TABK27)3"=<9@ < =+= > 90" 

498 PRINT TAB(34)3"1" 

425 PRINT TAB(34)3"6" 

41@ PRINT TAB(23)3"<< DIRECTION OF ORBIT <<” 

415 PRINT 

42@ PRINT TAB(27);"SURFACE OF i100N” 

425 PRINT 

432 PRINT 

435 PRINT “ALL ANGLES SETWEEN -182 AND 18@ DEGREES ARE ACCEPTED.” 
442 PRINT 

44> PRDOWTOT 1 FUEL UNIT = f SEC. AT MAX. THRUST” 

450 PRINT "ANY DISCREPANCIFS ARE ACCOUNTED FOR IN THE USE OF FUEL” 
455 PRINT “FOR AN ATTITUDE CHANGE.” 

460 PRINT “AVAILABLE ENGINE POWER: @ (ZERO) AND ANY VALUE BETWEEN” 
465 PRINT “1@ AND 1@@ PERCENT” 
47@ PRINT 
475 PRINT “NEGATIVE THRUST SR TIME IS PROHIBITED” 
480 PRINT 

485 PRINT 
490 PRINT “INPUT: TIME INTERVAL IN SECONDS ------ (T)" 
495 PRINT " PERCENTAGE CF THRUST ---------- Che 

B@ PRINT “ ATTITUDE ANGLE IN DEGREES ----- CA)" 

PRINT 


avis 


AWUAMIAHDAVURBHEWWK-K- AE 


A V1 JEU PT UF UP ET Tt 
QVAQVUAVAVAQVAUYUAOVARV|AYV 


IF QS="YES" THEN 535 

PRINT “FOR EXAMPLE:” 

PRINT “T,P,A?712,65,-60" 

PRINT "TO ABORT THE MISSION AT ANY TIME, ENTER @,0,2" 
PRINT 

PRINT “OUTPUT: TOTAL TIME ELAPSED IN SECONDS” 


PRINT ™ HEIGHT IN "3% 

PRINT ™ DISTANCE FROM LANDING SITE IN "smM$ 
PREND VERTICAL VELOCITY IN "3MS3"/SECOND™ 
PRINT “ HORIZONTAL VELOCITY IN "3M$3"/SECOND” 
PRINT ” FUEL UNITS REMAINING” 

PRINT 

GOTO 678 

PRINT 


PRINT "T,P,A"s 
INPUT T1,F,P 

LET F=F/126 

IF T1<@ THEN 925 
IF T1=@ THEN 1a92 


186 


1 


ee 
Keanraae 


Se BS SS Sa 
AYU EHRWANDY—— 
PQUAUYUNVAVSPvVOS 


IF ABS(F-.05)>1 THEN 945 

IF ABS(F-.95)<.95 THEN 945 

IF ABSC(P)>180 THEN 925 

LET N=20 

IF T1<498 THEN 635 

LET N=T1/20 

LET T1=TI/N 

LET P=P*3.14159/182 

LET S=SINCP) 

LET C=cOs cP? 

LET M2=MOxT 1*F/B 

LET R3=-.5*RO*CCVE/R) T2)+R*A1¥AL 
LET A3=-2*R1*AL/R 

FOR I=! TON 

IF Ml=@ THEN 715 

LET M1=M1-W2 

IF ifl>@ THEN 725 

LET F=F*C14+I11/(2) 

LET tW2=M1+M2 

PRINT "YOU ARE OUT OF FUEL” 

LET MIL=9 

GOTO 725 

LET F=8 

LET M2=2 

LET M=! 
LET R4=R3 

LET R3=-.5*RE*CCVO/R) T2)+R¥*AI¥AL 
LET R2=(3*R3-R4)/2+.22526%F 1XF*C/M 
LET A4=A3 

LET AS=-2*R1*A1/R 


LET A2=(3*A3- 44) /24+.90526%F LXF*S/ (MRD 
4 LET 1*kT1+.5%P2*T 1*T 1 
LET R+X 


LET H@=HO+X 

LET RI=R1+R24T1 

LET A=A+tA14#T1+.5%A2*T 14T1 
LET A1=A1+A2*T 1 

LET M=M-.5*M2 


LETS Q=ta fl 

IF HO<3.287828F-94 THEN 816 
NEXT I 

LET H=H@*Z 

LET HI=R1*Z 


LET D=RE*A*Z 

LET D1=R*¥A1*Z 

LET T2=h1*B/i12 

PRINT TAB(1)3T3TABC1I2) 3H: TABC23)3D3 
PRINT TAB(37)3H1;TABC49)3D1;TABC6O) 3T2 
IF HO<3.287828E-24 THEN 882 

IF RO*A>164.4736 THEN 1652 

IF iil>@ THEN 586 

LET TL=28 

LET Feo 

LET P=8 

GOTO 622 

LF Ri<-8.21957E-24 THEN 1€2¢ 

IF ABS(R¥AL)>4.931742E-24 THEN 1022 
IF H@<-3,2878285-24 THEN 1622 

IF ABS(D)>10*Z THEN 1265 

GOTO 995 

PRINT 

PRINT "THIS SPACFCRAFT IS NOT ABLE TO VIOLATE THE SPACE-"$ 
PRINT “TIME CONTINUUII" 

GOTO 575 

PRINT 

PRINT “IF YOU WANT TO SPIN AROUND, GO OUTSIDE THE MODULE”; 
PRINT "FOR AN E.V.A™ 

GOTO 575 

PRINT 

PRINT “IMPOSSIBLE THRUST-VALUE “3 
IF F<@ THEN 985 

IF F-.05<.05 THEN 975 

PRINT "TOO LARGE” 

GOTO 575 

PRINT “TOO SMALL” 


) GOTO) 575 


PRINT “NEGATIVE"™ 

GOTO 575 

PRINT 

PRINT “TRANQUILITY BASE HERE -- THE EAGLE HAS LANDED” 
PRINT "CONGRATULATIONS - THERE WAS NO SPACECRAFT DAMAGE” 
PRINT “YOU MAY NOW PROCEED WITH SURFACE EXPLORATION.” 
GOTO 11¢@ 
PRINT 

PRINT “CRASH 
PRINT "YOUR IMPACT CREATED A CRATER"3ABSCH)3MS3" DEEP” 
X1=SQR(D1*D 1+H1*H1)*GS 

PRINT “AT CONTACT YOU WERE TRAVELLING"$X13NS3"/HR.™ 

GOTO 1100 

PRINT 

PRINT “YOU HAVE BEEN LOST IN SPACE WITH NO HOPE OF RECOVERY” 
GOTO 112 

PRINT “YOU ARE DOWN SAFELY - ™ 

PRINT 

PRINT “BUT MISSED THE LANDING SITE BY”s3ABS(D/G5)3NS 


5 GOTO 1182 


PRINT 

PRINT "MISSION ABORTED” 

PRINT 

PRINT "DO YOU WANT TO FLY IT AGAIN ? CYES OR NO)D"$ 
INPUT ZS 

IF ZS="YES" THEN 2d 

IF ZS="NO™ THEN 113@ 

GOTO 1125 

PRINT 

PRINT “TOO 3AD, THE SPACE 
PRINT “ ASTRONAUTS.” 

STOP 

RINT 

PRINT “OK, DO YOU 
PRINT “CUTPUT STATEMENTS ?” 
PRINT “1=COMPLETE INSTRUCTIONS” 


PROGRAM HATES TO LOSE EXPERIENCED”$ 


) PRINT “2=INPUT-OUTPUT STATEMENTS” 


PRINT “3=NEITHER™ 
INPUT Bl 

LET QS="NO" 

IF BIl=1 THEN 205 
LET Q$="YES” 

IF Bl=2 THEN 192 
IF B1=3 THEN 196 
GOTO 1165 

END 


WANT THE COMPLETE INSTRUCTIONS OR THE INPUT-" 


ROCKT2 SAMPLE RUN 


LUNAR LANDING SIMULATION 
HAVE YOU FLOWN ON AN APOLLO/LEM MISSION BEFORE#CYES OR NO)? NO 


WHICH SYSTEM OF MEASUREMENT DO YOU PREFER ? 
1=METRIC 2=ENSLISH 
ENTER THE APPROPRIATE NUMBER? © 


YOU ARE ON A LUNAR LANDING MISSION. AS THE PILOT OF 
THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO 
GIVE CERTAIN COMIANDS TO THE MODULE NAVIGATION SYSTEM. 

THE ON BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT 
OF INFORMATION NEEDED TO NAVIGATE THE SHIP. 


THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS=- 
+ OR -182 DEGREES IS DIRECTLY AWAY FROM THE MOON 

-92 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT 
93 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT 
® (ZERO) DEGREES IS DIRECTLY TOWARD THE MOON 


- 182, 132 
cS 
-9E < -t= > 9% 
! 


g 
<< DIRECTION OF ORBIT << 


SURFACE OF MOON 


ALL ANGLES BETWEEN -182 AND 182 DEGREES ARE ACCEPTED. 
1 FUEL UNIT = 1 SEC. AT MAX. THRUST 

ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL 
FOR AN ATTITUDE CHANGE. 
AVAILABLE ENGINE POWER: 
12 AND 12@ PERCENT 


© (7ERO) AND ANY VALUE BETWEEN 


NEGATIVE THRUST OR TIME IS PROHIBITED 


INPUT: TIME INTERVAL IN SECONDS ------ (T) 
PERCENTAGE. OF THRUST -<=<----<< CP) 
ATTITUDE ANGLE IN DEGREES------ (A) 


FOR EXAMPLE: 

T,P,A718,65,-62 

TO ABORT THE MISSION AT ANY TIME, ENTER 0,2, 

OUTPUT: TOTAL TIME ELAPSED IN SECONDS 
HEIGHT IN FEET 
DISTANCE FROM LANDING SITE IN FEET 
VERTICAL VELOCITY IN FERT/SECOND 
HORIZONTAL VELOCITY IN FEET/SECOND 
FUEL UNITS PEMAINING 


2 364800 -1.9283f2E+7 2 5321.638 750 
T,P,A? 22,29,-92 

20 36476927 -1.91838@E+7 -3.257229 5264.209 746.2021 
T,P,A? 203,12,-93 

228 358044. 1 -1.8212%25+7 -74.76607 5081.495 726.0002 
T,»P,A? 3522,1¢,-92 

723 224322.9 -1.589872E+7 -522.3451 4709.512 676.0002 
T,P,A? 500,8,0 

104 -677307 -1.439553E+7 -918.728 4992.473 676.0002 
CRASH YILEL!!i!! 
YOUR IMPACT CREATED A CRATER 6773.7 FEET DEEP 
AT CONTACT YOU WERE TRAVELLING 2952.787 N.MIL/HR. 
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DO YOU WANT TO FLY IT AGAIN ? (YES OR NO)? YES 


cK, DO YOU WANT THE COMPLETE INSTRUCTIONS OR THE INPUT- 
OUTPUT STATEMENTS 7? 

1=COMPLETE INSTRUCTIONS 

@=INPUT-OUTPUT STATEMENTS 

3S= NEITHER 

E83 


ENTER MEASUREMENT OPTION NUMBER? 1 


Q 111168 -5.876248F+6 2 1615.604 750 
T,P,A? 508,2,0 

582 106291.7 -5.116247E+6 -19.22258 1619.915 758 
T,P,A? 108,0,2 

62o 124194.1 -A.963536E+6 -22.72435 1621.782 750 
T,P,A? 58,98,-92 

658 182921.8 -4.,892289E+6 -32.02382 1492.978 725.9081 
T,P,A? 108,2,+23,2 

752 121574.9 -4.749394E+6 3.226664 1494.091 685.0022 
T,P,A? 52,92,-92 

B22 121326.7 -4.581732E+6 -14.90814 1359.475 640.0003 
T,P,A? 182,42,-290 

962 97293 .62 -4,358928F+6 -70.59644 1239.533 620.9203 
T,P,A? 52,12,¢ 

952 93262.42 -4,50G152E+6 -87.14224 1242.232 595.0004 
T,P,A? 52,1290,f 

1ee2 2036.68 -4,A441169F+6§ 38.9189 1243.085 545.0004 
T,P,A? 50,128,-92 

1052 93087.58 -4,3862762+6 1.363938 1079.071 495.0024 
T,P,A? 50,172,-92 

1126 92028.52 -A4.338861E+6 -46.0884 910.9774 445.0004 
T,P,A? 58, 102,-90 

1152 88333.39 -4.299675E+6 -122.2833 738.2616  395,0005 
T,P,A? 120,102,-99 

1252 71627.24 -4,246314E+6 -236.0626 375.7879 295.0205 
T,P,A? 52,120,¢ 

1320 62820.57 -4,228179E+§ -115.1086 377.652 245.2205 
T,P,A? 52,120,a 

135 61235 ..55 -4,209927E+6 12.98513 378.2053 195.9085 
T,P,A? 102,52,2 

1450 64599.96 -A,173457F+6 75.8418 377.2816 145.0006 
T,P,A? 102,42,-92 

1550 64756 .08 -4,145499F+6 -73.66691 202.8112 105.2006 
T,P,A? 58,58,-90 

1608 59156.86 -A,138397E+6 -159.5384 91.24195 88,9006 
T,P,4? 12,0,2 

1618 57573.89 -A4.137515E+6 -166.0619 91.32249 88.9026 
T,P,A? 19,128,2 

1629 56262. -A4.136631F+6 ~-136.1128 91.40043 70.0061 
T,P,A? 12,102,-92 

1630 54623.65 -4,135968F+6 -151.7289 45.55291 60,80062 
T,P,A? 12,120,-92 

1640 5 3028.37 -4,135751F+6 -167.3554 -.746715 5 8.92063 
T,P,A? 10,2,2 

1650 51276.44 -4,135759E+6 -183.0355 -.7474552 52.00063 
T,P,A? 32,2,2 

1682 45277251 -A4.135789F+6 -230.2823 -.7590852 50.90263 
T,P,A? 32,0,8 

1716 37455.6 -4,135802E+6 -277.9013 -.7533445 59.90063 
T,P,A? 58,8,2 

1762 21556.4 -4,135839E+6 -358.3198  -.7682341 59.00063 
T,P,A? 12,126,8 

1779 18125 .25 -4,135846E+6 -327.851 -.761739 40.00863 
T,P,A? 30,8,2 

1880 7353 .268 -4.135869E+6 -377.0488  -.7664123 40.09063 
T,P,A? 18,58,2 

1812 3817.706 -4,1358768+6 -372.9578  -.7680755 35.80264 
T,?,A? 5,108 «,2 

1815 2285 .734 -4,135882E+6 -354.7163 -.7688858  32.90264 
T,P,A? 5,108,6 

1820 278.6975 “4. 135€84E+6 -339.2829 -.7696634 25.00065 
T,P,A? 1,128,2 

1820.8 2621521 -A4.135885E+6 -336.825 -.7697848 24.2065 
CRASH !!!ELI2E! 
YOUR IMPACT CREATED A CRATER .2621521 METERS DEEP 
AT CONTACT YOU WERE TRAVELLING 1212.591 KILOM/HR. 
DO YOU WANT TO FLY IT AGAIN 2? (YES OR NO)? NOeeeno 


TCO BAD, THE SPACE PROGRAM HATES TO LOSE EXPERIENCED ASTRONAUTS. 


READY 


ROCKSP GAME OF ROCK, SCISSORS, PAPER 


Description 


Remember the game of rock-scissors-paper. You and your opponent 
make a motion three times with your fists and then either show 
a flat hand (paper), fist. (rock); or two fingers (scissors). 
Depending upon what is shown, the game is a tie (both show the 
same) or One person wins. Paper wraps up rock, so it wins. 
Scissors cut paper, so it wins. And rock breaks scissors, 


so it wins. 


In this computerized version of rock-scissors-paper, you can 
play up to ten games vs. the computer. 


Program Author 


THIS PROGRAM ALLOWS YOU To PLAY THE OLO GAME OF 
Charles Lund ROCKS, PAPER, ANO SISSORS AGAINST THE COMPLTER 
i HOW MANY GAMES CG YOU WANT? 2a 

The American School SORRY, BUT WE AREN’T ALLOWED To PLAY THAT MANY. 

Hague, Netherlands HOW MANY GAMES DO YOU WANT? 14 
GAME NUMBER 41 
B=ROCK... 2=SISSORS... 1=PAPER 
qo 2 ee See WHATS OUR CHORE ed 
THIS IS MY CHOICE.. 

PESii =. PAPER 

ROCKSP 65-06 PM @z-MAY-7E TIE GAME, NO WINNER 

4 PRINT "THIS PROGRAM ALLOWS YOU To PLAY THE OLD GAME OF" 

2 PRINT “ROCKS. PAPER. AND 5 “ GAME NUMBER 2 

5 RANDOMIZE 3=ROCK... 2=SISSORS... 1=FAPER 

6 INPUT “HOW MANY GAMES OO YOU WANT": & Lee oe aso... WHAT eSe YOUR CHOUEE CS 2 

8 IF @<41 THEN 11 THIS IS MY CHOICE 

9 PRINT "SORRY, BUT WE AREN'T ALLOWED To PLAY THAT MANS. "\GoTa 6 ... ROCK 

41 FOR G=1 Ta e WOW! I WIN!! 

45 PRINTSPRINT "GAME NUMBER"G 

29 X=INTCRND*2+1) GAME NUMBER = 

25 PRINT "3=ROCK...2 SORS. .. L=PAPERS 3=ROCK... 2=SISSORS... 1=FAPER 

3G INPUT "4.. WHATS YOUR CHOICE*: K 4) 02... SWART Se OUR. CHOTGES =< 

32 IF ¢K-1)#¢K-2) #¢ <2@ THEN PRINT “INYALID*\ GOTO 25 THIS IS MY CHOICE 

35 PRINT "THIS IS My CHOICE..." 2. SISSORS 

46 ON X GOTO 56,66. 74 YOU WIN!!! 

58 PRINT " PAPER"S\GOTO sa 

60 PRINT "...SISSORS"\GOTO ga GAME NUMBER 4 

76 PRINT ". Ro 3=ROCK... 2=SISSORS. . -4=FAPER 

86 IF X=K THEN 155 De sewr.. S, 0 WHAT So YOUR EH 

85 IF X>K THEN 125 THIS 1S MY CHOICE 

98 IF X=1 THEN 145 PE SLO SORS, 

95 PRINT "YOU WIN!!! "SH=Ht41\G0TO 1648 WOM! IT WIN?! 

195 IF K=% THEN 115 ELSE GoTo 95 

4145 PRINT "NOW! TIT WIN! !"\C=C+i\G0TO 164 GAME NUMBER 5 

125 C>4 THEN 1415 S=ROCKs. esis 

146 x THEN 4215 ELSE 95 ccs apy ee -AOICE? 4 

41455 PRINT "TIE GAME. NO WINNER. " THT Seis 

166 NEXT G ne eROG 

178 PRINTSPRINT "HERE IS THE FINAL SCORE: " Wor 


A¢S FRINTO'T HAVE WON’ C*GAMECS)°" 
186 PRINT "YOU HAVE WON"“H"GAMECS). " 


185 PRINT "AND"G-(C+H)"GAME(S) ENDED IN A TIE. * ge LSS ERS: .3 SPREEE 
198 PRINT\PRINT "THANKS FOR PLAYING! ! cage hee RATS NOURBEROLCE< ia 
Ses 1S MY CHOICE... 
. PAPER 
REROe YOU WIN!!! 


GAME NUMBER 9 
3=ROCK... 2=SISSORS... 1=PAPER 


Des en See MRR Ss YOUR: GHOTCE? = 
THIS IS MY CHOICE... 

ate eh OOS 

YOU WIN!!! 


GAME NUMBER 16 
3=ROCK... 2=SISSORS... 1=FAPER 
4 


Seeds -eiSo>. WHATS YOUR CHOICE? @ 
THIS TS MY CHRICE. . 
we « SISSORS 


WOW! I WIN!! 


HERE IS THE FINAL SCORE: 

I HAYE WON 5S GAMES) 

YOU HAVE WON 3 GAMECS) 

AND 2 GAMECS) ENDED IN A TIE. 


THANKS FOR PLAYING!! 


READY 
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ROULET EUROPEAN ROULETTE TABLE 


Description : 


This game simulates a European Roulette wheel; "European" because 
it has 37 number compartments (1 to 36 and 0). The American 
wheel has 38 numbers (1 to 36, O and 00). The Bahamas, Puerto 
Rico, and South American countries are slowly switching to the 
American wheel because it gives the house a bigger percentage. 
Odd and even numbers alternate around the wheel, as do red and 
black. The layout of the wheel insures a highly random number 
pattern. In fact, roulette wheels are sometimes used to generate 
tables of random numbers. 


In this game, you may bet from $1 to $10,000 and you may bet on 
red or black, odd or even, a column, or single number. 


There is no long-range winning strategy for playing roulette. 
However, a good strategy is that of "doubling." First spin, 
bet $1 on an even/fodds bet (odd, even, red, or black). If you 
lose, double your bet to $2. If you lose again, double to $4. 
Continue to double until you win (i.e., you break even on a 
losing sequence). As soon as you win, bet $1 again, and after 
every win, bet $1. Do not ever bet more than $1 unless you are 
recuperating losses by doubling. Do not ever bet anything but 
the even odds bets. Good luck: 


source 
Like so many other games of chance, computerized ROULET has been 


around a long time in FORTRAN, LISP, and so on. Its original 
author is unknown today. 
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PROGRAM LISTING 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
11390 
1140 
1150 
1160 
1170 
11890 
1190 
1209 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1289 
1290 
1370 
1310 
1320 
1330 
1342 
1350 
1360 
1370 
1375 
1389 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1466 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1606 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1789 
1712 
1720 
1730 
1740 
1750 
1762 
1800 
1810 
1820 
1830 
1840 
1850 
18690 
18792 
1889 
1899 
1900 
1912 
19290 
1930 
1940 
1950 
1960 
1970 
1980 
19990 
2000 
2010 
2020 
2030 
2040 
2030 
20602 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2220 
2210 
2220 


REM TYPE RUN TO PLAY THE GAME, 

LET Ki ® @ 

PRINT " WELCOME TO MONTE CARLO AND OUR EUROPEAN ROULETTE TABLE," 
PRINT " I WISH YOU THE BEST OF LUCK," 

PRINT 

PRINT 

PRINT "DO YOU WANT INSTRUCTIONS") 

INPUT Z8 

IF Z$ = "NO" THEN 1800 

IF Z$ = "YES" THEN 1130 

GOSUB 2799 

GO TO 10798 

PRINT " THIS IS A GAME OF ROULETTE. YOU ARE ALLOWED TO BET" 
PRINT "AN ODD OR EVEN NUMBER AND/OR A BLACK OR RED NUMBER AND/OR" 
PRINT "A COLUMN OF NUMBERS AND/OR A NUMBER ITSELF, NUMBERS RANGE" 
PRINT "FROM @ TO 36, IF @ APPEARS, THE BANK COLLECTS ALL BETS" 
PRINT "EXCEPT THOSE BET ON THE NUMBER @, THE PAYOFFS ARE AS FOLLOWS" 
PRINT,"ODD OR EVEN = 1 TO 1" 


PRINT,"RED OR BLACK ® 1 TO 1" 


PRINT, "A COLUMN # 2 TO 1" 

PRINT, "A NUMBER ® 35 TO 1" 

PRINT " YOU ARE ALLOWED TO BET FROM Si TO 610000, BUT THE"} 
PRINT " TABLE WILL ONLY ACCEPT BETS OF WHOLE DOLLARS (NO CENTS)," 
PRINT 

PRINT " WOULD YOU LIKE TO SEE A PICTURE OF THE GAMBLING TABLE"; 
INPUT 218 


IF Z18 = "NO" THEN 1800 


IF 218 = "YES" THEN 1320 

GOSUB 2798 

GO TO 1258 

PRINT 

PRINT 

PRINT" BELOW IS THE PICTURE OF OUR GAMBLING TABLE," 
PRINT 

PRINT 

PRINT, " Hat He St He He He a ae He 
PRINT, " * a *t 

LET US "1 0646 a 4 4b 46 a ab a ab ab a8 a at a He Ht a 
PRINT,US 

PRINT,;"# 1 # 2 # 3 wt 


PRINT, "#* RED #BLACK#* RED #" 
PRINT ,US 
PRINT» "* 4 * S # 6 ¥#" 
PRINT, "*BLACK# RED *BLACK*" 
PRINT,US 
PRINT»"* 7 # 8 © 9 wl 
PRINT,"# RED #BLACK# RED *#" 
PRINT,US 
PRINT,"* 10 # 11 # 12 #! 
PRINT, "#BLACK*BLACK® RED #" 
PRINT,US 


PRINT, "# 13 #14 * 15 «ft 
PRINT, "#BLACK# RED #BLACK#!"! 
PRINT,US 

PRINT,»"*# 16 *# 17 # 18 #" 
PRINT,"# RED *BLACK* RED #! 
PRINT,US 

PRINT,"# 19 # 20 21 #" 
PRINT, "* RED #BLACK# RED #!" 
PRINT,US 

PRINT,"#* 22 # 23 # 24 #! 


PRINT, "*BLACK*® RED *#BLACK*" 
PRINT,US 
PRINT, "* 25 # 26 # 27 wit 
PRINT,"# RED * RED *#BLACK#" 
PRINT,US 
PRINT,"* 28 % 29 # 30 w" 


PRINT, "#*BLACK*BLACK*® RED #" 
PRINT ,US 

PRINT,"# 31 # 32 # 33° #" 
PRINT, "#BLACK* RED #BLACK#" 
PRINT,US 

PRINT,"* 34 * 35 #* 36 #" 
PRINT,"* RED *BLACK® RED «#! 
PRINT,US 

PRINT, "#*COL,1*COL,2*#COL,3*" 
PRINT,US 

PRINT 

PRINT 

PRINT 

PRINT "DO YOU WANT TO BET AN ODD OR EVEN NUMBER") 
INPUT AS 

IF A$ = "NO" THEN 2050 

IF AS 3 "YES" THEN 1899 

GOSUB 27998 

GO TO 1838 

PRINT "ODD OR EVEN") 

INPUT BS 

IF BS = "ODD'"THEN 1950 

IF BS = "EVEN"THEN 19590 

PRINT "PLEASE TYPE ODN OR EVEN" 
GO TO 1890 

PRINT "HOW MUCH DO YOU WANT TO BET"} 
INPUT HK 

IF H <3 10000 THEN 2000 

GOSUB 2819 

GO TO 19598 

FOR Hi ® @ TO 10000 

IF Hi 2 H THEN 2060 

NEXT Hi 

GOSUB 2849 

GO TO 19590 

LET H ® @ 

PRINT 

PRINT "DO YOU WANT TO BET A RED OR BLACK NUMBER") 
INPUT C$ 

IF C$ = "NO" THEN 2290 

IF C8 = "YES" THEN 2130 

GOSUB 2799 

GO TO 2070 

PRINT "RED OR BLACK") 

INPUT D8 

IF DS 2 "RED" THEN 21908 

IF DS = "BLACK" THEN 2190 

PRINT "PLEASE TYPE RED OR SLACK," 
GO TO 2130 

PRINT "HOW MUCH DO YOU WANT TO BET") 
INPUT I 

IF I <# 10000 THEN 2240 

GOSUB 2810 


190 


2230 GO TO 2190 

2240 FOR 12 = @ TO 16000 
22580 IF 12 © I THEN 2300 
226@ NEXT 12 


2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2399 
2490 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2690 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2720 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2880 
2860 
2870 
2880 
2890 
2920 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
3290 
3390 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390. 
3400 
3410 
3420 
3430 
3440 
3452 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3620 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 


GOSUB 2840 

GO TO 2190 

LET I = 0 

PRINT 

PRINT "DO YOU WANT TO BET A COLUMN OF NUMBERS") 
INPUT Bi$ 

IF Bis = "NO" THEN 2530 

IF Bis = "YES" THEN 2370 

GOSUB 2790 

GO TO 2319 

PRINT "COLUMN 1, 2% OR 3"5 
INPUT B2 

IF B2 = 1 THEN 2440 

IF B2 8 2 THEN 2449 

IF B2 = 3 THEN 2440 

PRINT "PLEASE TYPE 1, 2, OR 3," 
GO TO 2370 

PRINT "HOW MUCH DO YOU WANT TO BET") 
INPUT B8 

IF B8 <8 10000 THEN 2490 

GOSUB 2810 

GO TO 2442 

FOR B9 # @ TO 10000 


IF 


Bs 2 B9 THEN 2540 


NEXT B9 


Go 


TO 2440 


LET BB = @ 
PRINT 


PRINT 


"DO YOU WANT TO BET A NUMBER") 


INPUT ES 


IF 
IF 


GOSUB 


GO 


PRINT 


ES = "NO" THEN 28798 

ES = "YES" THEN 2610 

2798 

TO 2558 

"WHAT IS YOUR NUMBER" } 


INPUT F 
FOR M = @ TO 36 


IF F = M THEN 2690 

NEXT M 

PRINT "THAT IS AN ILLEGAL NUMBER" 
PRINT "YOU ARE ONLY ALLOWED TO BET INTEGERS RANGING FROM @ TO 36! 
GO TO 2610 

PRINT "HOW MUCH DO YOU WANT TO BET"y 
INPUT G 

IF G <® 19000 THEN 2746 

GOSUB 2810 

GO TO 2690 

FOR G9 = @ TO 10000 


IF G = G9 THEN 2889 

NEXT G9 

GOSUB 2849 

GO TO 2699 

PRINT "PLEASE TYPE YES OR NO," 

RETURN 

PRINT "SORRY, BUT THE TABLE CANNOT ACCEPT A BET OF THAT MUCH") 


PRINT " MONEY," 


RETURN 

PRINT "SORRY, BUT YOU CAN ONLY BET IN $1 INCREMENTS FROM $1 TO") 
PRINT " §10900," 

RETURN 

LET G = 0 

PRINT 

RANDOMIZE 

LET T 2 INT(37*RND) 


PRINT "THE NUMBER IS "3 
LET T1 © INT(T/10)41 


ON Ti GO TO 2940,2950,2960,2970 

ON T#1 GO TO 3530,335%,3430,3398,3410, 3378, 3450, 3350, 3430,3390 
ON T#9 GO TO 3410,3490,3330,347G,3310, 3510, 3290, 3490, 3330, 3350 
ON Te19 GO TO 3430,3390,3410,3370) 3450, 3350,3310, 3510, 3410, 3490 
ON T#29 GO TO 3330,3470,3310, 3510, 3290, 3490, 3330 
PRINT Ty" RED, EVEN, COLUMN 1" 

GO TO 3540 

PRINT Ty" RED, EVEN, COLUMN 2" 

GO TO 3540 

PRINT Ty" RED, EVEN, COLUMN 3" 

GO To 3540 

PRINT Ty" RED, ODD, COLUMN 1” 

GO TO 354@ 

PRINT Ty" RED, ODD, COLUMN 2" 

GO TO 3540 

PRINT Ty" RED, ODD, COLUMN 3" 

GO TO 3540 

PRINT Ty" BLACK, EVEN, COLUMN 1" 

GO TO 3540 

PRINT Ty " BLACK, EVEN, COLUMN 2" 

GO TO 3540 

PRINT Ty " BLACK, EVEN, COLUMN 3” 

GO TO 3540 

PRINT Ty " BLACK, ODD, COLUMNI" 

GO TO 3540 

PRINT Ty " BLACK, ODD, COLUMN 2" 

GO TO 3540 

PRINT Ty “ BLACK, ODD, COLUMN 3" 

GO TO 3549 

PRINT T 

IF G = @ THEN 3610 

IF T = F THEN 3590 

PRINT " YOU LOSE s"G" FOR YOUR NUMBER BET," 

LET G ® *G ‘ 

GO TO 3610 

PRINT " YOU WIN $"35#G" FOR YOUR NUMBER BET," 
LET G = 3546 


LF, 
IF 


IF BS 3 "EVEN" 


H = @ THEN 38090 
T & @ THEN 3710 
THEN 3680 


FOR X = 1 TO 35 STEP 2 
IF T = X THEN 3750 
NEXT X 

GO TO 3710 


FOR X1 ® 2 TO 


36 STEP 2 


IF T & Xi THEN 3750 
NEXT X14 

PRINT " YOU LOSE $"Hy 
GOSUB 3780 

LET H & e#H 


3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4220 
4010 
4020 
4030 
4040 
4950 
4060 
4072 
4080 
4999 
4100 
4110 
4120 
4130 
4142 
4150 
4160 
4170 
4180 
4199 
4200 
4219 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4309 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4522 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 


GO TO 3800 

PRINT " YOU WIN 8"Hy 
GOSUB 3789 

GO TO 3800 

PRINT "FOR YOUR ODD*EVEN BET," 
RETURN 

IF I = @ THEN 4080 

IF T = Q THEN 3980 

FOR Ai # 1 TO 9 STEP 2 
IF T = Al THEN 3970 

NEXT Al 

FOR A2 ® 12 TO 18 STEP 2 
IF T = A2 THEN 3970 

NEXT A2 

FOR A3 = 19 TO 25 STEP 2 
IF T = A3 THEN 3970 

NEXT A3 

FOR A4 © 30 TO 36 STEP 2 
IF T = A@ THEN 3970 

NEXT A4 

IF T ® 26 THEN 3979 

IF DS = "BLACK" THEN 4020 
GO TO 3989 

IF DS = "RED! THEN 4620 
PRINT " YOY LOSE s"Iy 
GOSUB 4969 

LET I 8 ef 

GO TO 4080 

PRINT " YOU WIN 8"3 
PRINT I} 

GOSUB 4062 

GO TO 4080 

PRINT "FOR YOUR RED#BLACK BET," 
RETURN 

IF B& = @ THEN 4340 

IF T & @ THEN 4300 

FOR B3 = 1 TO 34 STEP 3 
IF T = B3 THEN 4190 

NEXT B3 

FOR B4 = 2 TO 35 STEP 3 
IF T = B& THEN 4210 

NEXT B4 

FOR BS ® 3 TO 36 STEP 3 
IF T = BS THEN 4230 

NEXT RBS 

IF B2 = 1 THEN 4250 

IF B2 <> 1 THEN 4300 

IF B2 = 2 THEN 4250 

IF B2 <> 2 THEN 4300 

IF B2 = 3 THEN 4250 

IF B2 <> 3 THEN 4300 
PRINT " YOU WIN S"y 
PRINT 2#B8) 

PRINT "FOR YOUR COLUMN BET," 
LET BS = 2#B8 

GO TO 4340 

PRINT " YOU LOSE $"3 
PRINT BB) 

PRINT "FOR YOUR COLUMN BET," 
LET B8 = =B8 

PRINT 

LET K # (G) + (H) + (1) + (B8) 
IF K < @ THEN 4400 

IF K = @ THEN 4420 

IF K > @ THEN 4448 


GO TO 4450 

PRINT " YOU LOST $" ABS(K)" ON THIS ROUND," 
GO TO 44590 

PRINT " YOU BROKE EVEN THIS TIME," 

GO TO 4450 

PRINT " YOU WON $"K" ON THIS ROUND," 

PRINT 

PRINT 


LET Ki ® Ki + K 

IF Ki < @ THEN 4510 

IF Ki = © THEN 4530 

IF Ki > @ THEN 4550 

PRINT " YOU HAVE LOST A TOTAL OF $"ABS(K1)" THUS FAR," 
GO TO 45798 

PRINT " THUS FAR YOU HAVE BROKEN EVEN," 

GO TO 4576 

PRINT " YOU HAVE WON A TOTAL OF $"Ki" THUS FAR," 

GO TO 45728 

PRINT 

PRINT " DO YOU WANT TO PLAY AGAIN") 

INPUT M$ 

IF M&S = "NO" THEN 4640 

IF MS = "YES" THEN 1880 

PRINT "PLEASE TYPE YES OK WO," 

GO TO 4588 

PRINT 

PRINT "' THANKS FOR PLAYING." 

IF Ki < @ THEN 4699 

IF Ki = @ THEN 4710 

IF Ki > @ THEN 4740 , r 
PRINT " yOU LOST s" ABS(K1)3", BETTER LUCK NEXT TIME, 
GO TO 4759 { 
PRINT " YOU BROKE EVEN TODAY,» MAYBE NEXT TIME YOU WILL WIN") 


PRINT " A FORTUNE," 


GO TO 4750 
PRINT " CONGRATULATIONS, YOU BEAT THE ODDS, YOU WON S"Ki"TODAY," 
END 


LOL 


SAMPLE RUN 


WELCOME TO MONTE CARLO 


I WISH YOU THE BEST OF LUCK 


DG YOU WANT 


INSTRUCTIONS ?Y'ES 


THIS IS A GAME OF ROULETTE 


AN ODD OR EVEN NUMBER AND/OR A BLACK OR REC NUMBER AND OR 
A COLUMN OF NUMBERS AND/OR A NUMBER ITSELF 


FROM @ TO 36. IF 6 APPEARS, THE BANK COLLECTS ALL BETS 


EXCEPT THOSE BET ON THE NUMBER @ 


YOU ARE ALLOWED TO BET FROM $1 TO $1600, BUT THE TABLE WILL ONLY A 


ODD OR EVEN = 41 TO 1 


RED OR BLACK = 4 TO 
A COLUMN = 2 TO 1 
A NUMBER = 25 TO 4 


YOU ARE ALLOWED TO 


THE PAYOFFS ARE AS FOLLOWS 


4 


CCEPT BETS OF WHOLE DOLLARS «(NO CENTS) 


WOULD YOU LIKE TO SEE A PICTURE GF THE GAMBLING TABLE ?YES 


BELOW IS THE PICTURE OF OUR GAMELING TABLE 


DO YOU WANT 
ODD OR EVEN 
HOW MUCH DO 


DO YOU WANT 
DO YOU WANT 
COLUMN 4, 2, 
HOW MUCH DO 


DO YOU NANT 


SRK OK OK I ROK Eo 

* a * 
SR oi a oR i a a aR Ro 
* 4 co Ze * zs * 
* RED *BLACK* RED * 
2 RR RRS ake af a a a ak aks afar 
xg ORES Ge 
*BLACK*® RED *BLACK* 
SRK ROKK OR aR aio ok aK a ok fn ok at 
eT Ze Wiel ee ee eae 
* RED *BLACK* RED * 
SEA aE ai os ote ais of ae oS ok as aio fe ok of 
* 2G  * TAs Fe OK 
*BLACK*BLACK* RED * 
SOKO RR kK ok Ko aK i ofr oe ofr 
gr eee ee ee = 
*BLACK* RED *ELA 
SRK IE I RSE of aE IE fof ae of po 
* 16 #* 17 * 18 »* 
* RED *BLACK* REC * 
SRO OR ORO IOI OK RSE IC a oe 
* 19 * 2h * 24 * 
* RED *BLACK* REC * 
ROKK RRR ko ok ok RK oi ob oi oboe 
* @2 * 2k * 24 * 
*BLACK* RED *BLACK* 
aK RK OR RR OK ak ok oR a oi ok ai ok ok ofr 
+259) FG Hae 
* RED * RED *BLACK* 
ROI EK KOK ok i aii oi or 
* 26 * 29 #* 30 * 
*BLACK*#BLACK* RED * 
ee eee 3 
* 34 # E20 
*BLACK* RED *BLA 
SR KOK KOK IK RR EK IK oR EE RoE 
* 34 * 35 * FE 
* RED *BLACK* REC 
SRR IK ROR RK Ri RE ok i oo 
#*COL. 2*#COL. 2*COL. E* 
SRR i a ai a a a ais aki a oi af ok ok: 


TO GET AN ODD OR EVEN 
700D 
YOU WANT TO BET 7144 


TO BET A RED OR BLACK 


NUMBER ZYES 


NUMBER 7NO 


TO BET A COLUMN OF NUMBERS ?Y'ES 


OR 3 74 
YOU WANT TO BET 7108 


TO BET A NUMBER ZNO 


THE NUMBER 15 41 RED, ODD, COLUMN 1 
YOU WIN $ 16@ FOR YOUR OCC-EVEN BET 
YOU WIN $ 26@ FOR YOUR COLUMN BET 


YOU WON # 366 


YOU HAVE WON A TOTAL OF ¢ 2a 


ON THIS ROUND 


DO YOU WANT TO PLAY AGAIN 7YES 


DO YOU WANT 
ODD OR EVEN 
HOW MUCH DO 


DO YOU WANT 


THUS FAR 


TO BET AN OCC OR EWEN NUMBER ZY'ES 


7EVEN 
YOU WANT TO BET 7184 


To BET A RECO OR BLACK 


RED GR BLACK ?RED 


HOW MUCH DO 
DO YOU WANT 


DO YOU WANT 


YOU WANT TO BET 7104 


NUMBER ?Y'ES. 


TO BET A COLUMN OF NUMBERS ?NC 


TO BET A NUMBER ?Y'ES 


WHAT 15 YOUR NUMBER 76 


HOW MUCH DO 


YOU WANT TO BET 714 


THE NUMBER IS ¢ RED, ODD, COLUMN & 
46 FOR YOUR NUMBER BET 
YOU LOSE $ 166 FOR YOUR ODD-EVEN BET 
YOU WIN $ 100 FOR YOUR RED-EBLACK BET. 


YOU LOSE ¢ 


YOU LOST ¢ 


YOU HAVE WON A TOTAL OF ¢$ 294 


14 ON THIS ROUND 


DO YOU WANT TO PLAY AGAIN 7YES 


THUS FAR. 


AND OUR EUROPEAN ROULETTE TABLE 


BET 


NUMBERS RANGE 


| 
' 


RUSROU 


Description 


RUSSIAN ROULETTE 


In this game, you are given by the computer a revolver loaded 


with one bullet and five empty chambers. 
and pull the trigger by inputting a ua 
You win if you play ten times and are still 


Guit,: inputeaaise. 


alive. 


Program Author 


Two versions of Russian Roulette were 
Kowalik of East Greenwich, RI and the 


Tom Adametx 
Curtis Junior High School 
Sudbury, MA 01776 


5 RANDOMIZE 

SPRINT “THIS 1S A GAME DOF 5555255 
1@ PRINTSPRINT "HERE IS A REVOLVE 
28 PRINT "HIT “1° TO SPIN CHAMBER ANDO PULL TRIGGER. " 
eg 1A TE hs CHIT “2% TO GIVE UPD "SPRINT "GO"; 


SPSRUSSTAN ROULETTE" 


38 INPUT I 
34 IF 1<>2 THEN 35 
32 PRINT " CHICKEN 1110 
35 N=N+4 
4 IF RND(G)>B Sz 


\GoTo 72 


45 IF N>1@ THEN $ 

Se PRIN “= CLICK =" 

66 PRINT\GOTO 34 

TOSRRUNT BANG EET VOUSRE. DEAD 

71 PRINT "CONDOLENCES WILL BE SENT TO YOUR RELATIVES. * 
72 PRINTSPRINTNFRINTSPRINT " NEXT VICTIM “SG0TO 2 
36 PRINT "YOU WIN !11" 

35 PRINT "LET SOMEONE ELSE ELOW HIS BRAINS OUT. " 

398 GOTO 16 

39 END 

READY 

THIS 1S A GAME OF >>>>>>>>>>>RUSSIAN ROULETTE 


HERE IS AR REVOLVER 

HIT “4° TO SPIN CHAMBER AND FULL TRIGGER 
CHD te a2eO GIVE SUP) 

6074 

= SETS = 


pl 
Che KS 


eal 
a Leh Ky 


21 
hl gt 


eat 
SeCurCh = 


gal 
= eLIGk = 


ee 
BANG! ! ©! YOURE DEAD! 
CONDOLENCES WILL BE SENT TO YOUR RELATIVES 


Me eNe eM RCA LM. « 

HIT “4° TO SPIN CHAMBER AND FULL TRIGGER 
CHiiite 2. at OG TVE. UPD 

Go? 


12 


You spin the chamber 


"OL,;- LE YOu Wantkseo 


submitted, one by John 
one printed here by: 


© 1963 by E.C. Publications 


SALVO Eo 


Description 


The rules are not explained by the program, so read carefully 
this description by Larry Siegel, the program author. 


"SALVO is played on a 10x10 grid or board using an x,y coordinate 
system. The player has 4 ships: battleship (5 squares), cruiser 
(3 squares), and two destroyers (2 squares each). The ships 

must be placed horizontally, vertically, or diagonally and must 
not overlap. The ships do not move during the game. 


"As long as any square of a battleship still survives, the player 
is allowed three shots, for a cruiser 2 shots, and for each 
destroyer 1 shot. Thus, at the beginning of the game the player 
has 3+2+1+1=7 shots. The player enters all of his shots and 

the computer tells what was hit." A shot is entered by its grid 
coordinates, x,y. The winner is the one who sinks all of the 
opponent's ships. 


Important note: Your ships and the computer's ships are located 


on 2 separate 10x10 boards. For a simpler version of this game, 
troy SALVO1. 


Program Author 


Lawrence Siegel 
3052 Warrington Road 
Shaker Heights, OH 44120 


193 


PROGRAM LISTING 


1000 REM wee SALVO BY LARRY SIEGEL 
1019 REM wee LAST REVISION 6/9/73 


1020 REM «we CHECKED OuT ON RSTS/E BY DAVE AHL, DIGITAL 


1034 REM wee 


LOAQDINAC1Hy 12) pBC1V,10) 9C(7) D067) »ECL2) oF CL2) ,GC12) (HH C12) /K C18, 18) 


1Q5Q@LETZ880 

1060FORW81TO12 
LQO7OLETEC(W) eel 
LQB2@LETH(W) e-l 

LY9UNEXTW 

L1dVFORXB1TO1LS 
LL19FORYS1TO1e 
LLQVLETB(K+Y) Fe 

LISANEXTY 

L140NEXTX 

LIS@FORX21T012 
LIGOLETF CX) Ee 

LI7OLETGCX) ee 

118ANEXTX 

L19@FORXe1TOIG 
L200FORY21TO12 
L210LETACX,Y) 54 

1L220NEXTY 

L230NEXTX 
L24HWFORKE4TUISTEP@1 
L250LETU6eA 

1260GOSUB291% 
L27QDEFFNA(K) S(DaK) wSe2eINT(K/4)4+SGN(Keol) a1 
L2BQDEFFNB(K)EK+INT(K/4)=SGN(Ke1) 
L29VIF VeV2eVeV2s3THENI 26% 
LIDVIFY+VeFe WB (KI >LITHENI 264 
LSLOIFY+VerFNB(K)<LTHENIL 290 
L3QOIFX+V2eFNBCK)>LATHEN L260 
LS3UIFX4V2eF NB(K)SITHENL2O0 
LS40LETU6sI641 
1S5O01FUG>25THENI19@ 
LS6AFORZEUTOFNB(K) 
LS7OLETFCZHFNA(K) )axtv2eed 
L3IBOLETG(Z+FNACK) )ZYtVeZ 
LSOBNEXTZ 

L4AHLETUBEFNA(KS 

141 0F ORZ2EUBTUUB+FN3(K) 
142HFORZ3=1TIUBH1 


L43UIFSQR( CF CZ3) =F 622) A2+ (G6 (23) 6 (22) A2) <3. 59THENI 260 


144QNEXTZ3 
1450NEX1Z2 
1460FORZEATOFNB(K) 


L47MLETACF (Z+UB) » G0 Z+U8) ) te5+SGN(Km1)* (KR 65) 


148ONEXTZ 

1490NEXTK 
L5A4OPRINT"ENTER CGORNINATES FOR,,," 
151 GPRINT"BATTLESHIP" 
1520FORX#1TUS 
L5SVINPUTY,2 
L544¥LETb(Y,Z)83 
LOSONEXTX 
156@PRINT"CRUISER" 
157uFORX81 TOS 
158ZINPUTY.Z 
1590LETS(y,2) #2 
LOADUNEXTX 
L6LBPRINT"DESTROYER<A>" 
1LO2BFORXB1TU2 
LO3HINPUTY,2 
LoduLeTo(y,Z) 21 
165UNEXTX 
1L660PRINT"DESTRUYER<B>" 
167¥F ORXz1TU2 
166@INPUTY,Z 
L69ULETK(Y,2Z)3.5 
L17Q0QNEXTx 

{71VPRINT"DG YOU WANT TQ START" 
1720INPUTJS 

L730IF US<>"WHERE ARE YOUR SHIPS?"THEN18990 
174HPRINT"RATTLESHIP" 
175@0FORZ81T95 
1760PRINTF(2Z)9G(2Z) 
177ANEXTZ 
17B82PRINT"CRUTSeR" 
179QPRINTF(A)36(6) 
LEQUPRINTE(7)45(7) 
LBLYPRIDTF C8) 7608) 
LA2QUPRINT"DESTROYER<A>" 
LBEIOPRINTE(9)IG(9) 
L84yuPRINTF(C1u)36013) 
LB5OPRINT"OESTROYER<R>" 
LB86UPRINTF(11)4GC11) 
187UPRINTF(12)sG(12) 
188¥vGOT0171u 

189BLETCAy 

L9ZGPRINT"IDO yOu wAnT TO SEE MY SHOTS") 
L9L@INPUTKS 

1929PRINT 
LOSVIFU<>"VYES"THEN2629 
LOGVREMe eae eee ee eee START 
LI5UIFJA<>"YES"THENIYOA 
LI6ALETCSC+1 

197YPRINT 
LOBYPRINTYTURNIC 
L994LETASO 
2UOAFORwWs,5TOSSTEP,5 
201 9FORXF1TO14 
202UFORYeiTul¥ 
2U3Z0IFBCX,Y) saTHEN2G7@ 
204Q9NEXKTY 

205WNEXTX 

2069GOTU2aB88 
2O7VLETABASINT(W4,5) 
208ANEXIW 

209WUFORWE1TO7 
210@LETC(n) 82 
2118LETD(w) ee 
212@LETF(w) sea 
2134LETG(W) 24 

2140NEXTW 

2150LETP3a9 
2162FORXe1TOLS 
217UFORY#1TO12 


QLBOIFACX,Y)>1OTHEN2Z200 
219OLETP3aP3+1 
2200NEXTY 

221 0NEXTX 


2220PRINT"YOU HAVE"A"SHOTS" 


22301FP3>sATHEN2260 


2Q24QPRINT"THE NUMBER OF YOU 


2250G0T02890 

22601 FA<>OTHEN2290 
227UPRINT"I HAVE WON" 
2280STOP 

2290FORWE1TOA 
2SQWINPUTX,Y 

231 WIF X<>INT(X) THEN2370 
2S2UIFX>1OTHEN2370 
23301 FX<1THEN2379 
234Q1F Y<>INTCY) THEN23790 
23501 FY>14UTHEN2370 
2S6UIFY>Z1THENZ390 


R SHOTS EXCEEDS THE NUMBER OF BLANK SQUARES" 


2Q37GPRINT"ILLEGALe+ ENTER AGAIN" 


2380G0T02300 
239QHIFA(X,Y)>1BTHENZ 44D 
2400LETC(w) sx 
2410LETO(w)eY 

2420NEXTYW 

2430G0T0246v 


244yPRINT"YOU SHOT TMERE BEFORE ON TURN"A(X,Y) #10 


2450G0T02368 
2462FORWa1TUA 


24701FA(C(W),D(K)) SSTHENZD4O 
248DIFA(C(H) ,D(W)) B2THENZD6D 
249WIFA(C(W) + O(h)) BL THEN2SB2 
25QVIFA(C(W) pD(W)) Be STHENZOUO 


2512LETA(C(W),0(W) )E1G4C 
2520NEXTW 
2530G0T0262u 


2540PRINT"YOU HIT MY BATTLESHIP™ 


255vG0T0251¥ 


2560PRINT"YOU HIT MY CRUISER" 


2572G0T02510 


258BPRINT"YOU MIT MY DESTROYER<A>" 


2594G0T02510 


26QZPRINT"YOU HIT MY DESTROYER<B>" 


2619G0T0251n 
262ULETASD 
263vUIFJOE"YES"THEN2Z67 4 
2649LETC#C+1 

265UPRINT 
266OPRINT"TURN"C 
267BLETAEO 
2680FORW®,5TOS,1STEP.S 
2O9UFORX#1 TID 
2700FORYS1TU1S 
271VIF ACK, Y) aWTHEN275¢ 
2720NEXTY 

27 3UNEXTX 

2740G0T02764 
2750LETABASINT (H4e5) 
27 6WNEXTW 

2770LETP38¢ 
2780FORX21TO12 
279vFORY21TUIY 
2BQVIFB(X,Y) >17THEN2820 
281 dLETP3EP 441 
2B2UNEXTY 

283aNEXTX 


2B840PRINT"I HAVENA"SHOTS" 


28501 FP3S>ATHEN2880 


2860PRINT"THE NUMBER OF MY SHOTS EXCEENS THE NUMBER OF BLANK SQUARES" 


2870G60TU2274% 

28801 FA<>ATHEN2Z960 
2892PRINT"YOU H4VE WON" 
29a0STOP 


291GLETXSINT(CRND (#1) *10)41) 
292VLETYBINTCCRND (91) *19) 41) 


293WLETVSINTCS*RND (Ht) 91) 
294DLETV2BINT(3#RND (a1) =1) 


295WRE TURN 
2960FORwe{TO12 

29701 FH(W)>STHENSBAY 
29BUNEXT 


Q99DDREM HH eee eee eee RRANDOM 


SAVULETWan 
SOLPDLETRID 
302060SUB291V 
SOSORESTORE 
SU4ULETR282 
SASULETRIER3+1 
SQOUVIFRI>LVATHENSOLO 
SO7OIFX>1LGTHENSI IY 
SOBAIFX>DTHENS122 


SOODZLETXELF+INTICRND (#1) #225) 


3140G0T03120 


SLLOLETXa19"INT(RND (#1) *2.5) 


SL201FY>12THENS 164 
SLIVIFY>ATHENI270 


SI4QLETYEL+INT(RND (#1) #2.5) 


315050TU3274 


SLOQLETYS14=INTCRNO (#1) 42,5) 


S170G0TO327¢% 
SISBOLETF Cw) =x 
SIOALETG(W)3Y 
S2Q01FWEATHENS 389 
S21ATFR2G6THENI ASU 
S22WREADX1+Y¥1 
S23ULETR2eR241 


S24QDATAL LemLolelemSrtole2r2rntyl 


S250LETX3X+X1 
S260LETY#Y+Y1 
S2701FX>1QTHENS210 
S2BQTFK<1THEN3210 
S29UIFY>1UTHENS210 
SSOBIFY<1THEN3210 
SSLYDIFB(X,Y) > 10 THENS210 
S32UFORQ981TOW 
SS3AIFF (O09) <>XTHENS35Y 
SS401FG(Q9) 8YTHENS210 
SS5SONEXTOD 


194 


SS6OLETWEWS1 

3370GOTO318yu 
SIBBIFKS<>"VES"THEN3 429 
SSOVFORZ5S81TOA 
S4O00PRINTF(Z5)7G(25) 
S412NEXTZ5 

S420FORWaiTOA 
S4301FBCF(W),/G(W)) a3THEN3500 
S440IF BC FCW), GK) ) B2THENS5 20 
S450IFB(F(W),GOW)) 81 THENS5 60 
S46Q1FB(F(W),G(h)) 2, 5THEN3540 
S470LETB(F(W),G(W)) @104C 
S48ONEXTW 

3498Go0T0195u 

SSOOPRINT"T HIT YOUR BATTLESHIP" 
351860703574 

SS2HPRINT"I HIT YOUR CRUISER" 
3530G0TU3572 

SS4UPRINT"I] HIT YOUR DESTROYER«<B>" 
3550G0TU35740 

SS6UPRINT"I HIT YOUR DESTROYER«Ad" 
SS7OFORQE{TOL2 

S5SBAIFE(Q)<>=1 THEN3S73u 
SSOBLETE(Q)3104C 
SOQOLETH(G)EBCF(W),G(w)) 
S612LETM3EN 

JSO2BFORM221TOL2 
JESWIFH(M2) <>H(0) THENSB65U 
S640M3EM344 

JO5ONEXTM2 

SS6GIFMS<>INTCH(Q) 4.5) 41 +INTCINT(H(Q)405)/3) THENSG7O 
JO7BFURM2217T012 
SO8QIFH(M2) <>4(0) THEN3710 
SOOPLETE(M2) S44 
S7ABLETH(M2) ==1 

S71 0NEXTM2 

3720G60T03474 

S73ONEXTOQ 

3749PRINT"PROGRAM ABORT" 
S75vFORVE1TU{L2 
S76OPRINTMEC OQ") S"E(Q) 
S77OPRINTYH (MO) B"HCA) 
S7BONEXTO 

379@STOP 

SBUOREM awe wee eee ees IISINGEARRAY 
S814FORRELTOLY 

S82QWFORSS1TI12 

SBSGLETK(R,S) 34 

S84GNEXTS 

S85WNEXTR 

S360FORUZITUL2 
SA7UIFE CU) <1 9THENSH2B 
38ADFURRZ1TOLA 

SB89VFORSsi TUL 
SIASIFBCR,S) <1 YTHENS932 
SOLALETKOR,S) se1 0000" 
S920G6G0TO4y0u 
SIZVFORMESGN( 19k) TOSGN(148R) 
SISUFORNESGN( 19S) TUSGN( 1638) 
SISALFN+MN+neMs4THENS IB 
SIBUIFR(R4+4,S54N) <> E(U) THENS 989 
SI7TBLETKOER,S)EK(R,S)+E(U) @2eINT(H() +25) 
S39OBANEXTN 

SYQANEXTM 


SAMPLE RUN 


I HAVE ? SHOTS 
ENTER COORDINATES FOR i = 


BATTLESHIP 5 
aoe: 5 6 
és 3 2 
g 19° «5 
‘ Ghetz. 
Pacd 


T HIT YOUR BATTLESHIP 
I HIT YOUR CRUISER 
I HIT YOUR BATTLESHIF 


IIMs 


TURN 6 
YOU HAVE 4+ SHOTS 
$ SiS 
= 2 7.8 
s > 3 
fey 5 ? 
? 8,6 5 z 


DO YOU WANT TO START? WOU HIT My BATTLESHIP 


DO YOU WANT TO SEE My 5? WES YOU HIT MY BATTLESHIP 
I HAVE 4 SHOTS 
Sane 
TURN 4 Sel 
VOU HAYE ? SHOTS ‘Gwe ie 
Peed 55 Pen 
74,5 TURN 7 
OS's YOU HAVE 4 SHOTS 
> 5.5 7 2,2 
Das as 
BSS > 9 
SOU HIT MY CRUISER 2 49,5 
YOU HIT MY BATTLESHIP MOU HIT MY CRUISER 
SCS cS Saleh HAVE 4 SHOTS 
eae 1H 4 
eo HN 
a oe 4.5 
2 ¢ 466 
= Be I HIT YOUR BATTLESHIP 
ES = ] 
pee: TURN $ 
WoO AYE 4 SHOTS 
TURN 2 dial be 2 ee Cue 
YOU HAYE 7 SHOTS iestetee 
Dane Cig Sot 
2 : FeAl 
- = D5, 9 
seen YOU HIT MY CRUISER 
cee 1 HAYE 2 SHOTS 
? 626 18 z 
eens a ¥ 
2 3.6 
YOU HIT MY BATTLESHIP TURN 9 
Fv im SHOMS. 


2 


YOU HAYE 4 SHOTS 


YOU HIT MY DESTROVER<AD 
I HAVE 1 SHOTS 

YOUR CRUISER Dias 

YOUR DESTROVER<E> sient 

YOU HAVE 4 SHOTS 


TURM = 


4Q0QUNEXTS ? SHOTS 
401 ZNEXTR 
4020NEXTU 
493aFORR21T0A rae 
4O40LETF(R)#R AG ea FO) be 
4Y54LETGO(RIER 7 
SO6YNEXTR 5 = 
: TURN 44 
407 0FORRBITOLY 3 WOU HAYE 4 SHOTS 
pee see YOU HIT MY DESTROYER<E> eS ae 
429ULETUOE1 aie SLES eae 
GLABFORMZ1TOA My 4 2 6. 
4S1,1H1IFK(F (MN) ,GOM))>3K(F(U9),G(99)) THENG{L 30 2 , j ite 
4120LETQ9=s 3 4 I HAVE 1 SHOTS 
413QNEXTM ae 3 ng OTS 
4131 IF R>OTHENGI 4A 5 3 
4132 1F Ras THEM 4210 oe Pee 
S140IFK(R,S)<K (CF (69) ,G009)) THENG210 A aay jane a Bans 
4156FORMs1TUA : SRIIPU CRUSE ates = 
T HIT YOUR CRUISER Mere 
S4160I1FF (CM) <>RTHENGIOU E 
4179IFG(M) eSTHENA24u TURN 4 pase 
418ANEXTM WOU HAYE ? SHOTS Bene 
ate ee tee ts I HAVE 1 SHOTS 
4200LETG(99) 8S g st 
Fl aks aes I HIT YOUR BATTLESHIP 
422UNEXTR Par ee) 
423060TU03389 5) sae Suh ae 
cal CRIES YOU HAVE 4 SHOTS 
? 6x2 24,9 
YOU HIT MY Bb ? 3.40 
, AVE ? SHOTS ? 5.16 
Player's shots against Nee 27.9 
Sung I HAVE 4 SHOTS 
the enemy. Number Soe Wh 
37 Ss 
3}10 indicates the round 4 ay ae 
ey tat YOU HRYE 4 SHOTS 
ehatstathate \| 5] | of the game on a aR 
SOUR DESTROVER<E> ? 4,18 
which the shot was als se Roeeae 
: ie TURN 5 alae 
EERIE ENTE EE YOU HAYE 6 SHOTS YOU HIT MY DESTROYER<E> 
‘ ; cetera: { HAVE & SHOTS 
objective was to destroy i) ese YOU HAVYE WON 
the enemy battleship-- 9 5 


it took 6 rounds to accom- 
wou HIT MY BATTLESHIP 
plish this objective. 


Tee MS) 


SALVO! 


Description 


ARMY GUN BATTLE 


SALVOL is played on two, 5x5 grids or boards with 25 outpost 
locations numbered 1 to 25. Both you and the computer have 
four platoons of troops that can be located at any four out- 
posts on your respective grids. 


At the start of the game, you locate (or hide) your four 
platoons on your grid. The computer does the same on its 
grid. You then take turns firing missiles or bombs at each 
other's outposts trying to destroy all four platoons.,-,-The 
one who finds all four opponent's platoons first, wins. 


Program Author 
This program was slightly modified from the original submitted by: 
Martin Burdash 


70 Pinetree Drive 
Partin No 1.08859 


© 1967 by Creative Publications 
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PROGRAM LISTING 


100 PRINT "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND You" 

110 PRINT "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED," 
120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST," 
130 PRINT "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS," 


135 PRINT 


140 PRINT "THE ORJECT OF THE GAME IS TO FIRE MISSILES AT THE" 


15@ PRINT "OUTPOSTS OF THE COMPUTER, 


IT WILL DO THE SAME TO You," 


160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS " 


17@ PRINT "FIRST IS THE WINNER," 
18Q@ PRINT 


198 PRINT "GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENTJ" 


200 PRINT 


210 PRINT"TEAR OFF THE MATRIX AND USE IT TO CHECK OFF THE NUMBERS," 


220 FOR R=1 TO 5S\PRINT\NEXT R 
250 RANDOMIZE 

268 DIM M(100) 

270 FOR Rei TO 5 

280 Te(R-1) e544 

290 PRINT I,141,14+2,1+3,144 
300 NEXT R 

358 FOR R21 TO 1@\PRINT\NEXT R 
380 LET C ® INT(RNO(N) w 25) + 4 
390 D = INT(RNO(N) * 25) + 1 
400 E & INTCRNO(N) #25) +4 

412 F ® INT(RND(N) *® 25) + 1 


420 IF C = ) GOTO 394 
430 IF C ® — GOTO 409 
440 IF C s F GOTO 410 
450 IF D0 ® E GOTO ava 
4609 IF D = F GOTO 449 
470 IF —E = F GOTO 4148 


482 PRINT "WHAT ARE YOUR FOUR POSITIONS"$ 
49Q INPUT G,H,KoL 

495 PRINT 

5@@ PRINT "#HERF DO YOU WISH TO FIRE YOUR MISSILE"? 
518 INPUT yY 

52aIF Y = C GOTO 744% 

530 IF y = D GOTO 71a 

540 IF y & — GOTO 71a 

55@ IF Y = F GoTo 719 

568 GoTO 634 

570 M © INT(RND(N) * 25) # J} 

575 GOTO 1162a 

580 IF X & G GOTO 92a 

590 IF X & A GOTO 92a 

600 IF X © L GOTO 928 

6109 IF X = K GOTO 92a 

620 GOTO 67¥ 

630 PRINT" HA,HA YOU MISSED, MY TURN NOW" 
640 PRINT\PRINT\GOTO 570 


670 PRINT"I MISSED Yoll, YOU DIRTY RAT, I PICKED"gMs", YOUR TURN," 


688 PRINT\PRINT\GOTO 5a4 


7180290 +} 

720 IF Q & 4 GOTO B89” 

730 PRINT "YOU GOT ONE OF MY OUTPOSTS," 
74Q IF Q ® 31 GATO 774 

750 IF GU ® 2 GOTO Ale 

760 IF Q ® 3 GOTO 859 

770 PRINT " ONE DOwn THREE TO Go" 
780 PRINT\PRIMNT\GOTO 57% 

810 PRINT " Two DOWN Twa TO GO" 
820 PRINT\PRINT\GOTO 574 

858 PRINT " THREE DOWN OWE TO GO" 
868 PRINT\PRINT\GOTO 572” 


89q PRINT " YOU GOT “E,1'M GOING FAST, BUT I'LL GET YOU 


900 PRINT " Y TRANSISTORS $ECUPERA E" 
918 GOTO 1235 

920 ZeZ+1 

930 IF Zea THEN 1110 
940 PRINT "I GOT YOU, 
950 IF 231 THEN 990 
960 IF Z32 THEN 1030 
970 IF Ze3 THEN 1070 
990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT" 

1002 PRINT\PRINT\GOTO 500 

1030 PRINT "YOU HAVE ONLY TwO OUTPOSTS LEFT," 

1040 PRINT\PRINT\GOTO 548 

107@ PRINT "YOU HAVE ONLY ONE OUTPOST LEFT," 

1060 PRINT\PRINT\GOTO 5aa 

1118 PRINT " YOU'RE DEAN. YOUR LAST OUTPOST WAS AT"x", 
1120 PRINT " BETTER LUCK NEXT TIME," 

115@ GOTO 1235 

1160 PeP+) 

1170 NaPey 

1186 FOR T = 1 TON 

1199 IF ™ #® M(T) GOTO §72 

1200 NEXT T 

218) x) eo 

1220 mM(P) = 

1230 GOTO 5&9” 

1235 END 


WHEN " 


IT WON'T BE LONG NOW, POST"X"wAS HIT," 


HA, HA, HAL" 


LOE 


SAMPLE RUN 


YOU ARE ON AR BATTLEFIELD WITH 4 PLATOONS AND You 

HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY GE PLACED 
YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTRO 
THE COMPUTER COES THE SAME WITH ITS FOUR PLATOONS 


THE GBJECT OF THE GAME IS TO FIRE M 
QUTPOSTS OF THE COMPUTER IT WILL GO THE SAME To Situ 
THE ONE WHO CESTROYWS ALL FOUR OF THE ENEMYS PLATOONS 
FIRST 15 THE WINNER 


SSILES AT THE 


5000 LUCK. , ANC TELL US WHERE YOU WANT THE BODIES SENT! 


TEAR OFF THE MATRIX AND USE IT TO CHECK OFF THE NUMBERS 


4 fe 4 

6 ? ) 

a2 as 414 

we 1 i) 

24 Ze a4 
WHAT ARE YOUR FOUR POSITIONS? 14.45. 26.25 
WHERE CO YOU WISH TO FIRE YOUR MISSILE? 6 

HA. HA YOU MISSED. MY TURN NOW 
I MISSED YOU, YOU CIRTY RAT I FICKEC 2 SOUR TURN 
WHERE CO YOU WISH TO FIRE YOUR MISSILE? 7 

HA. HA YOU MISSED. MY TURN NolW 
i MISSED VOU YOU “RTRTS IRAT.© IoPPCKEE 2s SOUR TURN 
WHERE DO YOU WISH TO FIRE YOUR MISSILE? & 

HA. HA YOU MISSED. MY TURN NOW 
1 MISSED YOU, YOU OIRTY RAT. J PICKED 5 SOR: TLURM 
WHERE DO YOU WISH TO FIRE YOUR MISSILE? & 

HA. HA YOU MISSED. MY TURN NOW 

I MISSED YOU, YOU DIRTY RAT I FICKED 4 SOUR TURN 
WHERE OO YOU WISH TO FIRE YOUR MISSILE? 14 

HA. HA YOU MISSED. Ms TURN NOW 

I MISSED YOUS FOL BIRT RAT I FICKED 6 SOIR TT LIRM 


WHERE OO ‘YOU WISH TO FIRE WoOouR MISSILE? 44 
YOU GOT ONE OF MY OUTPOSTS 
ONE CONN THREE To oO 


1 G0T You IT WON'T BE LONG NOW POST 25 WAS HIT 
YOU HAVE ONLY THREE OUTPOSTS LEFT 


WHERE CO YOU WISH TO FIRE OUR MISSILE? 12 
HA. HA YOU MISSED. MY TURN NOW 


I MISSED YOU, YOU DIRTY RAT. 71 PICKED 4 SOR: TLR! 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 42 
HA. HA YOU MISSEC. MY TURN NOW 


I MISSED YOU, YOU DIRTY RAT I PICKER 2 SOUR TLR 
WHERE CO YOU WISH TO FIRE YOUR MISSILE? 14 

HA. HA YOU MISSED. Ms TURN NOW 
I MISSED YOU. YOU DIRTY RAT. IT PICKER & SOUWIR:! TURN, 
WHERE DO YOU WISH TO FIRE YOUR MISSILE? 15 
YOU GOT ONE OF MY OUTPOSTS 

TNO DOWN TWO TO GO 
I MISSED YOU, YOU DIRTY RAT. I PICKED 44 SOUR: TURN 
WHERE CO YOU WISH TO FIRE YOUR MISSILE? 16 

HA. HA YOU MISSED. My TURN NOW 
1 MISSED YOU, YOU DIRTY RAT I PICKED 7 SOUR TURN 


WHERE CO YOU WISH TO FIRE YOUR MISSILE? 17 
HR. HA SOU MISSED. My TURN NOW 


SLOTS 


Description 


SLOT MACHINE 


The slot machine or one-arm bandit is a mechanical device that 
will absorb coins just about as fast as you can feed, zt... ALcCer 
inserting a coin, you pull a handle that sets three independent 
reels spinning. If the reels stop with certain symbols appear- 
ing in the pay line, you get a certain payoff. The original 
slot machine, called the Liberty Bell, was invented in 1895 

by Charles Fey in San Francisco. Fey refused to sell or lease 
the manufacturing rights, so H.S. Mills in Chicago Hpuplesa 
similar, but much improved, machine called the Operators Bell. 
This has survived nearly unchanged to today. 


On the Operators Bell and other standard slot machines, there 
are 20 symbols on each wheel but they are not distributed 
evenly among the objects (cherries, bar, apples, etc.). Of 

the 8,000 possible combinations, the expected payoff (to the 
Iblaver)ais/,049 or $89.11 for every $100.00: put in, one of the 
lowest expected payoffs of all casino games. 


In the program here, the payoff is considerably more liberal; 
indeed it favors the player by 11%--i.e., an expected payoff 
of $111 for each $100 bet. To approximate Nevada odds, reduce 
the jackpot to $15 and keno to $4. 


Source 
Lots of slot machine programs were submitted including a very 


nice one by Rob Hoffberg of Roslyn, NY. The author of the 
one published is unknown. 


LoS 


PROGRAM LISTING 


148 RANDOMIZE 

4116 DIM D¢z) 

126 PRINT"THIS IS A SIMULATION OF A SLOT MACHINE USING A COMPUTER " 

134 PRINT "EACH TIME YOU “PULLY I WILL ASK YOU TF YOU WISH TO PLAY AGAIN. " 
144 PRINT "JUST ANSWER WITH A “YY FOR OR A “NY FOR NO. " 

454 PRINT "PLEASE PLACE 4 QUARTERS ON MY CPL FOR EACH PLAY. ® 

164 PRINT 

4176 FOR B1=1 TO 2 

186 LET D¢B1.=INTCRND (4) #6944 

196 NEXT Bt 

266 FOR Gi=1 TO z 

216 IF D¢G1)=4 THEN 236 

226 IF D(G1)=2 THE N Zou 

226 IF D(G1)=3 THEN 
249 IF D¢G1i)=4 THEN 
256 IF 0¢G1)9=5 THEN 
266 IF D¢G1)=6 THEN 
276 GOTO 536 - 
286 PRINT TABCG1#7);" BELL"; 
296 GOTO 396 

366 PRINT TABCG1+#7)9;" BAR"; 
314 GOTO 296 

326 PRINT TABCG1#7); "CHERRY": 
336 GOTO 296 

346 PRINT TABCG1*?7); "APPLE"; 
356 GOTO 296 

366 PRINT TAB¢(G1*7);5 "LEMON"; 
376 GOTO 396 

386 PRINT TABCG1#7)9;"  $"; 
3946 NEXT G1 

466 PRINT TABC28); 

446 IF Det 
426 IF ¢ THEN 524 

436 IF 2) THEN 464 

440 IF D¢(1)<>D¢3) THEN 494 

456 GO TO 516 

466 IF Dét>/2<>INTLDC1)/2) THEN Si 

476 LET B=B+S\PRINT "KENO.. YOU WIN $5... TOTAL=#"; 6: 
426 GO TO 556 


Soa 


oma h 


Mal tal be bal 


THEN 444 


496 LET B=B-41\PRINT “YOU HAYE LOST $4 -- TOTAL=#"; B: 
566 GOTO 556 
514 LET B=B+4\PRINT "YOU HAYE WON #4 --- TOTAL=#"; B; 


526 GOTO 556 

526 LET B=B+2@\PRINT CHR#¢(7); "JACKPOT... $20... TOTALH=$"s Bs CHREC7): 
548 GOTO 554 

556 PRINT "AGAIN?"; 

56@ INPUT #ANSPRINTNIF A=#Y THEN 168N\1F A<>#N THEN 56 
5’°@ PRINT"IT’S BEEN NICE OPERATING FOR YOU COME EBA 
586 END 


SAMPLE RUN 


THIS 15 A SIMULATION OF A SLOT MACHINE USING A COMPUTER 

EACH TIME YOU “PULL” IT WILL YOU TF YOu WISH TO PLAY AGAIN 
JUST ANSWER WITH A “YY FOR ¥ OR A “NY FOR NO 

PLEASE PLACE 4 BUARTERS ON MY CPU FOR EACH PLAY 


BELL APPLE ELL ‘YOU HAVE WON $4 --- TOTAL=$ 1 AGAIN? 
APPLE APPLE CHERRY KENO.. YOU WIN £5.. TOTAL=# 6 AGAIN? 


APPLE APPLE APPLE JACKPOT... $20... TOTAL=% 26 AGAIN? 


RPPLE BAR APPLE YOU HAWE WON $41 --- TOTAL=£ 
$ + CHERRY KENO.. YOU WIN #5, , TOTAL=£ 
BELL LEMON CHERRY YOU HAYE LOST #1 -- TOTAL=£ =4 AGAIN? 
$ CHERRY = YOU HAVE WON $41 --- TOTAL=# AGAIN?Y 
APPLE $ BRR YOU HAVE LOST $4 -- TOTAL=# 21 AGAIN?Y 
$ CHERRY BELL YOU HAWE LOST #1 -- TOTAL=* =4 AGAIN?" 
CHERRY BELL BELL YOU HAYE LOST $1 -- TOTAL=$ 29 AGAIN?Y 


BAR LEMON BECC SOU HAYE (Lost $4) —= 
$ CHERRY CHERRY YOU HAYE LOST #1 -- 


BELL BELL BAR YOU HAVE WON #1 --- 


$ LEMON APPLE ‘YOU HAWE LOST $1 -- TOTAL=# 27 AGAIN?Y 
LEMON CHERRY BAR YOU HAVE LOST #1 -- TOTAL=# AGAIN? 
BAR APPLE BAR YOU HAWE WON $41 --- TOTAL=# 27 AGAIN? 
CHERRY LEMON CHERRY YOU HAYE WON #1 --- TOTAL=# 
BELL $ LEMON YOU HAWE LOST #1 -- TOTAL=$# 27 AGAIN?Y 
BELL LEMON LEMON ‘OU HAWE LOST $41 -- TOTAL=# 26 AGAIN?" 
BELL LEMON LEMON ‘YOU HAVE LOST #4 -- TOTAL=# 25 AGAIN?Y 
CHERRY CHERRY $ YOU HAVE WON $1 --- TOTAL=£ 26 AGAIN?N 


17’°5 BEEN NICE OPERATING FOR YOU COME BACK SOcN! 
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Description 


SNOOPY 


PICTURE OF SNOOPY 


There must be 7,000 various computer pictures of Snoopy around 
dating from the ENIAC If. 


adopted as the programmers' 
was--overwhelmingly. 


ubiquitous dog. 


clear today that he 
of pictures of that 


* 
eee * ** 
* * * 
* * * 
= * * 
* ee RH HH 
* 
* 
* * 
* 
eo 
* * 
* e % 
ee 
+4 eH 
ee HH ee He HH 
ee HHH * * * 
* eH HH * ee eH 
ee HH HH * 
+e eM HH 
OH HH HH * 
ee HH HR HR * 
ee RH HHH *% * * 
eR HH HH eH * ¥ 
ee RRM HHH * 
HHH HHH * 
HHH HH HH *% 
Hee HR HEE * 
HH HH HH * 
Se HH HH # * ee HH 
SHH HH HH * 
ee HHH HH * 
ee eK HR KH eee 
HHH HH * * ¥ 
eH HHH OH “+ 
eee HH * 
ee HH * 
* * 
* * * 
ee RH * 
* * 
* * 
* 
* 
* 
* 
* 
* 
* 
* 


eK 
eeKK 


* 


KKEKKEK 


KKK 
KERKKEK 


AOR OK 


KEE 


xe 


KEKE 


REEKERREER KK 
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Just why Snoopy was universally 
mascot is hard to say, but it's 


Here are a couple 


He HHH EHH 
* % 


* 
HHH HHH HH 


XxXXX 
x XX 
X wee X XXXXX 
X weeew x XXX Kx 
XXXX weeweewe KKK XXxXX xx 
XxX X weeeee XXXXXXXKX XX XXX 
xx X eee X Xwe xX 
x xXx XX x XweeX 
x 71%XXX x XxXxXx 
x US. x Xx 
x lp x XXX KK KKK KKK KKK KKK KS 
x XXX// x x 
4 x x ¥ x 
x x x x xX 
x x x x x xX 
x x x x x Xxx xx 
x xxx x x x x x x 
x x x XxX xX XXXX 
x x XXXXXKXXXN xx Xx x 
XY xx x x x xx 
Xx XXX xX XXXXXX/ xX XXXX 
XxX XXeee x xX 
MXXKXXXXKXKXKXKKK & * x x 
torect X x x 
tone XXX x x 
to XXX x 
we WX XXX 
ve WX x XXX 
te #X x Xx 
we oXX x x 
* we X x x 
* wx « X xX xX 
* ow Xwe XxX XXX x 
* w Kee XX xX x 
e tH Xee Xx xXx x 
© wer he AK x x 
e «e XX XxXXX XXX 
+ ow XXX x x 
* ee x x x 
BRED Sakueeee e+ xX x KXXKXKXXKKN 
e *« AXXXXK XXXXXKX KA ) 
SCRBSRe eevee eete e xX ) \ ) 
suas * x NN yXKXXX 


SRB TECEERe ee deeewee KKK KKK KKK MK KKK KKK KK XK 


CURSE YOU, RED BARON] 


SPAC R SPACEWAR BASED ON STAR TREK 


Description 


This program is an incredibly complete version of spacewar. 
You are Captain Kirk of the Starship Enterprise and have as 
your mission to destroy a certain number of enemy Klingon 
spaceships (generally around 24) and thus keep the galaxy safe 
for democracy. You must complete your mission in 30 stardates 
(measure of time in space--think of it as a day). 


The galaxy is divided into 64 quadrants arranged in an 8x8 grid. 
Each quadrant is in turn divided into 64 sectors, also in an 

8x8 grid arrangement. It, of course, costs time and fuel to get 
from one quadrant to another. 


Complete playing instructions are given if you answer YES to 
the question, DO YOU WANT INSTRUCTIONS? 


Note: This program appears to have one or two minor bugs. It's 
eminently usable, but occasionally funny little things happen. 


Program Author 
Slightly modified by Mary Cole from the original written by: 


Mike Mayfield 
Centerline Engineering 


© 
° 


0. Ah/ 


PAVE 


REM owe PROGRAM SIMULATES JV_PROGRAM STARTREK 
REM oes WRITTEN BY MIKE MAVFTELD. CENTERLINE ENGINEERING. 


REM eee DEAUGGING AND MINOR REVISIONS BY LFO LAVFRAURE. TRA POTEL, 1406 


REM eee MARY CALE. AND DAVE AHi OF DIGYTAL 
RANDOMIZE * heb 
PRINT " eee STAR TREK @.¢ e"ePRINT 
INPUT "DO You WANT INSTRUCTIONS (THEY'RE LONGIYMSAS 
TF_ASar" VES" THEN 230 
GOTO 8A20 
REM wwe PROGRAM BEGINS HFRF 
7$.R%,0Se" 
DIM GCs, 8). cro. 72). K¢S, 3). TNC39 708.8) 
Te. TEINTERND (19 e202 4108. 
TosSAINORIED, FaeSoanosPa, Peidrson20ar8, H6ed 
OEF FNDEDISSORT(K(Tet)aSt 3 on2e/K(T.21—829 0029 
ALBINT(RNO (LI eBe!) 
G2eINTERND(19e84)5 
Sim INTERND (130801) 
S2aINT(RND (19 eRe1) 
T7eTIMEC A) 
Cte. 1)» crs. 1), ct4, Ade acta, 22.005. 2). 7Ct6. 2)e~{ 
Cei.0), C3, 29,005.10 aC ie 6(9,1)80. 
C129 0002.29,006,1)- Chr. 17.068.1).068.2%, 060,294 
MAY HaZER a 
DSstwWwARP ENGINESS. Rie SFNSORSI_. R, SFNSORSPHASER eNTRL" 
DgeDge"PHOTON TUBESDAMAGF CNTR M 
FSe"SHTELD CNTRLCOMPUTFR" 
BO,K9aa 
REM wee SETS UP WHAT EVISTS TN GALAXY 
FoR 1a(T08 
FOR Jaros 
RieRNO 1) 
YF RI>,OR THEN 580 
IF R1>,95 THEN 610 
TF RI>.8 THEN 440 
K3ea1GOTN 660 
K3a31K9aK9SSIGNTO 660 
K3e21K9ek9s29G0T0 668 
K3e11K9ak9et 
RisRND(1) 
YF RI>. 96 THEN 700 
R3e1G0TN 724 
R3e11B9eA94) 
S3BINTCRND (19 eRe!) 
GY. J) BK3 a1 BAeR3a1As8Z 
7(1%,5)80 
NEYT J 
NEYT I 
K7aK9 
PRINTEPRINT 
PRINTRYOU MUST_ DESTRAYRKEN KI INGONS NU TON STARDATRS wrth nae 
TF BO>A THEN 810 © STARBASFS" 
6(6. Syeitd 
K3.B3,8320 
IF ore! OR Qi>R OR Q2<) AR O2>R THEN 920 
¥eG(A1,02)e.A1 
K3eINT OX) 
BSSINT((X@K3I010) 
$30G(O1 ,A2I@INT(GLA1. OPH. tein 
IF K3a0 THEN 919 
IF $>290 THEN 9198 
PRINT"COMBAT AREA CANAITIAN RFD" 
PRINT" SHIELDS DANGEROUS! Y Lawn 
MAT Ka7ER 
FOR TaiTA3 
KeT, 3900 
NEXT 7 
OSaZKIRSEZS 
$$aM7D079.1,489 
REM wee PUT FNTERPRISE SAMPWHERE 
AgSetaa>" 
71881 
72889 
GOSUR 5510 
FoR TeiTOKS 
GOSUR 8380 
REM eee PUT KLTNGONS SMF WHERE 
ASaNeeen 
7i1e8R! 
72aR2 
GosuR 5510 ee Cay Pre 
KET, ¢)aRit KET.2)eR2t KOT, 398SO 
NEXT I 
FOR YeaiTOBS 
GOSUR 5380 
REM ee» PUT STARBASE(S" 
Agampjety 7ieRis 72eR2 
GOSUR 5518 
NEYT I 
FOR YejTNSs 
BOSUR 5388 
REM ee+ PUT STARS SOMEWHFRE 
ASe" ") 7ieRiz: 72eR2 
GOSUR 5510 
NEYT I 
GOSUR 4499 
TNPUT "COMMAND? "9A 
TF Ae@ GOTO 1410 
IF Aw{ GOTN §28a 
TF As2 GOTA 2338 
JF A#3 GATA 2530 
IF As4é GOTN 2890 
TF aeS GAYA 3464 
IF Aw6 GOTM 3640 
TF As7 GOTTA 4630 
TF Awe GATO 6510 


SOMEWHFRE 


PRINTIPRINT" 8 » SFT CNURSEY 

PRINT" {1 @ SHORT RANGE SFNSOR SCAN" 
PRINT" 2 8 LONG RANGF SENSAR SCANN 
PRINTH 3 = FIRE PHASFRAN 

PRINT" 4 = FTRE PHOTAN THRPEROFS" 
PRINTH 5 = SHIELD CONTRO!" 

PRINT" 6 @ DAMAGE CONTRO! REPORT" 
PRINT" 7 = CALL ON LYBRARY CAMPUTERN 
PRINT® 8 @ END THE CANTEST" SPRINT 
GOTO 1279 


REM ee» COURSE CONTROL CADP REGINS HERF 
INPUT "COURSE (1-0)8" FL 

IF clea THEN 1270 

TF Cie} OR Ci»9 THEN 1410 


202 


Lage 
1500 


INPUT "WARP FACTOR (Bom) EM OW! 
IF W§<d OR Wid THEN 1418 _ _ 
TP D¢1)>80 OR Wiee,2 THEN 1610. 


‘ 
PRINT "WARP ENGINES ARF RAMAGED. MAXIMUM SPEPD @ WARP 2" 


GOTO 1414 

TF K3<ag THEN 1560 

Gosus 3798 

TP KS<an THEN {860 

YF $40 THEN 4028 

GOTO. 1610 __ 

TF £>0 THEN 1610 

1F_ Sai THEN 39799 

PRINT "YOU HAVF*E® UNITS, oF ENPRGY" 


PRINT "SUGGEST YOU GFT SMMF FROM YOUR SHTELDS WHPCH HAVES UNTTS LEFT! 


GOTO 12748 
FoR tasyoss TF_ DET) >aB_ THEN 1640 

REM wee FIy ANY DAMAGER REVICE 

peryeperied 

NEYT Y 

TF RND(19>5 2 THEN 1810 

RIBINT(RND OL) eRe!) 

TF_RND({)>e@ ,5 THEN 1780 

DERLVEDCRII@CRND C1965 44) _ ; 
PRINTIPRINT "DAMAGE CONTRO! REPORTINS 

GOSUR 3610 

PRINTS DAMAGED" sPRINTJGOTO 1840 
DCRLVSDCRIVSCRND CLIO St) _ : 
PRINTEPRINT "DAMAGE CONTRO) REPORTI"S 

GOSUR 8618 

PRINT" STATE oF REPAIR. IMPROVED" EPRINT 
NeINTC(Wie892ASan W)7Z(a819729082 

GOSUB S518 

MIiMCPCL CISCOCCLSteLren(hd. PLY HCELOINT CED) 
Xesisyss2 , 

MIBCICLSIS(CECId1 Ler Ces. sADDMCOLSINT ECL) 
K2eCHCL PISCE (Ci sts2Ieh (Cl, QV eCCLaINT(C1)) 
FoR LELTONISI si sxtIS2e8rev2 

TF Siai OR Si>ed, OR 821 OR $2509 THEN 2170 
$8081 62459203—261 IF $R>72 THEN (998 

TF _MID(OS,88. Sys" N THEN 2070 

GOTO 2434 

IF S$&>144 THEN 2900 
TF_MID(RS,88079,3558" 
GOTO. 203” 

TF MTD(SS&, 88=144,3)8" 


" THEN 9070 


" THEN 2070 


PRINT"WARP ENGINES SHUTDAWN AT SFCTOR mgqe, 82" HUF TO BAD NAVAGATTON" 


$4 aS levi 1$2e82nx216070 2080 

NExy I 

ASaMcerne7(e8i172882 

GosuR 5510 ee. 

EaEeNeSi TF wie<t THEN 2¢sa 

Tats ‘ 

TF T>TA%47T9 THEN 3978 

GOTO 1269 _ 

YEO eBsXeXi ens VeG2eBsVaXIen 

QL aINT(X/B9 OQEINTCY/BIESLeINT (XoQ( 08) PSPaTNT(¥aA2eB) 
TF Sic>@ THEN 2268 

Aiedle{18is8 

TF $2<>@ THEN 2290 

02802—128288 

Yetol pFarenes 

TF YSTA + T9 THEN 3970 

GOTO 810 

REM wee LONG RANGE SFN&ON SCAN CADP RESINS HFRF 
TF D¢3)>80 THEN 2370 

PRINT "LANG RANGE SENSAR& ARF TNAPFRABLE® 
GOTO 1270 

PRINTYLONG RANGE SENSOR SCAN FAR QUADRANT main, na2 
PRINT Newcwomeececeneencna” 

FOR YeMieit TA Aiet 

MAT Ne7ER 

FOR Ja2e1 TN A244 im 

IF Tet OR T>A8 OR J<i OR JRA THEN 2468 
N¢(JeA2420e6(07,5) 

IF _D¢7)<0 THEN 2468 

7¢Y,I)eGI.J) 

NEXT J r 

Pisatys wow 8 PPT" 1 WMH 98 

PRINT USING PIG NCLIeNC2) ONES) 

PRINT # eweweccwcwenccanamal 

NEXT I 

GOTO 1279 

REM ewe PHASER CONTROL CADF REGINS HERE 
JF K3<e@ THEN 3670 

TF D¢49>80 THEN 2570 

GOTO, 1274 

TF D¢7)>"0 THEN 2898 

PRINT " COMPUTER FATLURE_ HAMPERS AccuURACY" 
PRINTYPHASFRS UocKFD ON TARGFT. ENERGY AVATI ARBLFate 
INPUT "NUMRER MF UNTTS TA FIREGh OX 

IF X<eA THEN 1270 

IF Eex<@ THEN 2570 

EuEuX 

GOSUB 3790 

TF D¢7)>a0 THEN 2680 

WaXeRNO(1) 

FOR YelTO3 

YF _KfT, 3) <a8 THEN 2779 

HeINTC(X/K3/END (A) oF 2eRNDELNID 

K(T, 3S) 8Kk(1,3%0H 


PRINTH" IINTT HTT ON KLINGON AT SECTOR "KOT.19"."KOTL298 


PRINTH eMKeT, 39" LEFTY" 

TE KEY, 39>0 THEN 2770 

GOSUR 3692 , 

TF KOae@ THEN 4040 

NEXT I 

TF_Ea®@ THEN 4000 

GOTO 1270 

REM ees PHOTON TORPEDO CADP AERINS HFRF 

IF _D(S)>2@ THEN 2830 

PRINT "PHOTON TURES ARF NOT NPPRATTONAL" 
GOTO 12740 

IF_P>@ THEN 2860 

PRIN? "ALL PHOTON TORPFDAES FXPENDPD" 

GOTO 1270 

TNPUT "TORPEDO COURSF fie" eCt 

IF Cia® THEN 1270 

TF Clad OR, C1>89, THEN 9880_ 

ALEC (CL AUISCOCOL SL LOCC L ALY IOCCLeINT (CID) 
K2eCC( PSCC CCL Ht ZO COL2VIMCCL MINT ICTY 


28 YoeSipVesrsPuPat : 4448 
58 PRINT "TORPEDO TRACKG® MID(A8,19, 3). MTDFOR, 3. 39,MIN(08.16.3).MID(Q8.,19.39, 
168 Yaxexsryaysxd 7 MIB(08.22,3) 

188 IF_xei OR yr29 OR Val AR Ly>e9 THEN 3420 4480 O3$eo2se" . STARDATE 
198 PRINTS nyn vay 4458 
18 Ager WeZiexy7ony 

148 GOSUB 86820 


PRINT USING 62%,MID(O8, 1,3, -MIR(A8.4, 3) oMID(O8,7,3). 


weanwe 

PRINT USTNG 038,MID(OS,25,3),M7D(Q8,98,3) ,MID(MS. 31,3), 
MID (08,34, 3).MTOOR, 37733, MID(Q9.49,3), 
MIB(Q8.43,3).M7D (0%, 46.3957 


LY) IF_7380 THEN 3070 4460 04900286" CONDIYIAN \ \n 
160 GOTO 2060 4468 PRINT USING 048,MI0(08, 49,3) MID(GS, 52,39 .MID(RS, 55,39), _ 
78 ASOMSoannZiaxa72ey MIND (09.88.39 oM7D(0%.61+39,MIN(08.64,38).MID(O8,87.33, 
88  GOSUR 5680 ’ MID(O8.78,3).08 | 
18 IF_23e0 THEN 3220 4470 O8$en2ese . eencRaNt. ; ; 5 an 5 seiacyis 
20 PRINT "ees KLINGON DESTROYED wae” 4478 PRINT USTNG NBSMID(RG, 1,3) MIDCRS. 4.3) MIN (RBQ7,3), 
nM) B3ek3ef 1K9aKoes wrpeRmagig. gi HIDERS. 13. T3),MIDCRS «16,39 MTD (R81196359~ 
58 IF K9as9 THEN 4949 é (Rg a 
68 FOR Ye{TOSIIF INT(XI@>K(T.1) THEN $190 4476 PRINT ", "992 
88 IP INT¢CYI@KCT,2) THEN S209 4460 06880286" . SECTOR wn 
98 NEXT I 4488 PRINT USING 068%, MID(RS, 25, Nia TMIDOR®, 98,39, 
11) K(Y,3)801G0TN 3360 MID(R8,31,39, MTDERG. 34.39,MID(RSs37.3)-MTDER&, 40,33, 
28 AS” » "HZisye72ay : i MIDERS. +43,3).M7D~R&, 46,399,919 
se ir 23e0 7H 1498 eee tials TOTAL_ENERGY  dwuwaw” 
2 
ue SRTRESIYAUs cial beathoy STARS. SILLY" 4495 PRINT USING O7&,MIDCRS, 49,3) MID(RS, 52,3) MIN(RS, 55.3), | 
288 GOTO 3424 MID(RS.58,3) .MID/RE,61.39,MID(RS.64,3), MTD PRS, 67.3), 
9,39,8 
17) ASeM>lenr7(ays7o0y : MID(RS.79,33, . 
4596 NBKRN2he" PHOTON TORPFONES w##w" 
ie eee aE 2069 . 5 4565 PRINT USING O8$,MID(S8,1,3)MID($8.4.3) MID(88.743) MID(S9.19,3) « 
$48 = PRINT "eee STAR BASE DFSTRAYPD wee 0.8 CONGRATU! ATIONS® ‘ MIN (88.13.39 MTD (SS, 1653) MIDCS8.19,3) MIDESS, 2243) 5P 
ae pee apie prions 98, urpesseos, ne =urotse,26,3). MIR($8,35.3) 
' 4515 PRINT USING 98 8 = 
phe anata serpin MIN¢88.34,3). TMTDESE, 9753) MID (88.4003) MIDIS, 432 v, 
6 2) akK3e{BAsA3e1Asa3 : MIN (88.46,3).8 
ue Gof. ais E 4520 PRINT USING O18 
. PRINT "TORPEDO MISSED" 4630 RETURN 
se qth epee Seba ne 4690 REM eee LIARARY COMPUTFR CADF REGINS HFRF 
! HEN 40a 4630 IF _0¢8)>80 THEN 4660 
oo Meee ‘aia 4640 PRINT "COMPUTER DISARLFD"1ROTO. 1270 ‘ 
134 REM ##* SHTELD CONTROL CAOF REGINS HFRE 1666 INPUT "COMPUTER ACTIVE AND AWATTYNG FOMMANME "DA 
160 IF_D(7)>80 THEN 3490, 4680 IF As® GOTO 4740 
178 PRINT "SHIFLD CONTROL 7S NAN@OPERATIANAL® 4684 IF Awl GOTN 4836 
180 GOTO. 1278 4682 IF As2 GOTO 4aRna ; 
190 PRINT "ENERGY AVAILARLF a" Fosy 4698 PRINT ruler rons AUATC ABLE FROG COMPUTER: 
11) INPUT " | NUMBER OF UNTTS® TO SHIELNSE" 9X 4700 PRINT ® = CUMULATIVE GAL 
4740 PRINT ® { # STATUS REPARTH 
le us Gaede trap saan 4720 PRINT " 9 & PHOTON TARPENO DATA 
$3 FaksseXsSay ; 4730 GOTO 4660 ee ; 
30 60r0 1270 4731 REM wee CUMULATIVE GALACTIC RECORD CODE REGINS HFRF 
y § " 
554 REM wae DAMAGE CONTROL RFPART COME BPGINS HERE ae apa RECORD Ke SAY EOF PCAN nO nig 
560 TF_D¢69>80 THEN 3890. Rate ! Fee rg cA a oe eee ee ee 8h, 
570 PRINT “DAMAGE CONTROL REPORT 1s Nor AVATI ARBLE® ee Ab ta eects Seeee eeees eeeee eseen soace o 
580 GOTO 1270 ; e by ae 
me Site oF NHN, iE beNurlttausttta Soaitehy atten fhe te sett, 
10 FOR RisiTOR ’ ; A ’ 
1 7(T,7967(1289 : Tee Dia eee 
$28 GOSUR 5610 ” 7) ioe, Sore : 
¢ 4890 PRINTH sanvatsmern goose lecescllesscalscesuiesancneesse 
PRINTDERY 
+4 cere Ri ccneue fein NEXT ae 
568 GOTO 1279 aes 
370 PRINT'SHORY RANGE SENSARS REPORT NA KLINGONS IN THTS QUADRANT" 4624 REM eae STATUS REPORT CORE BFGINS HERE 
588 GOTO 1278 4830 PRINT " STATIS REPART® 
390 PRINT "KLINGON AT SECTAR "KCT.SI","K(T.2)"DESTROVEN ewalt anes BRENT NUMBER OF KLINGONS | EFT #"KQ 
) " Vak(T, 1) e72PaK(T, 9) 
Oe Se EEE gL ; sae peat 4854 PRINT "NUMMER nF STARDATE® Ler? are 
78 G(O1.O2) 8K3w(AAsBSei1 Head 4860 PRINT "NUMRER OF STARBASFS LFFT « 
r8O RETURN 4870 GOTO 3560 
A20 4880 PRINTSHB8D a 
41) TF _C&a>"NORKEDN THEN 3A20 : : 
3AB PRINT "STAR BASE SHIFLNS PROTECT THE ENTFRPRTSFN rH Bey eee TORPENO DATA CONE BFGYNS HERE 
4 race THEN 3910 4910 TF K¢I,3)<#0 THEN 5260 
ae A 4920 CimSirbes2ewiak(l, io eKekel.2) 
130 FOR TeasTOSrIF K(T,3)<09 THEN 3904 Be ea cerkt bate 
158 HeINTC(K(1,39/END(B) Def 24RND(19)99888= ’ 4 3 ee seh ibeiucnan ae 
A 97 PRINT*YOU ARE AT QUADRANT ¢ "Q{","A2" ) SeeTOR ¢ M8 
me BeINTH BS TO ENTERPR LSE AT SECTAR MKCTL NI". "KETS209 ears BRINE Pee Taeiieces BL seat ae ya eeeree te 
+ Aska 5 5010 YovoApAaCiow! 
me evans ee 5038 TF X<@ THEN 5130 
a 
1 5031 TF Aa® THEN 5190 
10 RETURN e : = a ae : ‘ 
20 PRINT "THE ENTFRPRISF TS _DFAD TN SPACE. IF YOU SURVIVE ALL TMPENDTNGY held ar ane THEW ee 
30 PRINT "ATTACKS YOU WILI RE DFMATFD TN THE RANK OF PRIVATE aa He @ 7 
48 VASE alae 5080 IF ABSfA) <= ARS¢(X) THEN 5118 
ee ove asian 5085 Mae EA Pere EAE ERT err 
e 5290 PRINT "DIRECTION #"VS 
ze BRINTHER TNE "TT TS STARDATFNYT Be Ae yy 7 Se 
. 5110 PRINT "DTRECTION s"CiefARS(A)/ABS(¥)9 
rod _«REW see NO_ENERGY LEFT F PENERATION WYLL RE 8199 6070 SD4n 
188 PRINTIPRINTYTHF ENTERPRISE HAS BFEN DESTROYED. THF PE ; > e 
120 PRINT "THERE ARE STILL "KON" KLINGON RATTIE CRUTSFRS", CONGUFRFD" S130 TF A>o ie Sie 
138 PRINTSPRINTEPRINTEPRINT "YAU GFT ANOTHFR CHANCN4.."9G0TO 239 eis pee eer cnt Bone 
540 PRINTEPRINT'THF LAST KI INGAN BATTLF CRUISER IN THE GALAXY pie SEEN ee Bigs pine coneazee 
Lt) PRINT"THF FEDERATION HAS BFEN SAVEDILILIM SPRINT ated cie7 
Bee Font ch77(t=18)1+1008) 5200 YF_ARS(A)>eABS/X) THFN 5930 
180 PRINT "YOUR EFFICIENCY RATING oHFS a ees ate etyscioaTinnsinacisn 7 inate 
88 BENE VpOR ACTUAL TIME OF MISSTON BRINTCOTIMF(A)=T7)/60)9" MINIITES® base RENT sAOUBEEE N BCLOPCTARS 
08 PRINTIPRINTEPRINT 5230 PRINT "DIRECTION BYCTSPARS/X9/ABS(A)) 
|A6 INPUT"DO YOU WANT TO TRY ARAYN"SRS Seca arnt koraranee einen tscus. Anas 
a7 Agee: ids “ae 5280 TF HAs! THEN 5320 
GOTO 651 af 
an REM ows SHORT RANGE SENSAR SCAN AND STARTING POINT CODF oeae NEXT 1 
ae FOR 1e81e170 sisi $280 INPUT "DA vou WANT TO WSF THE CALCULATOR") AS 
38 FOR JaS2=!T0 $24 " ssa TP LachveRs arise aera 
id PEPER DeR CRP EL ON ISSO Pee aanen are 5310 TF_A®@>"NO" THEN 5280 
50 AGSetmyahe7i als728J 5320 Goro 1279 
BD GOSUB) 5680 3321 REM wee END OF LIBRARY COMPUTER CODE Pee 
90 IF 7381 THEN 4240 5380 RUPINTCRNO (1) @ASlyIROBINT (ANN (1 5 aBsi ys Asan "e771 eR19798RQ 
2 NEXT J 5430  GOSUR 5680 
18 Next, I $440 TF 7380 THEN 5389 
28 = PBSBNGNTO asia 3450 RETURN 
40 DOL ECS AMON CKENNIESSHamIP aio poaran 5510 REM see FNSERTION IN STRING ARRAY FOR QUADRANT wee 
Rem eh Ahr oeUZELDS DROEPED OR (DECKING PURPOSE: 5520 $88 71024472 03e26;IF SB8>72 THEN 556A 
Pa SeanGOyOndser 5540 —«SSLFFT (AS. Sea!) sASsRIGHT (OS, 8843) 
108 IF K3>0 THEN 4359 5550 GOTO 5609 
Pee ceed itt THEN A578 5568 YF $8>144 THEN 5899 
KI) CBa"GREEN" 8570 RSBLFFT(RS. 88973) +ASSRIGHT IRE, 98269) 
140 GOTO 438A 5580 GOTO 5600 
58 CSRRRENMIGNTN 4380 5590 —« SS@LFFT(8$.884145) sASeRIGHT(S8.8Re1 41) 
78 Sharks emcee te 5690 RETURN ; aoe sents 
eG IF _DL2)>20 8610 REM «es PRINTS DEVICE NAME FROM ene 
198 PRINTIPRINT" ows SHORT RANGF SENSORS ARF OUT eee" PPRINT Raee BAER slPETTiEPaaA?2. WHEN Acca 
eB COTO FeO ee neice tie te ners sony 5649 PRINT MID(NS.SA,11),tGQTA 3670 
KY) Of $ et ecemwnecerecccenwcecn ence cocnanan oan SOINTERERRACaRcraLLOT 
35 PRINT USING M18 , , OG Re IE 5670 RETURN 
40 COS MSE Na NENENE NO NEN NEN NUN NT ACN 


203 


5688 REM weeSTRING COMPARTSAN IN QUADRANT ARRAYewe 

5699 S871 oDde7Z>e3eI6ITIOALVE S8>72 THEN 5750 

5720 IF MYD(OS,88,31<>As THEN SALMA 

5730 73eLIGNTA 5812 

5750 TF SA>144 THEN 5799 

57620 TF MID(RS. 88-79,3)<>4$ THEN 5810 

5778 73211G9TN 5810 

5790 TF MYD(S%,88= 144,39<>A® THEN SALA 

5800 7301 

5810 RETURN 

5828 an INSTRUCTIONS" 

5a24 RgRV THE GALAXY JS DIVINEN TNTO AN &,& QUADRANT GRID" 

5822 RAWHTCH YS IN TURN DIVIDED INTN AN 8.8 SFCTOR GRID. F 

5823 RENN THE CAST OF CHARACTERS Y8 AS FOLILOWS®" 

5830 nQ<e> @ FNTERPRISE" 

3840 Rises & KLINGOND 

5853 RM>l< eB STARRASE"?® " » & STAR" 

5870 RYCOMMANR A & WARP ENGYNE PONTROL |" . = 

5880 2" eOURSE IS TN A CYReUL AR NUMERTEAI Ch seit hs 

5890 2" VECTOR ARRANGEMENT A& SHOWN, ey ta 

5900 an INTEGER ANB REAL VALIIES MAY BE Navn 

5910 a USED. THEREFORE CNURSF {- 5 18 5 ecere i" 

5920 a" HALF WAY BFTWEEN 4 AND 2. sav" 

5938 an : ¥ ZL aeNS 

5940 2" A VECTOR OF 9 TS UNDFFYNFD,. RUT Cy 7A LT 

59590 Rn VALUFS MAY APPROACH 4," 

5960 Re COURSE" 

5970 R" ONF WARP FACTOR YS THE SYZF AF" 

5980 rn ANE QUADRANT» THEREFORE 19 GEY" 

59900 a" FROM QiiADRANT 6,5 70.5.5 YOU wauLon 

60090 2" USF COURSE 3. WARP FACTOR (" 

6005 R 

6250 RYCOMMAND § = SHORT RANGE SENSAR SPANY 8 

6020 2" PRINT THF QUADRANT YOU ARE CURRENTLY IN. TNCLUDTNG" 
6030 2" STARS, KLINGONS, STAPBASFS. AND THE FNTERPRISE., ALANG" 
6040 2" WITH OTHER PFRTINATE INFORMATION. " 

6045 RER"COMMANA 2 & LONG RANRE SFNSOR SCAN" 

6060 Rt" SHOWS CONDITIONS IN SPACF FOR ANF QUADRANT ON FACH STDF¥ 
6070 2" OF THE ENTFRPRISF YN THE MYDNLF AF THE SCAN, THE SCAN" 
6080 a" 18 CADFD IN THE FORM X¥X, WHFRF THF IINTTS NIGYT TS THE " 
6098 2" NUMBFR OF STARS, THE TENS AIGIT TS THE NI'MRER OF STARR" 
6140 R" RASES. THF HUNDRENS DIGTT I8 THF NUMBFR OF KLTNGONS =" 
6110 RIRUCOMMAND 3% = PHASFR CANTRAL" 

6120 rg" ALLOWS YOU TA DESTROY THF KLTNGONS BY HITTING HIM WITH" 
6130 R" SUTTABIY LARGE NIIMRERS OF FNFRGY UNITS TO NEPLETF HIS " 
61420 2" SHYELD PAWFR. KFEP YN MTNA YHAT WHEN Yoll SHOOT AT HTM." 
6152 a" WE GANNA SHOOT AT voll, TAO!" 

6162 ReV"COMMAND 4 & PHNTON TRRPENO CANTRAL" 

6178 2" COURSE I8 THE SAME A& JISFD TN WARP ENGINE CONTRO! * 

6189 an TF YAU HTT THE KIINGON, HE TS PESTROYEN AND CANNOT FIRE" 
6198 an RACK AY vOll, TF YOU MYSS, YOU ARE SIIBJECT TO HTS " 
6200 an PHASFR FYRF," = 

6218 nee NOTE? THE LIBRARY COMPUTER (CAMMAND 71 HAS 4N OPTTON" 
6220 i" 79 CAMPUTE TORPENO TRATECTARY FOR VOI) fOPTTON 29." 

6230 RIL" COMMAND 5 & SHTELD CANTRAL" E 

6240 RQ" MEFINES NUMBER OF FNFRGY UNITS TO RE ASSIGNED TO SHIFLNS" 
6259 R" ENERGY IS TAKEN FROM _TATAL SHIP'S FNERGY. 

6281 R" NOTE THAY TOTAL FNFRY TNCLIIDFS SHIFLN petane " 

6260 RiR"COMMAND & # MAMAGE CANTRAL REPORT" 

6270 2" GIVES STATE OF RFPAT®S OF ALL DEVICES. A STATE MF RFPATRN 
6288 2" LESS THAN 7EROQ SHOWS THAT THF NEVICE IS TEMPMRARALY" 
6298 rR" MAMAGEN," 

6340 ReRQNCOMMAND 7 f& LIRRARV POMPIITERN 

6318 2" THE | IRRARY COMPIITFR CONTAINS THREF MPTTONSe” 

6320 gn OPTION @ © CIMIILATYVF GALACTIC RFCARA" 

6330 an WHTCH SHOWS FOMPIITFR MEMORY OF THE RESULTS" 

6348 au OF ALL PREVIAUS | ONG RANGE SFNSOR SCANS" 

6350 an MPTION 1 & STATUS PEPORT" é 

63460 at WHTCH SHOWS NUMBER oF KLINGONS, STARNATES," 

6370 an AND STARBASES Veer 

6380 an MPTIAN 2.8 PHOTON caaeten Narat 

6396 gt GIVES TRAJECTORY AND DTSTANCF RETWFEN THF" 

6498 an FNTERPRYSE AND AiL KI INGONS TN YAUR QUADRANT" 

6500 GOTO 230 

6510 FND 

SAMPLE RUN 


YOU MUST DESTROY 12 


KLINGONS IN Z& STARDATES WITH 3 STARBASES 


oD STARDATE 
CONCITION 
* GUADRANT 
SECTOR 
TOTAL ENERGY a 
PHOTON TORPEDOES 14 
SHIELDS. a 
COMMAND: ? 2 
LONG RANGE SENSOR SCAN FOR GUACDRANT 2. = 
b=) 4 te 
COMMAND: ? & 
COURSE K4a—99e7 -& 
WARP FACTOR <@- cic: 
COMBAT AREA CONDITION REC 
SHIELDS DANGEROUSLY LOW 
+++ 
CHD STARDATE ezar 
CONCITION REC 
GHUAIC RAIN T So) 
* * * SECTOR en & 
TOTAL ENERGY ee 
PHOTON TORFECOES 1a 
* SHIELOS a 


COMMAND: ? 5S 


ENERGY AVAILABLE = 2997 


NUMBER OF UNITS TO SHIELDS: 7 2Ae 


COMMAND: 7 7? 


COMPUTER ACTIVE AND AWAITING COMMAND: 7 2 
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DIRECTION = 4 
DISTANCE = 14. 44424 
DO YOU WANT TO USE THE CALCULATOR? NO 
COMMAND: ? 4 
TORPEDO COURSE (1-9)9:7 4 
TORPEDO TRACK: 
Here oe) 
acme KLINGON DESTROYED **# 


COMMAND:? & 
COURSE (1-93:7 7 
WARP FACTOR (@-8):7 3 


<#> STARCATE 
a CONCITION 
QUADRANT 
SECTOR 
TOTAL ENERGY 
FHOTON TORPEDOES 

a SHIELDS 

COMMAND: ? @ 
EOURSE <2=S07 s 
WARP FACTOR we 


STARDATE 
CONDITION 
* GUACRANT 
+++ * SECTOR 
* TOTAL ENERGY 
* PHOTON TORPEDOES. 
SHIELDS 
COMMAND: ? 7? 
COMPUTER ACTIVE ANC AWAITING COMMAND: ? 2 


DIRECTION = 6 

DISTANCE = 4. 4264 

DO YOU WANT TO USE THE CALCULATOR? NO 
COMMAND: ? 4 

TORPEDO COURSE (1-9):7 6 

TORPEDO TRACK: 


nas 
Pee | 


see KLINGON DESTROVED ### 

COMMAND: ? @ 

EQURSE, G1-99) 770% 

WARP FACTOR (@-&):7 4 

WARP ENGINES SHUTDOWN AT SECTOR & ». 4.5 


STARDATE 
CONDITION 
QUADRANT 

SECTOR 

TOTAL ENERGY 
PHOTON TORPEDOES 
SHIELOS 
COMMAND: 7 ? 

COMPUTER ACTIVE AND AWAITING COMMAND: 7 & 

COMPUTER RECORCG OF GALA FOR GUADRANT f . 7 


4 2 z 4 5 6 if § 
4 ts) 5 £ 7 a a a a 
2 is] g 4 2 a a a a 
3 g 4 2 164 a a a a 
4 8 4 5 5 a a a a 
S 6 ic 2 2 a Ua) & 
6 8 ? $ 5 2 bs 2 a 
t/ tS) & ef 14 & 12 6 & 
8 6 6 a 2 Cl 142 & a 
COMMAND: ? 6 
COURSE ¢1-9):7 3 
WARP FACTOR ¢@-8):7 5 
STARDATE 
CONDITION 
Ne GUACRANT 
SECTOR 
: *” TOTAL ENERGY’ 
<*> PHOTON TORPEDOES 
fe SHIELDS 


COMMAND: ? 2 
LONG RANGE SENSOR SCAN FOR QUADRANT 2 & 


’ 


6 2 z 
(é eles = 
4 & § 


COMMAND: ? 7 

COMPUTER ACTIVE ANC AWAITING COMMAND: ? 4 
STATUS REPORT 

NUMBER OF KLINGONS LEFT = 6 


NUMBER OF STARDATES LEFT = 22 
NUMBER OF STARBASES LEFT = = 
DEVICE STATE OF REPAIR 
WARP ENGINE i) 


S.R. SENSOR & 

L.R. SENSOR 2. 73447 

PHASER CNTR a 

PHOTON TUBE a 

DAMAGE CNTR & 
a 


SHIELD CNTR 


CUE TO BAC NAWAGATION 


SPLAT 


Description 


OPEN A PARACHUTE AT THE LAST MOMENT 


SPLAT simulates a parachute jump in which you try to open your 
"chute at the last possible moment without going splat: You 
may select your own terminal velocity or let the computer do 

it for you. You may also select the acceleration due to gravity 
or, again, let the computer do it in which case you might wind 
up on any of the eight planets (out to Neptune), the moon, or 
sun. 


The computer then tells you the height you're jumping from and 
asks for the seconds of free fall. It then divides your free 
fall time into eight intervals and gives you progress reports 
on your way down. The computer also keeps track of all prior 
jumps in the file PARACH.UTE and lets you know how you compared 
with previous successful jumps. 


Program Author 


John F. Yegge 
Oak Ridge Associated Universities 
Oak Ridge,TN 37830 
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PROGRAM LISTING 


32 

40 

55 

95 

96 

97 

118 
119 
128 
{2i 
123 
125 
128 
130 
131 
135 
136 
140 
141 
143 
145 
1590 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
205 
206 
207 
208 
210 
241 
215 
217 
218 
219 
322 
310 
320 
330 
348 
350 
362 
400 
405 
410 
428 
430 
440 
450 
500 
512 
5308 
550 
560 
570 
580 
6008 
620 
6308 
658 
660 
672 
682 
698 
695 
700 
701 
702 
703 
718 
7i1 
712 
722 
7214 
730 
731 
748 
741 
742 
758 
754 
“ee 
820 
6Q1 
882 
823 
804 
825 
826 
807 
808 
829 
we) 
100 
{a1 
102 
195 
200 
230 
200 
200 
208 
200 
204 
999 


OPEN “PARACH,UTE" AS FILE 1% 
DIM #1%,A( 4000) 
RANDOMIZE 
PRINT "WELCOME TO 'SPLAT! == THE GAME THAT SIMULATES A PARACHUTE" 
PRINT "JUMP, TRy TO OPEN yOUR CHUTE AT THE LAST POSSIBLE" 
PRINT "MOMENT wItHOuy GOING SPLAT," 
PRINT\PRINT\DISG\VEC\ARO\NBC\MBOXDI SINT (9AOL#RND (1) +1000) 
PRINT " SELECT YOUR OWN TERMINAL VELOCITY CYES OR NO)"P\INPUT ALS 
IF AiS#"NO" THEN 128 ELSE IF A1$s"yES" THEN 123 
PRINT "tyEg! OR 'NO' PLEASE" S\INPUT AL1S\GOTO 120 
PRINT "WHAT TERMINAL VELOCITY (MI/HRI"S\INPUT V1 
VieVie (5280/3602) \VaVvie((V1#RND(O))/20)"( (VI#RND())/20)\GOTO 135 
VIBINTCI1ABAwRND (A) ) 
PRINT "OK, TERMINAL VELOCITY a"Vi"MI/HR" 
VieVie (5280/3600) \VaVis((VL#RND(O))/20) HC (VL#RND(O))/20) 
PRINT "WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)"} 
INPUT B18 
IF B8igs"NO" THEN 150 ELSE IF Bigs"YES" THEN 143 
PRINT wtYES! OR !NOt PLEASE" P\INPUT Bis\GOTO 1428 
PRINT "WHAT ACCELERATION (FT/SEC/SEC)"I\INPUT A2 
AeA2+((A2#RND(A))/20)=(CAZ*RND(B) 1/28) \GOTO 205 
ON INTCL#(1D#RND(Q)))GOTOLS1, 152,153,154, 155,156,157, 158,159, 160 
PRINTMFINE, YOU'RE ON MERCURY, ACCELERATION#12,2FT/SEC/SEC"\GOTOIOL 
PRINT'ALRIGHT, YOU'RE ON VENUS. ACCELERATION#=28,3 FT/SEC/SEC"\GOTO162 
PRINT "THEN YOU'RE ON EARTH, ACCELERATION®32,16 FT/SEC/SEC"\GOTO 163 
PRINT"FINE, YOU'RE ON THE MOON, ACCELERATION®#S.15FT/SEC/SEC"\GOTO 164 
PRINT"ALRIGHT, YOU'RE ON MARS, ACCELERATION®12,5FT/SEC/SEC"\GOTO 165 
PRINT" THEN YOU'RE ON JUPITER, ACCELERATION#®85,2FT/SEC/SEC"\GOTO 166 
PRINT"FINE, YOU'RE ON SATURN, ACCELERATION®37,6FT/SEC/SEC"\GOTO 167 
PRINT"ALRIGHT, YOU'RE ON URANUS, ACCELERATION®33,8FT/SEC/SEC"\GOTO 168 
PRINT"THEN YOU'RE ON NEPTUNE, ACCELERATION#39,6FT/SEC/SEC"\GOTO 169 
PRINTUFINE, YOU'RE ON THE SUN, ACCELERATIONS896FT/SEC/SEC"\GNTO 178 
A2#12,2\GOTO 145 
A2228,3\GOTO 145 
A2"32,16\GoTO 145 
A2*5,16\GOTO 145 
a2ei2.5\GOTO 145 
A22085,2\GOTO 145 
A2837,6\GOTO 145 
A2®33,8 \GOTO 145 


A2®39,6\GOTO 145 

A2®896\GOTO 145 

PRINT 

PRINT " ALTITUDE e"O."Frh 

PRINT " TERM,VELOCITY B'"VINFT/SEC +95%" 
PRINT " ACCELERATION B"AQ"FT/SEC/SEC +=5%" 


PRINT "SET THE TIMER FoR YOUR FREEFALL." 
PRINT "HOW MANY SECONOS"}F\ INPUT T 
PRINT "HERE WE GO," 

PRINT 

PRINT "TIME (SEC)","DIST TO FALL (FT)" 
PRINT "“sscasasens","secsecusussesnases" 
FOR Ima TO T STEP (1/8) 

IF I>VsA GOTO 400 

DsD1e((A/2) #1a2) 

IF D<aa GOTO 1420 

PRINT J,D 

NexT I 

GOTO 520 

PRINT "TERMINAL VELOCITY REACHED AT T PLUS"V/A"SECONDS" 
FOR Isl TO T STEP (1/8) 

DED ac (VA2/(2wA) po (Vu(l=(V/4)))) 

IF D<#a GOTO 16190 

PRINT I,D 

NExT I 

GoTG 5ae 

PRINT "CHUTE OPEN" 

KeO\Ki8a 

FOR Iei TO 4000 

IF ACI)#@ GOTO 6208 

Kakey 

IF D>#A(I) GOTO 694 

Kiekiel 

NEXT I 

Acr) 8D 

1#tet 

IF K=Kica.1#K GOTO 702 

IF KeKi<#,25*K GOTO 710 

IF KeKi«ce,5*K GOTO 720 

IF KeKki<e,75¥K GOTO 730 


IF KeKi<#,9#K GOTO 740 
GOTO 75¢ 
PRINT "wOwl THAT'S SOME JUMPING, OF THE"K"SUCCESSFUL JUMPS" 


PRINT "BEFORE YOURS, ONLY"K=Ki"OPENED THEIR CHUTES LOWER THAN" 


PRINT "yOu DID," 
GOTO 2000 
PRINT "PRETTY GooDI " K"SUCCESSFUL JUMPS PRECEDED YoURS AND QNLY" 


PRINT KeKi" OF THEM GoT LOWER THAN YOU DIO BEFORE THEIR CHUTES" 
PRINT "OPENED," \GOTO 2008 

PRINT "NOT BAD, THERE HAVE BEEN"K"SUCCESSFUL JUMPS BEFORE YOURS," 
PRINT"YOU WERE BEATEN OUT BY"KeKi"OF THEM."\GOTO 2020 

PRINT "CONSERVATIVE AREN'T YOU? YOU RANKED ONLY"kKekKi"IN THE" 
PRINT K"SUCCESSFUL JUMPS BEFORE YOURS,"\GOTO 22000 

PRINT "HUMPH] DON'T YOU HAVE ANY SPORTING BLOOD? THERE WERE” 
PRINT K"SUCCESSFUL JUMPS BEFORE YOURS 4ND YOU CAME IN"K1i" JUMPS" 
PRINT "BETTER THAN THE WORST, SHAPE UPIL!}1"\GOTO 2e4n 

PRINT "HEY} YOU PULLED THE RIP CORD MUCH TOO SOON, "K"SUCCESSFUL" 
PRINT wJUMPS BEFORE YOURS AND YOU CAME IN NUMBER"K=Kiny GET WITH ITy" 
GOTO 2000 

PRINT "REQUIESCAT IN PACE,"\GOTO 1950 

PRINT "MAy THE ANGEL OF HEAVEN LEAD yOy INTO PARADISE"\GOTO 195% 
PRINT "REST IN pEACE"\GoTo 1958 

PRINT "SONtOF*A=GUN"\GOTO 1950 

PRINT "#S%88XIS"\GOTO 1950 

PRINT "A KICK IN THE PANTS IS A BOOST IF YOU'RE HEADED RIGHT"\GOTO 1958 
PRINT "HMMM, SHOULD HAVE PICKED A SHORTER TIMEs"\GOTO 1954 

PRINT "MUTTER, MUTTER, MUTTER,"\GOTO 1959 

PRINT "PUSHING UP DAISIES,"\GOTO1950 

PRINT “EASY COME, EASY GO,"\GOTO 1958 

O PRINT SOR(2*D1/A), "SPLAT" 
5 ON INT(1+(1@*RND(@)))GOTO 800,801,802,803,804,805,806,6807, 808,809 
@ PRINT (V/A) 4C(DOL=(VA2/(24A)))D/VI p> "SPLAT" 

@ GOTO 1005 
@ PRINT "I'LL GIVE YOU ANOTHER CHANCE,."\GOTO 2090 
@ PRINT "DO YOU WANT TO PLAY AGAIN"S\INPUT 28 

1 IF ZSs"YES" GOTO 118 
2 IF Zse"NO" GOTO 2005 
3 PRINT "YES OR NON\GOTO 2003 


5 PRINT "PLEASE"3\ INPUT ZS\IF ZSe"YES" THEN 118 ELSE 2607 

7 PRINT "SSSSSSSSSS,"\GOTO 2046 

6 CLOSE 1% 

9 END 206 


SAMPLE RUN 


WELCOME TO ‘SPLAT’ -- THE GAME THAT SIMULATES A PARACHUTE 
JUMP. TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE 
MOMENT WITHOUT GOING SPLAT+ 


SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)? NO 
OK. TERMINAL VELOCITY = 796 MI/HR 
WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)? NO 
FINEe YOU'RE ON MERCURY- ACCELERATI ON#=12¢2FT/SEC/SEC 


ALTITUDE = 9297 FT 
TERM. VELOCITY = 1167-47 FT/SEC +-5% 
ACCELERATION = 1262 FT/SEC/SEC +-5% 


SET THE TIMER FOR YOUR FREEFALLe« 
HOW MANY SECONDS? 8 
HERE WE GO- 


DIST TO FALL (FT) 
sesasaasssss5522= 
9297 

9290.88 

9272-51 

9241.89 

9199.82 

9143-91 

9876655 

8996094 

8905-09 


TIME (SEC) 


QAAUNEwWNHeK@B 


CHUTE OPEN 

CONSERVATIVE AREN'T YOU? YOU RANKED ONLY 9 IN THE 
14 SUCCESSFUL JUMPS BEFORE YOURS- 

DO YOU WANT TO PLAY AGAIN? YES 


SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)? NO 
OK. TERMINAL VELOCITY = 971 MI/HR 

WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)? NO 
FINEs YOU'RE ON MERCURY- ACCELERATION=12.2FT/SEC/SEC 


ALTITUDE = 5884 FT 
TERM. VELOCITY = 1424.13 FT/SEC +-5% 
ACCELERATION = 1262 FT/SEC/SEC +-5% 


SET THE TIMER FOR YOUR FREEFALL« 
HOW MANY SECONDS? 8@ 
HERE WE GO- 


TIME (SEC) DIST TO FALL (FT) 
ssassssses sasessssssessec2= 
@ 5884 

10 5295 

20 3527-99 

38 582097 

31-6866 SPLAT 


PUSHING UP DAISIES. 
I"LL GIVE YOU ANOTHER CHANCE. 
DO YOU WANT TO PLAY AGAIN? YES 


SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)? NO 
OK. TERMINAL VELOCITY = 748 MI/HR 
WANT TO SELECT ACCELERATION DUE TO GRAVITY CYES OR NO)? NO 
THEN YOU'RE ON NEPTUNE. ACCELERATION=39«6FT/SEC/SEC 


ALTITUDE = 5189 FT 
TERM.- VELOCITY = 1085-33 FT/SEC +-5% 
ACCELERATION = 3966 FT/SEC/SEC +-5% 
SET THE TIMER FOR YOUR FREEFALL.« 
HOW MANY SECONDS? 18 
HERE WE GOe 


TIME (SEC) DIST TO FALL (FT) 
sessssa=55 sessssess52S55555 
1) 5189 

2.25 5889.74 

AeS 4791295 

6-75 4295-63 

9 3600-78 

11.25 278764 

1365 161565 

15-75 325-872 

1662678 SPLAT 


MAY THE ANGEL OF HEAVEN LEAD YOU INTO PARADISE 
I*LL GIVE YOU ANOTHER CHANCE. 
DO YOU WANT TO PLAY AGAIN? YES 


STARS A NUMBER GUESSING GAME 


Description 


In this game, the computer selects a random number from 1 to 100 
(or any value you set in Statement 150). You try to guess the 
number and the computer gives you clues to tell you how close 
you're getting. One star (*) means you're far away from the 
number; seven stars (*******) means you're really close. You 
get 7 guesses. 


On the surface this game is very similar to GUESS; however, the 
guessing strategy is quite different. See if you can come up 
with one or more approaches to finding the mystery number. 


Program Author 


Bob Albrecht 
People's Computer Company 
Menlo Park, CA 94025 


2oy 


PROGRAM LISTING 


108 REM #* STARS © PEOPLE'S COMPUTER CENTER, MENLO PARK, CA 
110 PRINT "STARS © A NUMBER GUESSING GAME" 

120 PRINT 

130 RANDOMIZE 

{40 REM eee A IS LIMIT ON NUMBER, M IS NUMBER OF GUESSES 
150 LET Asioa 

160 LEY M87 

170 PRINT "Do YOU WANT INSTRUCTIONS (18YES @3NO)"3 

180 INPUT Z 

190 IF Z#d THEN 280 

200 REM #*#* INSTRUCTIONS ON HOW TO PLAY 

210 PRINT "J AM THINKING OF A WHOLE NUMBER FROM 1 TO"jA 
220 PRINT "TRY TO GUESS MY NUMBER, AFTER YOU GUESS, I" 

230 PRINT "WILL TYPE ONE OR MORE STARS (#), THE MORE" 

240 PRINT "STARS I TYPE, THE CLOSER YOU ARE TO MY NUMBER," 
250 PRINT "ONE STAR ¢#) MEANS FAR AWAY, SEVEN STARS (H#eewew)" 
260 PRINT "MEANS REALLY CLOSES YOU GET"#MI"GUESSES," 

270 REM ##* COMPUTER 'THINKS! OF A NUMBER 

288 PRINT 

290 PRINT 

3OQ LET XBINTCA*RND(Q)) +4 

31@ PRINT "OK, I AM THINKING OF A NUMBERe START GUESSING," 
322 REM ##* GUESSING BEGINS, HIIMAN GETS M GUESSES 

330 FOR Ke{ TO M 

342 PRINT 

35@ PRINT "YOUR GUESS") 

368 INPUT G 

370 IF GeX THEN 600 

380 LET D#ABS(X"G) 


390 IF D >#® 64 THEN 51@ 
400 IF D >= 32 THEN Saa 
410 IF D >® {6 THEN 4998 
420 IF D >= 8 THEN 488 
430 IF D >e@ 4 THEN 470 
440 IF D >B 2 THEN 460 


45@ PRINT "wry 

460 PRINT "Nwly 

470 PRINT "w"y 

480 PRINT "ery 

498 PRINT "o"y 

5Q0 PRINT "ens 

512 PRINT Nelly 

520 PRINT 

530 NEXT K 

540 REM *** DID NOT GUESS NUMBER IN M GUESSES 
550 PRINT 

56@ PRINT "SORRY, THATIS"¢M$"GUESSES, NUMBER WAS" 3X 
580 GOTO 289 

590 REM w#w WE HAVE A WINNER 

600 FOR N®i TO 58 

610 PRINT "e"p 

62@ NEXT N 

63@ PRINT "J1i" 

640 PRINT "YOU GOT IT IN "skKs"GUESSESI1 LET'S PLAY AGAIN..." 
650 GOTO 289 

662 END 


SAMPLE RUN 


STARS - A NUMBER GUESSING GAME 


O00 YOU WANT INSTRUCTIONS (41="ES @=N0)? 2 

TAM THINKING OF A WHOLE NUMBE FROM 1 TO 144 

TRY TO GUESS MY NUMBER. AFTER YOU GUE I 

WILL TYPE ONE OR MORE STARS (#). THE MORE 

STARS I TYPE. THE CLOSER YOU ARE TO MY NUMBER 

ONE STAR ¢#) MEANS FAR AWAY SEVEN STARS (stats ) 
MEANS REALLY CLOSE! YOU GET 7 GUESS 


OK. I AM THINKING OF A NUMBER. START GUESSING 


YOUR GUESS? 56 
Hoe 


YOUR GUESS? 
Se ok 


~s 
an 


YOUR GUESS? 57 
See tO 


YOUR GUESS? 68 
OI HC HOH 


YOUR GUESS? 69 
OICICIOR IO HOIIHOI AICHE HEE AE EAE HE EME eae HE fe fe Eo 
YOU GOT IT IN 6 GUESSES!! > PLAY 


eof ee Nee tt 
AGAIN. . 
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OK, I AM THINKING OF A NUMBER. START GUESSING 


YOUR GUESS? 38 
sek 


YOUR GUESS? 56 
Ha a HCE 


YOUR GUESS? 53 
SOIC ICI AIRC HAC aC aE Aa oR oR aS ASHE EE Me se Eo ea ee ee ee ede etek 
YOU GOT IT IN Z GUESSES!! LET’S PLAY AGAIN. . 


OK, I AM THINKING OF A NUMBER. START GUESSING 


YOUR GUESS? 26 
2h 


YOUR GUESS? 65 
ete 


YOUR GUESS? 38 
ek ae o 


YOUR GUESS? 22 
Heok fete 


YOUR GUESS? 738 
He RE 


YOUR GUESS? ?? 
JESSICA GR a aaa aca anaes dee ea ok ae ab kako ee kate te dete of 
YOU GOT IT IN 6 GUESSES!! LET“S PLAY AGAIN. . 


OK. I AM THINKING OF A NUMBER. START GUESSING 


YOUR GUESS? 24 
naa 


YOUR GUESS? 44 
eMC Ao 


YOUR GUESS? 58 
Heb 


YOUR GUESS? 35 
sete ea A 


YOUR GUESS? 465 
SEIGIOIGIOCIICIOIGEACIACIORSIC TCA AR CIE Nea Ae aback aa a aca fea aaa ateateae ET 
YOU GOT IT IN 5 GUESSES!! LET“S PLAY AGAIN. . 


OK, I AM THINKING OF A NUMBER. START GUESSING 


YOUR GUESS? 3a 
ok 


YOUR GUESS? 32 
YOUR GUESS? 24 
sete 


YOUR GUESS? 42 
SH OE 


YOUR GUESS? 46 


SIGIOIIOIIOI CI IC ACHE HE ACHE AE RCA HESS A HEE fee a oi eae A oi fee ae eae ate Me eae se EE 
Your GOT Pi TN- 5, GUESSES I LETS PEAY AGAIN, - 


OK, I AM THINKING OF A NUMBER. START GUESSING 


YOUR GUESS? 368 
ee a a 


YOUR GUESS? 44 
sone 


YOUR GUESS? 18 
HEME tee ok 


YOUR GUESS? 16 
ek ake 


YOUR GUESS? 
Hee a ote te ae 


fh 
Lx} 


YOUR GUESS? 24 
JOISICICIOICICICICIO CCK ACIEICCIOICE SIA ACI I ACA ASAE AE AEA HE A aia atest eae atta 
YOU GOT IT IN 6 GUESSES!! LET’S PLAY AGAIN... 


STOCK PLAY THE STOCK MARKET 


Description 


This program "plays" the stock market. You will be given $10,000 
and may buy or sell stocks. Stock prices and trends are generated 
randomly; therefore, this model does not represent exactly what 
happens on the exchange. (Depending upon your point of view, you 
may feel this is quite a good representation!) 


Every trading day, a table of stocks, their prices, and number of 
shares in your portfolio is printed. Following this, the initials 
of each stock are printed followed by a question mark. You in- 
dicate your transaction in number of shares--a positive number 

to buy, negative number to sell, or 0 to do no trading. A 
brokerage fee of 1% is charged on all transactions (a bargain!). 
Note: Even if the value of a stock drops to zero, it may re- 
bound again--then again, it may not. 


Source 


A good stock market game for EduSystem 30 was submitted by John 
Tieman of Adlai Stevenson High School, Prairie View, Illinois; 
it was written by a student named Gidzinski. Another one was 
written by G. Clayton Jobel of Concord, NH, for EduSystem 10: 
The authors of the one printed are: 


D. Pessel, L. Braun, C. Losik 
Huntington Computer Project 
SUNY 

SeOony brook, NY 


© 1962 byE.C. Publications 
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PROGRAM LISTING 


{80 REM STOCK MARKET SIMULATION eSTOCKs 

{81 REM REVISED 6/18/70 (D. PESSEL, L, BRAUN, Cy LOSIK) 

1o2 REM IMP VRBLSt AeMRKT TRND SLP) BSeBRKRGE FEE) CeTTL CSH ASSTS) 
103 REM C5eTTL CSH ASSTS (TEMP)) CCI)*CHNG IN STK VAL} DeTTL ASSTS! 


{4 REM E1,E2eLRG CHNG MISC} IwSTCK #} I1,12@STCKS W LRG CHNG) 

105 REM Ni,N2eLRG CHNG DAY CNTS) PS@TTL DAYS PRCHSS} P(I)@PRTFL CNINTS} 
{26 REM Q9eNEW CYCL7) S4eSGN OF A} 
{07 REM TeTTL STCK ASSTS) TO=TTL VAL OF TRNSCTNS) 

{188 REM W3eLRG CHNG) X1eSMLL CHNG(<S1)# 24,25,Z6@NYSE AVE.) ZCI) @TRNSCTNe 
{09 PRINT TABC20)s"THE STOCK MARKET" 

Tid DIM 8(5),P(5)-2(5),C(5) 
{12 REM SLOPE OF MARKET TRENDSA 
1443 RANDOMIZE 

144 LET ABINTCCRND(X)/12@)#1886,5)/100 

115 LET 1580 

116 LET x980 

117 LET Nieo 

118 LET N20 

119 LET Eiea 

120 LET E290 

{21 REM INTRODUCTION 

122 PRINT "DO YOU WANT THE INSTRUCTIONS (YES@TYPE 1, NO@TYPE 8)") 

123° INPUT 29 

124 PRINT 

125 PRINT 

126 IF Z9<1 THEN 200 

{30 PRINT "THIS PROGRAM PLAYS THE STOCK MARKET, YOU WILL BE GIVEN" 
{32 PRINT "$10,000 AND MAY BUY OR SELL STOCKS, THE STOCK PRICES WILL" 
{34 PRINT "RE GENERATED RANDOMLY AND THEREFORE THIS MODEL DOES not" 
{35 PRINT "REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE. A TABLE" 
{36 PRINT "OF AVAILABLE STOCKS, THEIR PRICES, AND THE NUMBER OF SHARES" 
137 PRINT “IN YOUR PORTFOLIO WILL BE PRINTED, FOLLOWING THIS, THE" 
{38 PRINT "INITIALS OF EACH STOCK WILL BE PRINTED WITH A QUESTION" 

139 PRINT "MARK, HERE YOU INDICATE A TRANSACTION, TO BUY A STOCK" 
{4a PRINT "TYPE #NNN, TO SELL A STOCK TYPE =NNN, WHERE NNN IS THE" 

{41 PRINT "NUMBER OF SHARES, A BROKERAGE FEE OF 1% WILL BE CHARGED" 
{42 PRINT "ON ALL TRANSACTIONS, NOTE THAT IF A STOCK'S VALUE DROPS" 
{43 PRINT "TO ZERO IT MAY REBOUND TO A POSITIVE VALUE AGAIN, YOU" 

{44 PRINT "HAVE $10,000 T0 INVEST, USE INTEGERS FOR ALL YOUR INPUTS," 
{45 PRINT "CNOTE! TO GET A 'FEEL! FOR THE MARKET RUN FOR AT LEAST" 
“46 PRINT “ie DAYS)" 

147 PRINT "w=e-2GO00D LUCK] <-%-"" 

200 REM GENERATION OF STOCK TABLES INPUT REQUESTS 

2140 REM INITIAL STOCK VALUES 

220 LET S(1)#100 

230 LET s(2)#85 
“240 «LET $(3)#150 

250 LET $(4)2140 

260 LET $(5)#112 

265 REM INITIAL T8 = # DAYS FOR FIRST TREND SLOPE (A) 

266 LET T8BINT(4,99#RND(X) 41) 

267 REM RANDOMIZE SIGN OF FIRST TREND SLOPE (A) 
“268 IF RND(X)>,5 THEN 270 

269 LET AeA 

270 REM RANDOMIZE INITIAL VALUES 

280 GOSUB 830 

285 REM INITIAL PORTFOLIO CONTENTS 

290 FOR Isi TO 5 
“308 LET PC(I)8@ 

305 LET Z¢I)8a 

310 NEXT I 

328 PRINT 

330 PRINT 

333 REM INITIALIZE CASH ASSETS:C 

335 LET c#ia0a0 

338 REM PRINT INITIAL PORTFOLIO 

340 PRINT "STOCK"," ","INITIALS","PRICE/SHARE" 

350 PRINT "INT, BALLISTIC MISSILES"," IB8M",S(1) 

352 PRINT "RED CROSS OF AMERICA"," RCA",S(2) 


(SAME FOR ALL STOCKS) 


354 PRINT "LICHTENSTEIN, BUMRAP & JOKE"," LBJ",S8(3) 
S56 PRINT "AMERICAN BANKRUPT CO,"," ABC",S(4) 
358 PRINT "CENSURED BOOKS STORE"," CBS",8(5) 


360 PRINT 

361 REM NYSE AVERAGEIZ5S) TEMP, VALUESZ4) NET CHANGE!Z6 
363 LET 74875 

(364 LET 7530 

‘365 LET Tso 

370 «~FOR I®1 T0 5 

375 LET Z5#25+S(1) 

380 LET TeTeS(1)#P(I) 

390 NEXT I 

391 LET ZS5eINT(100#(25/5)+,5)/100 

“392 LET Z68INT( (25924) #1004,5)/103 

393 REM TOTAL ASSETS!D 

394 LET DeTtec 

395 IF X9>@ THEN 398 

396 PRINT "NEW YORK STOCK EXCHANGE AVERAGES "75 

397. GO TO 399 

398 PRINT "NEW YORK STOCK EXCHANGE AVERAGES 
399 PRINT 

400 LET TSINT(100eT+,5)/100 


"75" NET CHANGES "Z6 


401 PRINT "TOTAL STOCK ASSETS ARE $"jT 
403 LET CaINT(100eC+,5)/100 
405 PRINT "TOTAL CASH ASSETS ARE $"9C 
487 LET De INT(1@e0+,5)/100 
408 PRINT "TOTAL ASSETS ARE $")D 


410 PRINT 

4141 IF X9@0 THEN 416 

412 PRINT "00 YOU WISH TO CONTINUE (YES@TYPE 1, 
413 INPUT 69 

“414 IF Q9<i THEN 998 

416 REM INPUT TRANSACTIONS 

420 PRINT "WHAT IS YOUR TRANSACTION IN" 
430 PRINT "IBMIy 

449 INPUT Z(1) 

450 PRINT "RCA" 

469 INPUT Z¢2) 

470 PRINT "LBJ") 

48 INPUT 2(3) 

490 PRINT "ABC"? 

520 INPUT Z(4) 

810 PRINT "CBS" 

INPUT 2(5) 

$25 PRINT 

$30 REM TOTAL DAY'S PURCHASES IN $1P5 
540 LET P580 


NOeTYPE @)"5 
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85@ REM TOTAL DAY'S SALES IN $3385 

$60 LET S680 

S70 ‘FOR Isi TO § 

575 LET Z¢I)@INT(Z(1)+.5) 

88a IF z(I)<#@ THEN 610 

590 LET P68PS4Z(1)*S(T1) 

600 GO TO 620 

610 LET SSeS5eZ(I)*S(1) 

642 IF -Z(I)<#P(1) THEN 620 

614 PRINT "YOU HAVE OVERSOLD A STOCK} TRY AGAIN," 
616 GO TO 420 

620 NEXT I 

622 REM TOTAL VALUE OF TRANSACTIONSITS 

625 LET TS8P5¢S5 

630 REM BROKERAGE FEESBS 

640 LET BSSINT(,Q1"T5#100+,5)/100 

650 REM CASH ASSETS#OLD CASH ASSETS*TOTAL PURCHASES 
652 REM =BROKERAGE FEES+TOTAL SALESICS 

654 LET C5aC=P§9B5+S85 

656 IF C5>8@ THEN 674 — =. ones: Pm 
666 PRINT "YOU HAVE USED S"yeC5"MORE THAN YOU HAVE," 
666 GO TO 420 

674 LET c#ecs 

675 REM CALCULATE NEW PORTFOLIO 

68@ FOR I#i TO 5 

690 LET PCI)eP(I)+Z¢1) 

7O@ NEXT I 

740 REM CALCULATE NEW STOCK VALUES 

720 GOSUB 83¢ 

750 REM PRINT PORTFOLIO 

751 REM BELL RINGING@DIFFERENT ON MANY COMPUTERS 
762 FOR I#i TO 20 


75S PRINT CHRS(135)9 

754 NEXT I 

755 PRINT 

756 PRINT “ueweweewaee END OF DAY'S TRADING" 
767 PRINT 

788 PRINT 


75s oF xX9<i THEN 769 

769 PRINT "STOCK", "PRICE/SHARE", "HOLDINGS", "VALUE","NET PRICE CHANGE" 
770 PRINT "IBM", SCi), PCL), SCLI#PC1), CCL) 

774 PRINT "RCA", S(2), PC2), SC2)#P C2), C2) 

772 PRINT "LBJ", S(3), PC3), SC3)*PC3), CCS) 

773 PRINT "ABC", S(4), P(4), SC4)#P(4), CC4) 

77é PRINT "CBS", S(5), PCS), S(5)#P(5), CCS) 

775 LET x9ei 

780 PRINT 

790 PRINT 

“8108 GO TO 368 

829 REM NEW STOCK VALUES » SUBROUTINE > e 

3G REM RANDOMLY PRODUCE NEW STOCK VALUES BASED ON PREVIOUS 

831 REM DAY'S VALUES 

832 REM N{,N2 ARE RANOOM NUMBERS OF DAYS WHICH RESPECTIVELY 

833 REM DETERMINE WHEN STOCK I{ WILL INCREASE 1@ PTS, AND STOCK 

834 REM 12 WILL DECREASE 12 PTS, 

840 REM IF Ni DAYS HAVE PASSED, PICK AN Ii, SET E1, DETERMINE NEW NI 
644 $XIF Ni>@ THEN 858 : 
845 LET I1#INT(4,99#RNO(X) +1) 
846 LET NiBINT(4,99#RNO(X) 41) 
847 LET Eiat 

850 REM IF N2 DAYS HAVE PASSED, 
851 IF N2>@ THEN 862 

B55 LET I28INT(4,99*RND(X) +1) 
856 LET N28INT(4.99#RND(X) 41) 
857 LET E2at 

860 REM DEDUCT ONE DAY FROM Ni AND N2 
861 LET NisNiei 

862 LET N2eN2e1 

892 REM LOOP THROUGH ALL STOCKS 
900 FOR I®1 TO 5 

910 LET Xi#RND(X) 

915 IF X1>,25 THEN 922 

916 LET Xi#,25 

917 GO TO 935 

920 IF X1>,5@ THEN 925 

921 LET xi#,58 

922 GO TO 935 

925 IF X1>,75 THEN 930 

926 LET xX1#,75 

927 GO TO 935 

939 LET xiea,a 

931 REM BIG CHANGE CONSTANTSW3S 
935 LET W380 

936 IF E1<1 THEN 945 

937 IF INT(I1¢,5)<>INT(I+.5) THEN 945 

938 REM ADD 10 PTS, TO THIS STOCK} RESET Et 
939 LET w3aie 

943 LET E1aa 

945 IF E2<1 THEN 955 

947 IF INT(12¢,5)<>INT(1¢,5) THEN 955 
948 REM SUBTRACT 1@ PTS, FROM THIS STOCK? 
949 LET W3eW3=10 

953 LET E220 

954 REM C(I) IS CHANGE IN STOCK VALUE 

955 LET CCI) BINTCAWS(I) )#X14 INTC 3R6RND (XO, 5) WS 

956 LET CCIIBINT(10G0C(1) 4,5) /190 

967 LET S¢I)#S(1)4C(I) 

960 IF SCI)>@ THEN 9467 

964 LET ccl)ea 

965 LET S(1)#o 

966 GO TO 97a 

967 LET SCI) #INT(100#S(1)+,5)/100 

970 NEXT I 

972 REM AFTER TB DAYS RANDOMLY CHANGE TREND SIGN AND SLOPE 
973 LET TesTeet 5 

974 IF T@€1 THEN 985 

989 RETURN 

985 REM RANDOMLY CHANGE TREND SIGN AND SLOPE (A), 
986 REM OF TREND (T8) 

990 LET TBRINT(4,.99#RND(X) #1) 

992 LET A®INTCCRND(X)/12) #100+,5)/109 

993 LET S4mRND(X) 

994 IF Sd<s,5 THEN 997 

995 LET AmwA 


PICK AN I2, SET E2, DETERMINE NEW N2 


(SET TO ZERO INITIALLY) 


RESET E2 


AND DURATION 


997 RETURN 
998 PRINT "HOPE YOU HAD FUNI\" 
599 END : 


| TOTAL CASH ASSETS ARE 


SAMPLE RUN 


THE STOCK MARKET 


DO YOU WANT THE INSTRUCTIONS CYES-TYPE 4, NO-TYFE a7 4 


THIS PROGRAM PLAYS THE STOCK MARKET. YOU WILL BE GIVEN 
$16,666 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL 
BE GENERATED RANDOMLY AND THEREFORE THIS MODEL GOES NOT 
REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE. A TARELE 
OF AVAILABLE STOCKS, 


THEIR PRICES. ANC THE NUMBER oF SHARES 
IN YOUR PORTFOLIO WILL BE PRINTED. FOLLOWING TH THE 
INITIALS OF EACH STOCK WILL BE PRINTEO WITH A GUESTION 


MARK. HERE YOU INDICATE A TRANSACTION. 
TYPE +NNN, TO SELL A STOCK TYPE —NNN, WHERE NNN IS THE 
NUMBER OF SHARES. A BROKERAGE FEE OF 4% WILL BE CHARGEL 
ON ALL TRANSACTIONS. NOTE THAT IF A STOCKS VALUE oro 
TO 2ERO IT MAY REBOUND TO A POSITIVE VALUE AGAIN. OU 
HAVE $16,660 TO INYEST. USE INTEGERS FOR ALL YOUR INFUTS 


TO BUY A STOCK 


«NOTE: TO GET A “FEEL” FOR THE MARKET RUN FOR AT LEAST 
14 DAYS) 
—- GOOD LUCK !----- 
STOCK INITIALS 
INT. BALLISTIC MISSILES IEM 
RED CROSS OF AMERICA RCA 
LICHTENSTEIN. BUMRAP & JOKE LE. 
AMERICAN BANKRUPT CO. ABC 
CENSURED BOOKS STORE CES 
NEN YORK STOCK EXCHANGE AVERAGE: 4115.5 
TOTAL STOCK ASSETS ARE ¢ ao 
TOTAL CASH ASSETS ARE $ 1ag80 
TOTAL ASSETS ARE $ 10000 
WHAT IS YOUR TRANSACTION IN 
1EM? 20 
RCA? 5 
LEJ? o 
ABC? 5 
ces? 19 
yoetoecic END OF DAYS TRADING 
STOCK PRICE/SHARE HOLDINGS VALUE NET PRICE CHANGE 
1EM 107. 75 2a 2155 5 
| RCA Bz 5 445 75 
f) ve 145 a a Fa 
ABC 132. 75 5 
ces 95.75 14 5 
NEN YORK STOCK EXCHANGE AVERAGE: NET CHANGE: -2. 65 


TOTAL STOCK ASSETS ARE ca 
TOTAL CASH ASSETS ARE + 
TOTAL ASSETS ARE + 


00 YOU WISH TO CONTINUE (YES-TYPE 4, 
WHAT IS YOUR TRANSACTION IN 

IBM? 16 

RCA? 16 

LEJ? 6 

AEC? 6 

CES? 16 


NO-TYPE m7 4 


eke 6OEND OF DAYS TRACING 


E’SHARE 
re 


HOLDINGS 
24 


STOCK PR 
IEM : 
RCA 
LBJ 
AEC 
CEs 


NET PRICE CHANGE 


onset 


S 


NEW YORK STOCK EXCHANGE AYERAGE: 106 NET CHANGE: -6. 45 


wy 
as 


TOTAL STOCK ASSETS ARE 
TOTAL CASH ASSETS ARE 
TOTAL ASSETS ARE 


(DG YOU WISH TO CONTINUE ¢YES-TYRPE 1. NO-TYPE a7 4 
| WHAT IS YOUR TRANSACTION IN 

TBM? 
| RCA? 
| LEI? 
| REC? 
( CBS? 


Booog 


| eek feo teak teat ot ENC OF DAYS TRADING 


STOCK PRICE/SHARE HOLDINGS VRILLIE NET PRICE CHANGE 
| IBM 32, 25 za 2767.5 Ie: 
RCA 75. 75 15 = 
LBJ 129.5 a aia 
ABC 115. 25 5 Soi 
2a -5. 5 


CES 34. 75 


ko 
wo 
an 


NEW YORK STOCK EXCHANGE AYERAGE: 5 NET CHANGE: -6. 3 


TOTAL STOCK ASSETS ARE 


| TOTAL ASSETS ARE 


DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE a7 4 
WHAT 15 YOUR TRANSACTION IN 

| 1BM? 
| RCA? 
LBJ? 
AEC? 
CBS? 


Soeaoaag 


2 


sete END CF DAYS TRADING 

STOCK PRICE /SHARE HOLDINGS VALUE NET PRICE CHANGE 
IBM 37. 25 24 26175 == 

RCA 74.5 15 abe Be ge ~Laee 

LEJ 126.5 U2) 4 x 

ABC 1i4 bs) 555 

Ces 32,25 26 1645 

NEW YORK STOCK EXCHANGE AYERAGE: 96. % NET CHANGE: -z-2 


TOTAL STOCK ASSETS ARE 
TOTAL CASH ASSETS ARE 
TOTAL ASSETS ARE 


OO YOU WISH TO CONTINUE (YES-TYPE 4, NO-TYPE a)? 4 
WHAT IS YOUR TRANSACTION IN 
IBN? 8 


dete © END OF DAYS TRADING 


STOCK PRICE/SHARE HOLCINGS NET PRICE CHANGE 
IBM $3. 75 x17) ake 

RCA js Be) 

LBJ a 

AEC ba z 

ces Sz 2a 1 

NEW YORK STOCK EXCHANGE AVERAGE: 104 NET CHANGE: Ke 


TOTAL STOCK ASSETS ARE ES 
TOTAL CASH ASSETS ARE + 
TOTAL ASSETS ARE + 


DO YOU WISH TO CONTINUE (YES-TYFE 4 
WHAT 15 YOUR TRANSACTION IN 

IBM? 5 

RCA? 18 

LBI? 
ABC? 
CBS? 10 


NO-TYFE @)? 4 


eau 


335 MORE THAN ‘OU HAYE 
CTION IN 


YOU HAVE USED $ 4. 
WHAT IS YOUR TRAN 
IBM? 5 

16 


sated END OF DAYS TRADING 


STOCK PRICE/SHARE HOLDINGS NET PRICE CHANGE 
eM ; 35; oan 

RCA 25 7.75 

LBJ 5 5 

AEC 5 

CES 29 

NEN YORK STOCK EXCHANGE AVERAGE: 105.6 NET CHANGE: 5, 6 

TOTAL STOCK ASSETS ARE 2410 


TOTAL CASH ASSETS 
TOTAL ASSETS ARE 


+ 
ARE + 
$ 


DG YOU WISH TO CONTINUE (YES-TYFE 1, 
WHAT IS YOUR TRANSACTION IN 

1EM? 98 

8 

is) 


68 
5 


NO-THPE wo? 4 


sete END OF DAYS TRADING 


STOCK 
IBM 
RCA 
LBJ 
REC 


CBS 


HOLDINGS. NET PRICE CHANGE 


>= 


PRICE/SHARE 


NEW YORK STOCK EXCHANGE AYERAGE: 1411. 65 NET CHANGE 


aT 
Do 
on 


TOTAL STOCK ASSETS ARE 
TOTAL CASH ASSETS ARE 
TOTAL ASSETS ARE 


DO YOU WISH TO CONTINUE (YES-TYPE 41. NO-TYPE @)7 4 


SYNONM rc cvv 


Description 


A synonym of a word is another word in the English language 
which has the same, or very nearly the same, meaning. This 
program tests your knowledge of synonyms of a few common words. 


The computer chooses a word and asks you for a synonym. The 
computer then tells you whether you're right or wrong. Li you 
can't think of a synonym, type "HELP" which causes a synonym 
to be printed. 


You may put in words of your choice in the data statements (510-600) . 
The number following DATA in Statement 500 is the total number 
of data statements. In each data statement, the “first number 

is the number of words in that statement. 


Can you think of a way to make this into a more general kind of 
CAI program for any subject? 


Program Author 


Walt Koetke 
Lexington High School 
Lescimgton,=MA. 02173 


© 1967 by Meredith Press 


PALS, 


PROGRAM LISTING SAMPLE RUN 


LIST RIN 

SYNONM 83:47 PM 69-JUL-?73 SYNONM 63:49 PM 89-JUL-73 

5S REM ++** SYNONM CONVERTED TO RSTS/E BASIC-PLUS BY DAVE AHL, OIGITAL 

14 DIM R$¢(5>,W$616>,L 6389, RO30% SYNONYMS 

208 R$¢19="RIGHT" : R$C2Z¥="CORRECT" :R$C3%="FINE" > R$C49="GOOD! "-R$C59="CHECK" 

78 RANDOMIZE :C=6:PRINT:PRINT "SYNONYMS" - PRINT A SYNONYM OF A WORD MEANS ANOTHER WORD IN THE ENGLISH 
38 PRINT “A SYNONYM OF A WORD MEANS ANOTHER WORD IN THE ENGLISH" LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SAME 
146 PRINT "LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SAME" MERNING 

116 PRINT "MEANING. ": PRINT 

134 PRINT "I CHOOSE A WORD -- YOU TYPE A SYNONYM. " I CHOOSE A WORD -- YOU TYPE A SYNONYM 

144 PRINT “IF YOU CAN’T THINK OF A SYNONYM, TYPE THE WORD “HELP? " IF YOU CAN’T THINK OF A SYNONYM, TYPE THE WORD “HELP” 
145 PRINT "AND I WILL TELL YOU A SYNONYM. "- PRINT AND I WILL TELL YOU A SYNONYM 


154 RESTORE :C=C+1:READ N 
164 IF C>N THEN 426 
173 N1I=INTCRND+#N+4 » 


174 IF R¢N13=4 THEN 176 WHAT IS A SYNONYM OF FIRST? START 
176 RON19=4 CORRECT 

136 FOR I=4 TO N4 

134 READ N2 

298 FOR J=1 TO N2 WHAT IS A SYNONYM OF PIT? WELL 
216 READ WSJ) CHECK 

226 NEXT J 

236 NEXT I 

232 L¢J3=J FOR J=1 TO N2 WHAT IS A SYNONYM OF SMALL? TINY 
235 L¢(6=N2:G=1: PRINT CHECK 

237 L¢OGI=L¢6L 66992 L6G9=N2-1: PRINT 

248 PRINT " WHAT IS A SYNONYM OF "WSCG%; : INPUT AS 

254 IF AS="HELP" THEN 349 WHAT IS A SYNONYM OF HOUSE? HOME 
266 FOR J=1 TO N2 TRY AGAIN. 

276 IF G=J THEN 296 WHAT IS A SYNONYM OF HOUSE? DWELLING 
286 IF AS=W$CJ> THEN 32 RIGHT 

296 NEXT J 

294 PRINT " TRY AGAIN. " 

216 GOTO 246 WHAT IS A SYNONYM OF MODEL? SIMULATION 
326 PRINT RS¢RND*5+1> TRY AGAIN 

2234 GOTO 156 WHAT IS A SYNONYM GF MODEL? HELP 
248 GL=INTCRND*L¢6 2449 ete AO SYNONYM OF MODEL IS PROTOTYPE. 
368 PRINT “+eee A SYNONYM OF "WECG)" IS "WHEEL OGL99" 

365 PRINT WHAT IS A SYNONYM OF MODEL? STANDARD 
374 L&GLI=LOL 6699 LOB HRL CB NH-1 CHECK 

338 GOTO 246 

426 PRINT:PRINT "SYNONYM DRILL COMPLETED. ": STOP 

544 DATA 16 WHAT IS A SYNONYM OF RED? ROSE 
514 DATA 5, "FIRST", "START", “BEGINNING”, "ONSET". "INITIAL" TRY AGAIN 

526 DATA 5, "SIMILAR". "ALIKE", "SAME", "LIKE", "RESEMBLING" WHAT IS A SYNONYM OF RED? HELP 
524 CATA 5. "MODEL", "PATTERN", “PROTOTYPE", "STANDARD", "CRITERION" ae A SYNONYM OF RED IS FLAME 

544 DATA 5. "SMALL", "INSIGNIFICANT", "LITTLE", "TINY", "MINUTE" 

554 DATA 6, "STOP", "HALT", "STAY", "ARREST", "CHECK", "STANDSTILL" WHAT IS A SYNONYM OF RED? HELP 
564 DATA 6. "HOUSE", "DWELLING", "RESIDENCE", "DOMICILE", "LODGING", "HABITATION" seek A SYNONYM OF RED IS RUBY 

576 DATA 7. “PIT", "HOLE", "HOLLOW", "WELL". "GULF", "CHASM", "ABYSS" 

386 DATA 7. "PUSH". "SHOVE", "THRUST". "PROD", "POKE", "BUTT", "PRESS" WHAT I5 A SYNONYM OF RED? CRIMSON 


534 DATA 6. "RED", "ROUGE", "SCARLET", "CRIMSON", "FLAME", "RUBY" CHECK 
604 DATA 7. "PAIN". "SUFFERING", "HURT", "MISERY", "DISTRESS". "ACHE", "DISCOMFORT" 
999 END 

WHAT IS A SYNONYM OF SIMILAR? SAME 
READY CORRECT 


WHAT IS A SYNONYM OF PUSH? SHOVE 
6000! 


WHAT IS A SYNONYM OF STOP? END 

TRY AGAIN 

WHAT IS A SYNONYM OF STOP? HALT 
6000! 


WHAT IS A SYNONYM OF PAIN? DISTRESS 
CHECK 


SYNONYM DRILL COMPLETED 
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ARGET DESTROY A TARGET IN 3-D SPACE 


Description 


In this program, you are firing a weapon from a spaceship in 
3-dimensional space. Your ship, the Starship Enterprise, is 
located at the origin (0,0,0) of a set of x,y,Z coordinates. 
You will be told the approximate location of the target in 
3-dimensional rectangular coordinates, the approximate angular 
deviation from the x and z axes in both radius and degrees, 
and the approximate distance to the target. 


Given this information, you then proceed to shoot at the target. 
A shot within 20 kilometers of the target destroys it. After 
each shot, you are given information as to the position OfFene 
explosion of your shot and a somewhat improved estimate of the 
location of the target. Fortunately, this is just practice 

and the target doesn't shoot back. After you have attained 
proficiency, you ought to be able to destroy a target in 3 or 4 
shots. However, attaining proficiency might take a while: 


Program Author 


He David Crockett 
5609 Wimbleton Way 
Foreeworch, 2x,  7ol33 


Illustration by John Nelson, 
Scott, Foresman and Co. 


214 


PROGRAM LISTING 


180 
110 
120 
130 


Rei\R1857,296\RANDOMIZE 

PRINT "YOU ARE THE WEAPONS OFFICER ON THE STAR SHIP ENTERPRISE" 
PRINT "AND THIS IS A TEST TO SEE HOW ACCURATE A SHOT YOU" 

PRINT "ARE IN A THREE*DIMENSIONAL RANGE, YOU WILL BE TOLD" 


140 
150 
160 
178 
180 
190 


PRINT "THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION® 

PRINT "OF THE TARGET IN THREERDIMENSIONAL RECTANGULAR COORDINATES,” 
PRINT "THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND 2" 

PRINT "AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET," 

PRINT "YOU WILL THEN PROCEED TO SHOOT AT THE TARGET UNTIL IT IS# 
PRINT "DESTROYEDI"\PRINT\PRINT "GOOD LUCKII"\PRINT\PRINT 


220 AaRNDe2ePI\BSRNDw2ePl\ Qe INT (A#R1)\WeINT(BeER1) 


260 
278 
280 
340 
345 


PRINT "RADIANS FROM X AXIS sian FROM Z AXIS 5B 

PRINT "APPROX DEGREES FROM X AXIS #"Qu FROM Z AXIS aw 
Pa100800¢RND+RND\X#SIN(B) #COS(CA) #P\Y@SIN(B) #SIN(A) #P\Z8COS (B42 
PRINT "TARGET SIGHTEDs APPROX COORDINATES X="x" yaryn Zaz 
ReR+i\IF R>6& THEN 390 


35G ON R GOTO 355,360,365,370,375 


355 
360 
365 
372 
375 


P3SINT(P#,95)*20\GOTO 390 
P3BINT(P+,1)#10\GOTO 390 
P3SINT(P*,5)*2\GOTO 390 
P3SINT(P)\GOTO 398 

P3aP 


398 
400 
410 
420 
480 
518 


PRINT © ESTIMATED DISTANCEa"P3 

INPUT "INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE"3A1,B1,P2 
PRINT\IF P2<28 THEN PRINT "YOU BLEW YOURSELF UPJI4\GOTO 58a 
ALBAL/RINBLBBI/RI\PRINT "RADIANS FROM X AXIS @"AY" FROM Z AXIS @"Bi 
XLEP2eSIN(B1)#COS(AL)\YLBP2eSIN(BL)#SINCALI\Z1sP2eCOS(B1) 
DaC(XLeX)A2e (Vie) A2e(ZieZ) a2) a(1/2) 


520 IF D>20 THEN 670 


530 
559 
579 
580 
679 


710 


730 
740 
750 
772 
780 


790 PRINT 


810 
820 
830 
999 


PRINT\PRINT " # «© # HIT # # @ TARGET IS NON@FUNCTIONAL"\PRINT 
PRINT "DISTANCE OF EXPLOSION FROM TARGET WAS"D KILOMETERS" 
PRINT\PRINT "MISSION ACCOMPLISHED IN'R"SHOTS," 

ReO\FOR Tet TO S\PRINT\NEXT I\PRINT "NEXT TARGETs coe 4\PRINT\GOTO 222 
XM2BXLeX\¥2eVieY\Z2eZ1eZ\IF X2<0 THEN 730 

PRINT "SHOT IN FRONT OF TARGET"X2"KILOMETERS,"\GOTO 748 

PRINT "SHOT BEHIND TARGET" s=X2"KILOMETERS," 

IF Y2<@ THEN 778 

PRINT "SHOT TO LEFT OF TARGET"Y2"KILOMETERS,"\GOTO 780 

PRINT "SHOT TO RIGHT OF TARGET"; *Y2"KILOMETERS," 

IF Z2<@ THEN 8108 

"SHOT ABOVE TARGET"Z2"KILOMETERS,"\GOTO 8220 

PRINT "SHOT BELOW TARGET" JeZ2"KILOMETERS," 

PRINT "APPROX POSITION OF EXPLOSIONS Xa"xi" yemyiin Ze"Z1 
PRINT " DISTANCE FROM TARGET s"D\PRINT\PRINT\PRINT\GOTO 345 
END 


Zaleo 


SAMPLE RUN 


Ou 
AND 


ARE THE WEAPONS OFFICER ON THE STAR SHIF ENTERPRISE 
THIS 15 A TEST TO SEE HOW ACCURATE A SHOT YOu 

ARE IN A THREE-DIMENSIONAL RANGE. VOU WILL BE TOL 

THE RADIAN OFFSET FOR THE * AND 2 1) THE LOCATION 

OF THE TARGET IN THREE-CDIMENSICNAL RECTANGULAR ROINATES. 
THE APPROXIMATE NUMBER OF DEGREES FROM THE ® AND 2 
AXES, AND THE APPROXIMATE CISTANCE To THE TARGET 

YOU WILL THEN PROCEEC TO SHOOT AT THE TARGET UNTIL IT 
DESTROYED! 


Is 


GO00D LUCK!!! 


RADIANS FROM X AKIS 
APPROX DEGREES FROM x 


TARGET SIGHTEC: AFP COORCINATES X= 14 Z= 8072. a2 
ESTIMATED DISTANCE= 16996 
INPUT ANGLE CEYIATION FROM X, DEVIATION FROM 2, CISTANCE? 254. 61,169948 


RADIANS FROM X AXIS = 

SHOT BEHIND TARGET 164 

SHOT TO RIGHT OF TARGET 

SHOT ABOVE TARGET 164. ! ILOMETERS. 

APPROX POSITION OF ON 14778. = W==1552. 62 
DISTANCE FROM TARGET = 206 


6. 17544 FROM 2 
KILOMETERS 
43 KILOMETERS 


AXIS = 4. 66465 


wo 
oo 


ESTIMATED DISTANCE= 16994 
INPUT ANGLE DEVIATION FROM &. CEYIATION FROM 2. CISTANCE? 5.66. 5,16998 
RADIANS FROM & AXIS = 6.16 : FROM 2 AXIS = 1. a5592 
SHOT BEHIND TARGET 194. 294 KILOMETERS 
OT TO RIGHT OF TARGET 4 & KILOMETERS 
SHOT ABOVE TARGET 234 9 OMETERS 
APPROX POSITION OF Ex 5 K= 14692. 2 Y=-1674. x2 Z= S366. 34 
DISTANCE FROM TARGET = 
ESTIMATED DISTANCE= 1695 
INPUT ANGLE CEYIATION FROM } FROM 2. CISTANKE? £54. 4.641. 8.16995 
RADIANS FROM & AAIS = 6 FROM 2 AXIS = 4. oP SEL 
SHOT IN FRONT OF TARGET KILOMETER 
SHOT TO LEFT OF TARGET a KILOMETERS 
SHOT BELOW TARGET 46. 9536 KI 
APPROX POSITION OF EXPLOSION: W=-14641. 92 Z= S031. 66 
DISTANCE FROM TARGET = 52 


ESTIMATED DISTANCE= 16995. 7 
INPUT ANGLE DEVIATION FROM x, DEVIATION FROM 2. CISTANCE? 354. 3,64. 9.16996 
RADIANS FROM & AKIS FROM 2 A 0 = aS 
SHOT IN FRONT OF TARG KILOMETER: 
SHOT TO RIGHT OF TARGET KILOMETERS 
SHOT BELOW TARGET 66.6272 KILOMETERS 
APPROX POSITION OF EXPLOSION 14912, 4 W=-1489. 42 Z= S805, 38 
DISTANCE FROM TARGET = 75. 
ESTIMATED DISTANCE= 16 iC 
INPUT ANGLE DEVIATION FROM x. CEVIATION FROM 2. CISTANCE? 354. 5,64. 8, 16996 
RADIANS FROM X ARIS = 6.4 = 4.47361 
SHOT IN FRONT OF TARGET 
SHOT TO LEFT OF TARGET 49.9 
SHOT BELOW TARGET 44. 4214 KI RS 
APPROX POSITION OF EXPLOSION: 14909. 6 Y=-1426 
DISTANCE FROM TARGET = 62 


DISTANCE= 16995. 7 
DEVIATION FROM 2, 


ESTIMATED 
INPUT ANGLE CE¥YIATION FROM wx. 
ILLEGAL NUMBER AT LINE 448 
INPUT ANGLE CEVIATION FROM x. 


DISTANCE? =54.. 6.61.9 


CEVIATION DISTANCE? 354. 6.61. 9,: 
RADIANS FROM X AXIS = 6 
SHOT IN FRONT OF TARGET 
SHOT TO LEFT OF TARGET 
SHOT BELON TARGET 66. TLOMETERS 
APPROX POSITION OF EXPLOSION: x= 14 
DISTANCE FROM TARGET = 109, 14 


Al FROM 2 AXIS = 1. Bfae5 
4 f6 KILOMETERS 


1 KILOMETERS 


a 


74. 


3 


I) PL OT PLOTS A FAMILY OF CURVES 
OT will plot the family of curves oO 
tion is plotted as "rising" out o 


3DPL 
fun x e x-y plane 
30. The resultant plot looks 


Cc Lard 

x and y inside dius 

almost 3-dimens 

You set the fun want plotted 

mathematical pl unctions com 

others. - Here-a at work nice 
5 DEF FNA( Pp (-Z*Z/100) 
5 DEF FNA( (900.01-Z*Z) * 
5 DEF FNA ( OS (Z/16) ) 2 
5 DEF FNA( *SIN (Z/18) 
5 DEF FNA ( P (-COS (Z/16) 

(Bessel -Summerfeld's 

5 DEF FNA( N (Z/10) 

One of the shor rams submitte 

to rank as perh st clever. 

Program Author 

Mark Bramhall 

Digital Equipme 

Maynard, Ol 


UN 


PROGRAM LISTING 


5S DEF FNAC2Z)=30#EXP (-24#2/100) 


186 PRINT 

416 FOR X=-236 TO ZH STEF 4.5 
126 L=6 

136 YI=S*INT (SOR (9HG-K4#x) YS) 
146 FOR Y="1 TO -¥4 STEP - 
156 Z=INTC2S+FNACSOR (KER EY EY) )—. Fah!) 
166 IF 2<=L THEN 194 

176 L=2 

136 PRINT TABCZ)"#"; 

196 NEXT ¥ 

264 PRINT 

216 x 


346 


SAMPLE RUN 
Id DEF FNACZ)]Ga%(COS¢z/ 1160) 12 10 DEF FNACZ)=30*EXP(-COS(Z/16))-30 
RUN. ss 
* 
x x * ie 
rye 4 * KO * 
xk * ink * * a 
ne ne ae oe * x * * ee a e 
: : eee ae * xk * * 
cae * * Ee ok * Tinie 2 
eo ok * * *x* kK * * bs - . i 
Ok * * KK * = . a 
**K * 7 * x ORK Ok * a : : 
* * * * x *k * ‘ - i 
ie , e . ear * * * 
“ie y a ae 4k * * 
: 4 : a : Bowe ** * * * 
7 : Fi i “e ** * * * 
2 : Me ee ‘ = * * * * 
: 2 ‘ x : oe * * * * * 
: i Z i : Aw *x x * * * 
: 2 - : 3 se se a * * * 
z i . e 7: sek * * * * * 
ue i 2 ee ** * * 
: * 2 ey ce sits LP ok * * * 
A is é 2 a pe * * * * * 
" i 7‘ e nh * * * * * 
: : 4 : a ee * x * * * 
d ¥ 5 x e ae Ks A * * * 
3 ; P. a ee 40K * * * 
: : P . - ys eK * * * 
< f 3 P ay ** * * * 
eee : . . pened * * * 
te * * * * Ok Ox * 4 fe 
eK * * * x OK Ok * “e cs ; 
x * * * OOK * 3 is i z 
ore * * Kk Ok Ok * * : 7 : 
* * * * * * * * * eae i 
: aa ae hee * Ox * * 
ae eae _ : Ok * * 
ee oak x * * ud -; i‘ 
ae i . ** * 
* * * oe 
* 


AvEXP (-2¥2 4408) 


5 DEF FHACZ) 


RUNNH 
+ + 
+ # Si a 
* a Bo + 4 + 
* + oa f Mo 
* * # * ok 
- ey op Pes ak ake *# 
+ ” +: oo * + + 
+ 4 + Oh ls eet + 
. fe ie ae <hr * OO 
* . " * Ow a: 
e + +: oe Ba Bo 
mi * + 7 ae Ee ok ae 
+ * a et Sy 
* ag rm Por ae 
és é : “4 * 
* 4 + ss # 
rm e e + + 
# + + + * :! 
+ + + +: 4 i 
ape . i * 
+ * + + % : 
Py = ve # * 
) op + + + ir 
ee: ss ts 
+ + + a y e 
+ + iS 
* + * 
Ae i + + 
“i i e * + * 
* * OF 4 + * 
* Nemes * - * obs is a 
Ge * * * Gk 
# * oo a 7c a * 
x OF * OF +: + rt 
a oa oe e9 ot a 
+ +o + * Ok 
| * * * + Bo ” + 
ae es e+ * 
+ ++ 
* 


* eH 


TIC TAC a 


Description 


The game of tic-tac-—toe har 
one, you play versus the computer. 
number, a comma, and column number, 


dly needs any introduction. In this 
Moves are entered by row 
as in the diagram below. 


If you make any bad moves, the computer will win; if the com- 
puter makes a bad move, you can win; otherwise, the game ends 


Tia Le. 
Source 


Seven games of tic-tac-toe were submitted. One notable one by 
Chase Ambler of the Asheville School plays the game on a VEOS 
CRT terminal while an abbreviated one by Dana Noftle fits into 


an EduSystem 10. 


The one published was written by: 


Tom Kloos 
Oregon Museum of Science and Industry 


Portland, Oregon 97200 


RE 
o ar 


O) 
* oe) 


4 


OO 
e 


va > 
oe. 
° 


218 


PROGRAM LISTING 


120 PRINT"YOU HAVE THE OPPORTUNITY OF TRYING TO BEAT THE COMPUTER” 1180 LET C(3)8N 
130 PRINT"AT TIC*TACeTOE, ENTER YOUR MOVES AS FOLLOWS?" 1190 LET D(3) 5M 
14 PRINT 1200 FOR I#{ To 8 
150 DIM C(1i1) 1210 IF BCI)>1 THEN 1370 
160 DIM O(11) 1220 NEXY Y 
170 FOR Kei TO 11 1221 LET Istet 
180 READ C(K), DCK) 1230 FOR Iai TO 8 
198 NEXT K 1240 IF BC(I)<=1 THEN 1370 
200 PRINT ",..ROW NUMBER. .eCOMMAye eCOLUMN NUMBER, se” 1250 NEXT I 
218 PRINT 1251 LET Yelei 
220 PRINT"ROWS ARE HORIZONTAL CACROSS),,,.COLUMNS ARE VERTICAL(UP # DOWN) * 1260 IF R#Ce@ THEN 1550 
oe ort an 1270 FOR Kai TO 1k 
42 DIM A(3,3) 1280 LET I#C(k) 
250 PRINT 1290 LET J#D(K) 
260 PRINT "NEW GAME STARTED NOW ccccorncevveccesecvveceven” 1300 IF A(I,J)<>@ THEN 1330 
270 FOR Jai 70 3 1310 LET ACI,J) #1 
280 FOR Ist TO 3 1320 GO TO 1362 
oe NeveeeuoS 1330 NEXT K 
x 1331 LET Kskel 
301 LET Islet 1340 PRINT " , TIE GAME ,. " 
310 NEXT J 1350 LET ze3 : 
341 LET JaJet 1360 RETURN 
320 LET Ze @ 1370 IF I>3 THEN 14490 
330 PRINT "YOUR MOVE", 138@ FOR Jei TO 3 
340 INPUT R,C 1390 IF AC(I,J)#@ THEN 1420 
350 PRINT 1400 NEXT J 
360 IF R>3 THEN 620 1401 LET JeJe@t 
370 IF C>3¥ THEN 620 1418 GO TO 1360 
382 IF ACR,C) «> @ THEN 620 1420 LET ACI,J) #1 
390 Ler nen ae = ui 1360 
400 GOSUB 1660 144 >6 THEN 1510 
410 IF Z #1 THEN 2070 1450 FOR Jsi TO 3 
420 REM MACHINE MOVE,., 1460 IF A(J,I-3)80 THEN 1490 
430 GOSUB 1120 1470 NEXT J 
440 REM TEST FOR GAME WIN,,. 1471 LET JeJet 
450 GOSUB 1660 1489 GO To 1360 
460 IF Z30 THEN 650 1490 LET ACJ,Ie3) 84 
47@ REM PRINT GAME BOARD.,. 1502 GO To 1360 
480 GO TO 490 1510 IF I>7 THEN 1550 
490 PRINT 1520 FOR Jai TO 3 
500 FOR Ks1 TO 3 1530 IF A(J,J) #0 THEN 1590 
510 LET BeACK,1) 1340 NEXT J 
520 LET DeA(K,2) 1541 LET JaJel 
530 LET Fea(k,3) 1550 IF A(1,3)#@ THEN 1610 
542 GOSUB 842 1560 IF A(3,1)80 THEN 1630 
552 IF K>2 THEN 370 1570 LET AC2,e)e1 
560 PRINT "“wenaentakewrannl 158@ GO TO 1360 
572 NEXT K 1590 LET ACJ,J) a1 
571 LET Keket 1600 GO TO 1360 
580 PRINT 1612 LET ACi,3)=1 
590 IF Z <>@ THEN 2070 1620 GO TO 1360 
600 GO TO 330 1630 LET A(3,1) 1 
618 STOP 1640 GO TO 1360 
620 PRINT "meee ILLEGAL MOVE w= TRY AGAIN ween" 1650 REM PROGRAM TO TEST FOR GAME WINNER, oes 
630 PRINT 1660 LET Tiso 
648 GO TO 330 ere Bee gai ie 9 
O50LET Teed L s 
660 FOR J#i TO 3 1692 NEXT J 
670 FOR Tei TO 3 1691 LET JeJ=1 
680 IF ACI,J)<>@ THEN 700 1700 FOR Jei TO 3 
eel ne 1720 IF ACJe)e>ACdrT) THEN 1750 
700 NEXT I ri)<raCly 
701 LET Telei 1730 NEXT I 
710 NEXT J {731 LET Islet 
T1i1 LET JeJei 1740 LET TieA(J,1) 
720 IF Te>@ THEN 750 at8e HEX Ted 
730 GOSUB 1340 1751 L sJel 
740 GO TO 480 1760 FOR Jei TO 3 
gn a Ela ake 1700 IF Ai sJ}e>ACTsJ) THEN 1812 
760 FOR Jeti TO 6 ’ , 
770 IF B(J)se2 THEN 800 thee etl e ns : 
78@ NEXT J i ALY 
781 LET JeJei 1800 LET TieAClI,J) 
798 GO TO 730 1610 NEXT J 
802 GOSUB 2000 1811 LET JaJet 
812 GO TO 480 1820 IF ACi,1)#A(3,35) THEN 1930 
820 REM PRINT TIC*TAC*TOE BOARD ROWseoe, oie ae Sees en eda 1978 
830 REM 
840 IF B<>O THEN 910 1850 FOR Jsi TO 3 
852 PRINT " w "3 186@ FOR Tei TO 3 
860 IF D<>® THEN 940 1870 LET BJ) #B(J)+A(J,1) 
870 PRINT * « ") 1880 LET B(J+3) eB(J+3)+A(I,J) 
880 IF F<>@ THEN 970 1890 NEXT I 
890 PRINT " " 1891 LET Tele 
902 GO TO 1070 1908 NEXT J 
910 IF B>@ THEN 1000 1901 LET Jade 
920 PRINT "YOU # "yf 1910 LET B(7)2A(1-1)4A(2,2)¢A(3,3) 
930 GO TO 860 1920 RETURN 
948 IF D>® THEN 1020 1930 IF A(2,2)2A(3,3) THEN 1950 
950 PRINT "YOU « "3 1948 GO TO 1830 
960 GO TO 880 1950 LET TisA(2,2) 
970 IF F>@ THEN 1040 1960 GO TO 1848 
9808 PRINT "YOU" 1970 IF AC2,2)8A(1,3) THEN 19528 
1980 GO TO 1840 
998 GO TO 900 
{Q@0 PRINT"POP w# "y 1990 IF Ti1>@ THEN 2030 
2000 PRINT " 4¢,YOU WIN THIS TIMEsee" 
1019 GO TO 862 
) " 2010 LET Zi 
1020 PRINT "PDP # ¥3 2020 GO TO 1850 
1030 GO TO 880 


2030 PRINT " oo. THE POP©8 WINS THIS TIME eee" 
2040 LET Z82 
2050 GO TO 18528 


104@ PRINT "PDP" 
1058 GO T0900 
1060 REM PRINT LEGENDS., 


070 PRINT " * en 2060 REM END OF TEST WINNER PROGRAMseeones 
1288 RETURN 2070 PRINT "DO YOU WANT TO PLAY ANOTHER GAME: YES(1), NO(Q)", 
1090 REM PROGRAM TO MAKE MOVE FOR THE MACHINE sees 2080 INPUT X14 = ; 

1100 LET MSINT(3_,33*RND(M)) 2090 IF Xi & 1 THEN 25 


2100 IF X1 = 0 THEN 2130 
tes Pe Res ACh ie adel 2110 PRINT "I SATO ONE OR ZEROS TRY AGAIN", 


2120 GO To 2080 
er ae ie ber aie 2430 PRINT"IT*S BEEN FUN, COME AGAIN SOMETIME" 


2140 GO TO 2160 
nae re avon 4110 2150 DATA 2,2,0, 010, Oy hy lp Sp 3p bp Sp 3p hp hp 2p S,2p2,3,2yk 
1160 L 2160 CHAIN "DEMON " 


1178 LET 0¢2) aN 2178 ENO 
219 


SAMPLE RUN 


TICTAC EDUSYSTEM-35 


YOU HAVE THE OPPORTUNITY OF TRYING TO BEAT THE CUMPUTER 
aT TIC-TAC-TOE- ENTER YOUR MOVES AS FOLLOWS: 


«.eROW NUMBER+ + «COMMA+ + «COLUMN NUMBERs +s 
ROWS ARE HORIZONTAL¢ACROSS) «+ «CULUMNS ARE VERTICAL(UP + DOWN) 


NEW GAME STARTED NOWeesesceveresererrescscecccs 
YOUR MOVE Zak 


* * 

* * 

FI HOI IIE IE CK I IE 

*x PDP x 

* ~*~ 
FOR IO OK I IK OOK 
YOU * * 

* * 
YOUR MOVE Tei rss | 
YOU * * 

* * 


FOI IC AOR AC IO ACK a 
PDP x PDP x* 


* * 
DK IK AK I IK I IC ICI IC a ie 
YOU * * 

* * 
YOUR MOVE 27253 
YOU * * 

* * 


DO ROK IC KI IE I I OK A Oe 
PDP x PDP x YOU 
* * 

OK KOKI IOI aI 2 IK KE 
You x * PDP 
* * 


YOUR MOVE 2152 
eee TIE GAME eee 
YOU * YOU * PDP 
* * 


FE IO HI I A I 2K OK OK 
PDP * PDP * YOU 


* * 
FOI I II ACI KCK KK 
YOU * * PDP 
* * 
DO YOU WANT TO PLAY ANOTHER GAME: YES(1).s NO(B) 20 
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TO : ; ER TOWERS OF HANOI PUZZLE 


Description 


This is a simulation of a game of logic that originated in the 
middle Fast. It is sometimes called Pharoah's Needles, but 
its most common name is the Towers of Hanoi. 


Legend has it that a secret society of monks live beneath the 
city of Hanoi. They possess three large towers or needles on 
which different size gold disks may be placed. Moving one at 
a time and never placing a larger on a smaller disk, the monks 
endeavor to move the tower of disks from the left needle to 
the right needle. Legend says when they have finished moving 
this 64-disk tower, the world will end. How many moves will 
they have to make to accomplish this? If they can move l 
disk per minute and work 24 hours per day, how many years 
will it take? 


In the computer puzzle you are faced with three upright needles. 
On the leftmost needle are placed from two to seven graduated 
disks, the largest being on the bottom and smallest on the top. 
Your object is to move the entire stack of disks to the right- 
most needle. However, you may only move one disk at a time 

and you may never place a larger disk on top of a smaller one. 


Q 


In this computer game, the disks are referred 
to by their size--i.e., the smallest is 3, 

Ne wee, 7; Ovo pande 15. “LL -you*p lay 
with fewer than 7 disks always use the largest, 
i.e. with 2 disks you would use nos. 13 and 

L5. ‘The program instructions ~are<sel£f- 
explanatory. Good luck: 


Program Author 


Charles Lund 
The American School 
Hague, Netherlands 


Dos. 


PROGRAM LISTING SAMPLE RUN 


90 PRINT TOWERS OF HANOI FUZZLE 

110 DIN Sees YOU MUST TRANSFER THE DISKS From THE LEFT ug Paha 

126 E=a@ TOWER, ONE AT A TIME, NEVER PUTTING A LARGER 

130 FOR D=1 TO ? SMALLER DISK. 

150 aaa : HON MANY DISKS DO YOU WANT TO MOVE ¢7 IS MAX? = 

130 NEXT D IN THIS PROGRAM, WE SHALL REFER TO DISKS BY A NUMERICAL CODE 
480 PRINT "TOWERS OF HANGI PUZZLE" SPRINT 3 WILL REPRESENT THE SMALLEST DISK, 5 THE NEXT SIZE, 7 THE NEXT, 
209 PRINT "YOU MUST TRANSFER THE DISKS FROM THE LEFT TO) THE RIGHT" AND SO ON, UP TO 15. IF YOU DO THE PUZZLE WITH 2 CISKS, THEIR 
295 PRINT "TOWER, ONE AT A TIME, NEVER PUTTING A LARGER GN A" CODE NAMES WOULD BY 41% AND 415. WITH THREE DISKS, THE CODE 
21@ PRINT "SMALLER DISK. "SPRINT NAMES WOULD BE 11, 13, AND 1S, ETC. NEEDLES ARE 

245 PRINT "HOW MANY DISKS DO YOU WANT TO MOWE (¢ IS MAX)"; NUMBERED FROM LEFT TO RIGHT, 4 TO 3. WE WILL START WITH THE 
220 INPUT S\PRINT DISKS ON NEEDLE 1, AND ATTEMPT TO MOVE THEM TO NEEDLE 3 

236 M=e 

240 FOR Q=1 TO 7? GOOD LUCK!! 

256 IF @=S THEN 35@ 

266 NEXT @ * * BD 

276 E=E+4 * * * 

280 IF E>2 THEN 318 * * * 

299 PRINT "SORRY, BUT I CAN’T CO THAT JOE FOR You. "\GOTO 245 * + * 

349 PRINT “ALRIGHT, WISE GUY, IF YOu CAN’ T PLAN THE GAME RIGHT, I’LL" SOO I HORI * * 

320 PRINT “JUST TAKE MY FUZZLE ANC GO HOME. So LONG. "\STOF YOIOR IO AOR a ROK I aK * * 

349 REM *** STORE DISKS FROM SMALLEST TO LARGEST JOR RK IR aK KO RK a a a eo * 

358 PRINT "IN THIS PROGRAM, WE SHALL REFER TO DISKS BY A NUMERICAL CODE. " WHICH DISK WOULD WOU LIKE TO MOVE? 14 

355 PRINT "% WILL REPRESENT THE SMALLEST DISK, S THE NEXT SIZE, 7 THE NEXT. “ PLACE DISK ON WHICH NEEDLE? 3 

266 PRINT "AND SOQ ON, UP TO 45. IF You oo THE PUZZLE WITH 2 DISKS, THEIR" * * *” 

365 PRINT "CODE NAMES WOULD 6Y 43 AND 415. WITH THREE DISKS, THE CODE" * * * 

378 PRINT "NAMES WOULD BE 14, 13, AND 15, ETC. THE NEEDLES ARE" ra * * 

375 PRINT “NUMBERED FROM LEFT To) RIGHT, 4 TO =. WE WILL START MITH THE “ * * * 

386 PRINT "DISKS GN NEEDLE 1, AND ATTEMFT TO MOVE THEM Tc! NEEDLE =. " ce * * 

390 PRINTSPRINT "GOOD LUCK! ! "SPRINT IOI AR a ak ak ak a a aE a: 4 * 

408 Y=?7\D=15 J HOR OOO ROK IOI I EK * dakar 
420 FOR X=S TO 1 STEF -1 WHICH DISK WOULD YOU LIKE TO MOVE? 12 

430 TCY, 19=DSD=D-2NY=Y-1 PLACE DISK ON WHICH NEEDLE? 2 

460 NEXT X * + + 

476 GOSUE 1236 * * * 

486 PRINT "WHICH DISK WOULD YOU LIKE TO MOVE"; NE=@ * * * 

586 INPUT D * + 4: 

518 IF (D-3)*¢D-S)*¢D-7)*CD-9) ¥(D-14)#C0-412)*(D-15)= THEN Se * * + 

526 PRINT "ILLEGAL ENTRY... VOU MAY ONLY TYRE 3.5, 7. 9,114,143, CRSton * * * 

539 E=E+1N\IF E>4 THEN 568 JOR ROO IO I OI IO IE Jeo aka aka dai kak seakokoak kat kaka ok 
558 GOTO 566 WHICH DISK WOULD YOU LIKE TO MOVE? 14 

569 PRINTSPRINT "STOF WASTING MY TIME. GO BOTHER SOMEONE ELSE. "SSTOP PLACE DISK ON WHICH NEEDLE? 2 

580 REM *** CHECK IF REQUESTED DISK 1S BELOW ANOTHER: * * * 

599 FOR R=1 TO ? * * * 

606 FOR C=1 TO & * a” * 

61@ IF TYR, C=C THEN 644 oe *” * 

620 NEXT CN\NEXT R * * * 

649 FOR G=R TO 1 STEP -14 ra dea ERE ab ok aE * 

645 1F T¢@,C2=@ THEN 668 SIO AOR OK I a a aK ak aE Seok aE ak ak ok aaa ” 

656 IF T¢G,C><D THEN 656 WHICH DISK WOULD YOU LIKE TO MOVE? 415 

668 NEXT @ PLACE DISK GN WHICH NEEDLE? % 

676 GOTO 766 * * * 

686 PRINT “THAT DISK 1S BELON ANOTHER ONE. MAKE ANCITHER CHOICE, "\GOTO 486 * * * 

706 E=6 Re * # 

705 PRINT "PLACE DISK ON WHICH NEEDLE"; \INFUT N * * * 

738 IF (N-1)*¢(N-2)*(N-3)=@ THEN S08 * * % 

P35 E=E+41 * fee ts oke ata ak ak a fas * 

7408 IF E>4 THEN 786 * Seok ska a ak aR RR i aE a seek Nea akeake kok ak abs ak ako 
759 PRINT “I7LL ASSUME YOU HIT THE WRONG KEY THIS TIME. BUT WATCH IT," WHICH DISK WOULD YoU LIKE TO MOVE? 44 

760 PRINT “I ONLY ALLOW ONE MISTAKE. "\GOTO 7a5 PLACE DISK ON WHICH NEEDLE? 1 

786 PRINT “I TRIED TO WARN YOU, BUT YOU WOWLON? T LISTEN. " * * + 

790 PRINT "BYE, BYE, BIG SHOT. "\STOF * Pa er 

795 REM *** LOCATE DISK TO BE MOVED * # * 

896 FOR R=1 TO ? * * * 

819 IF TKR, N?<>@ THEN S46 * es oe 

$20 NEXT R * x A 

836 GOTO 88a SIO IO IO IK SOR SESE kak ab aka: Setot kkk ab akak ak aka toa 
825 REM es CHECK IF DISK TO BE FLACED ON A LARGER ONE WHICH DISK WOULD YOU LIKE TO MOVE? 12 

S40 K1F (D<TCRy No) THEN TS ee ILLEGAL ENTRY... YOU MAY ONLY TYFE 3,5,7,9,44,43, OR 15 

8580 PRINT "YOU CAN’T FLACE A LARGER DISK ON TOF OF Ai SMALLER ONE. " D4 

860 PRINT "IT MIGHT CRUSH IT!"SPRINT "NOW THEN, "“sSGOTO 486 PLACE DISK ON WHICH NEEDLE? = 

875 REM #** RELOCATE MOVED DISK ie oy & 

886 FOR Y=41 TO ?\FOR W=1 TO = * ¥ “ 

996 IF T¢é¥,W>=D THEN 938 * * * 

946 NEXT WNNEXT V * * ye 

925 REM *** LOCATE FIRST EMPTY SPACE ON NEEDLE N a - - 

938 FOR U=1 TO ? * + apo ook oak koko 
949 IF TCU,N32<>G THEN 976 SOKO ak ake ake aks ak ak ak ake * Seikokokakakakaaok aE 
956 NEXT U WHICH DISK WOULD YOU LIKE TQ MOWE? 44 

966 GOTO 986 PLACE DISK ON WHICH NEEDLE? = 

965 REM *** MOVE DISK AND SET OLD LOCATION TO & * * * 

976 U=U-4 * * * 

986 TCU, ND=TCV, WONTCY, WEB * * * 

995 REM ek PRINT GUT CURRENT STATUS * * + 

1966 GOSUB 1226 A : RPE Pee 
4618 REM *** CHECK IF DONE * . PoC RRR 
ase aoe - * ai ok ak aaa ok Ne aka asa a 
1036 FOR R=1 TO ?\FOR C=4 TO 2 ee a ae rs ae staheles 

41050 IF TCR, C)<> THEN 1096 CONGRATULATIONS!! YOU HAVE PERFORMED THE TASK IN 7 MOVES 


4060 NEXT C\NEXT R 

4686 GOTO 1120 

1090 IF M<=126 THEN 450 

4108 PRINT "SORRY, BUT I HAVE ORDERS TO STOP IF YOU MAKE MORE THAN" 
4119 PRINT "128 MOVES. "\STOF 

4120 IF M¢>27S-41 THEN 1140 

4130 PRINT "CONGRATULATIONS!! “; 

4149 PRINT “YOU HAVE PERFORMED THE TASK IN*M™MOWES. * 

4150 PRINT\PRINT "TRY RNOTHER CINE (YES OR NOD"; \INFUT At 
1169 IF A$="NO" THEN 1294 

1179 IF A$="YES" THEN 90 

4180 PRINT\PRINT "“YES’ OR ‘NO’ PLEASE"; SINFUT AS\GOTO 1168 
1239 REM exe PRINT SUBROUTINE 

4248 FOR K=41 10 7 

1258 2=16 

1268 FOR J=1 To 3 

1278 IF TéK,J)=0 THEN 1330 

1280 PRINT TABC2-INT(TCK, J9¢2)); 

4298 FOR V=1 TO T¢K, J) 

4300 PRINT "*"; 

4346 NEXT V 

41320 GOTO 1340 

4330 PRINT TABC29; "*"; 

1348 2=2+24 

4350 NEXT J 

4368 PRINT 

4378 NEXT K 

41388 RETURN 

1396 PRINTSPRINT "THANKS FOR THE GAME! "\PRINTSEND 222 


TRAIN 


Description 


TIME-SPEED-DISTANCE QUIZ 


TRAIN is a program which uses the computer to generate problems 
with random initial conditions to teach about the time-speed- 
distance relationship (distance = rate x time). You then input 
your answer and the computer verifies your response. 


TRAIN is merely an example of a student-generated problem. 
Maximum fun (and benefit) comes more from writing programs 
like this as opposed to solving the specific problem posed. 
Exchange your program with others - you solve their problem 


and let them solve yours. 


Source 


TRAIN was originally written in FOCAL by one student for use 
submitted to us by: 


by others in his class. 


Walt Koetke 
Lexington High School 
Lexington, Mass. 02173 


4 PRINT "TIME - SPEED - DISTANCE EXERCISE*NFRINT 
5 RANDOMIZE 

18 C=INTCRND#25)+46 

415 D=INTCRND+15)+5 

26 T=INTCRND+19)+26 


Tt was 


25 PRINT " A CAR TRAYELING"C"MPH CAN MAKE A CERTAIN TRIF IN" 


38 PRINT D"HOURS LESS THAN A TRAIN TRAVELING FAT" T "MPH 


35 PRINT “HOW LONG DOES THE TRIF TAKE EB CAR": 
46 INPUT A 

45 V=D#*T/CC-T) 

5@ E=INTCABS<(¢V¥-A)4140/A)+. 5) 

55 IF E>5 THEN 76 

69 PRINT "GOOD! ANSWER WITHIN"E“FERCENT. " 

65 GOTO 86 

78 PRINT "SORR'. YOU WERE OFF BY"E“PERCENT. " 
86 PRINT “CORRECT ANSWER IS" "HOURS. " 

98 PRINT 

95 PRINT “ANOTHER FPROELEM CYES OR NID"; 

186 INPUT ASNPRINT 

165 IF AS="YES" THEN 14 

999 END 


READY 


RUN 
TRAIN 64:16 PM BS-MAY-7E 
TIME - SPEED - DISTANCE EXERCISE 


A CAR TRAVELING 44 MPH CAN MAKE A CERTAIN TRIP 
44 HOURS LESS THAN A TRAIN TRAVELING AT 24 MPH. 
HOW LONG DOES THE TRIF TAKE EY CAR? 16.5 

GOOD! ANSWER WITHIN @ FERCENT. 

CORRECT ANSWER IS 16.98 HOURS 


ANOTHER PROBLEM ¢YES OR NO)? YES 


A CAR TRAVELING 55 MPH CAN MAKE A CERTAIN TRIF 
46 HOURS LESS THAN A TRAIN TRAVELING AT 34 MPH. 
HOW LONG DOES THE TRIF TAKE EY CAR? 16. 2 
GOOD! ANSWER WITHIN @ PERCENT 
CORRECT ANSWER I5 16.1945 HOURS 


ANOTHER PROBLEM (YES OR NOD? YES 


A CAR TRAVELING 40 MPH CAN MAKE A CERTAIN TRIP 
44 HOURS LESS THAN A TRAIN TRAVELING AT 24 MPH 
HOW LONG DOES THE TRIF TAKE BY CAR? 15.5 
SORRY. ‘YOU WERE OFF BY 6 PERCENT 
CORRECT ANSWER IS 16.5 HOURS 


ANOTHER PROBLEM (YES OR NO)? NO 


READY 


IN 


IN 
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TRAP 


Description 


TRAP A MYSTERY NUMBER 


Another of the family of "guess the mystery number" games, in 
TRAP the computer selects a random number between 1 and 100 
(or other limit set in statement 20). Your object is to find 
the number. On each guess, you enter 2 numbers trying to 
trap the mystery number between your two trap numbers. The 
computer will tell you if its number is larger or smaller 
than your trap numbers or if you have trapped the number. 


To win the game, you must guess the mystery number by entering 
it as the same value for both of your trap numbers. You get 

6 guesses (this should be changed in statement 10 if you 
change the guessing limit in statement PAWN jae 


After you have played GUESS, STARS, and TRAP, compare the 
guessing strategy you have found best for each game. Do you 
notice any similarities? What are the differences? Can you 
write a new guessing game with still another approach? 


Program Author 


TRAP was suggested by 10-year old when he was playing GUESS. 
It was originally programmed by Steve Ullman and extensively 
modified into its final form by: 


Bob Albrecht 
People's Computer Co. 
Menlo Park, CA. 94025 
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PROGRAM LISTING 


TRAP EDUSYSTEM 34 
14° «#4G=6 
26 N=166 


38 REMN-TRAP 
40 REM-STEVE ULLMAN. 38 


58 PRINT "WANT INSTRUCTIONS ¢1 FOR YES)"; 


54 INPUT 2 
76 IF 2434 THEN 156 


PRINT “TELE WOU IF 
PRINT "NUMBER IS LARGER THAN "Oo 
PRINT "MY NUMBER IS SMALLER THAN 
PRINT “TF YOU. WANT TO: Gu 
PRINT “YOUR GU 
PRINT "SOU GET": G: 
X=INTCN#RND CB) +4 
FOR @=1 T0 G 

PRINT 

PRINT "GUES 
INPUT A.B 
IF ACDE THEN 244 


R 


"GUESSES TO) GET 


IF AX=B THEN 268 
GOSUB 268 
IF X<A THEN & 
IF X<=B THEN 324 


GOTO 338 
PRINT "MY NUMBER IS SMALLER THAN 
GOTO 336 


NEST @ 

PRINT “SORRY. THAT’ S "3 Gs "GUES 
GOTO 4414 

R=A 

RA=B 

B=R 

RETURN 

RUN ee OU GO its bi tis 
PRINT 

PRINT "TRY AGAIN. ” 
PRINT 

GOTO 186 

END 


READY 


PRINT "YOU HAVE TRAPPED MY NUMBER 


PRINT “I AM THINKING OF A NUMEER BETWEEN 1 AND" N 
PRINT "TRY TO GUESS MY NUMBER. ON EACH GUESS. 
PRINT "YOU ARE TO ENTER 2 NUMBERS 
PRINT "MY NUMBER BETWEEN THE THO NUMBE 


TRYING TO TRFP" 
T WILL" 


WOU HAVE TRAPPED M4 NUMBER. IF Mh" 
OR IF" 
‘OUR THO NUMBERS. " 

55 ONE SINGLE NUMBER. TYPE" 
FOR BOTH YOUR TRAP NUMBE 


THO NUMBER 


AY NUMBER. @ 


PRINT "MY NUMBER IS LARGER THAN YOUR TRAP NUMBERS. " 


TOWR TRAP NUMBERS. " 


NUMBER WAS 
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SAMPLE RUN 


TRAP EDUSYSTEM 26 


WANT INSTRUCTIONS ¢41 FOR YES) ?4 

TAM THINKING OF A NUMBER BETWEEN 1 AND 144 
TRY TO GUESS MY NUMBER. ON EACH GU 
“OU ARE TO ENTER 2 NUMBERS, TRYING TO TRAP 

MY NUMBER BETWEEN THE TWO NUMBERS. IT WILL 
TELL YOU IF YOU HAVE TRAPPED Mh NUMBER. ITF My 
NUMBER IS LARGER THAN YOUR TWO NUMBERS. OR IF 
HY NUMEER I5 ALLER THAN YOUR THO NUMBERS 

IF YOU WANT TO GUESS ONE SINGLE NUMBER. TYPE 
YOUR GUESS FOR BOTH YOUR TRAP NUMBERS 

YOU GET 6 GUESSES TO GET MY NUMBER 


DUES Sa ch 
MY NUMBER 


SMALLER THAN OUR TRAP NUMBERS. 


GUESS # 2 744.22 
NY NUMBER IS LARGER THAN OUR TRAP NUMBERS 


GUESS # 3 
HY NUMBER 


LLER THAN SOUR TRAP NUMBERS 


GUESS # 4 72 
TOU REO Lh yee 


TRY AGAIN. 


GUESS # 4 
MY NUMBER I 


SMALLER THAN YOUR TRAP NUMBERS. 


GUESS # 2 Pid, 22 
MY NUMBER IS LARGER THAN OUR TRAP NUMBERS 


GUESS # 2 ?25, 23 
YOU HAYE TRAPPED MY NUMBER 


GUESS # 4 726.2 
MWY NUMBER IS LARGER THAN OUR TRAP NUMBERS 


GUESS # 5 ?27.27 
PALE TERETE 2oipelitY 


TRY AGAIN 


GUESS #2 7 
YOU HAVE TRAPPED M 


1 NUMBER. 


GUESS # 


2 744,56 
MY NUMBER I 


S SMALLER THAN "OUR TRAP NUMBERS 


GUESS # 3 727.46 
YOU HAYE TRAPPED MY NUMBER 


GUESS # 4 735,38 
MY NUMBER IS SMALLER THAN OUR TRAP NUMBERS 


GUESS # 5 237,37 
VOUS Ota Te tit 


23 MITCH... oc. 


Description 


In the game of twenty-three matches, you start with 23 matches 
lying on a table. on each turn, you may take l, 2, or 3 matches. 
You alternate moves with the computer and the one who has to 

take the last match loses. 


The easiest way to devise a winning strategy is to start at 
the end of the game. Since you wish to leave the last match 
to your opponent, you would like to have either 4, 3, or 2 
on your last turn so you can take away 3, 2, or 1 and leave 
1. Consequently, you would like to leave your opponent with 
5 on his next to last turn so, no matter what his move, you 
are left with 4, 3, or 2. Work this backwards to the begin- 
ning and you'll find the game can effectively be won on the 
first move. Fortunately, the computer gives you the first 
move, so if you play wisely, you can win. 


After you've mastered 23 Matches, move on to BATNUM and then 
COLNIM: 


Program Author 


Raymond Burhitt of Plainedge H.S., N. Massapeque, N.Y. submitted 
one version of 23 Matches, however, the one published is from: 


Bob Albrecht 
People's Computer Co. 
Menlo Park, CA. 94025 


DIS Vee 


PROGRAM LISTING 


146 REM *##+23 MATCHES 

416 PRINT “LET°S PLAY 23 MATCHES. WE START WITH 22 MATCHES. " 
445 PRINT “YOU MOVE FIRST. YOU MAY TAKE 41.2 08 = MATCHES. " 
126 PRINT "THEN I MOVE... 1 MAY TAKE 1.2 08 % MATCHES. ” 

125 PRINT “YOU MOVE, I MOYE AND SO ON. THE ONE WHO HAS To" 
136 PRINT “TAKE THE LAST MATCH LOSES. " 

4135 PRINT "GOOD LUCK AND MAY THE BEST COMPUTER CHA HAD WIN. * 
144 PRINT 

456 LET M=22 

246 REM ***THE HUMAN MOYES 

245 PRINT 

214 PRINT "THERE ARE NOW"s Ms "MATCHES. ” 

215 PRINT 

226 PRINT “HOW MANY DO YOU TAKE", 

236 INPUT H 

244 IF H>M THEN 516 

254 >INTCH) THEN 516 

266 <=6 THEN 514 

276 >=4 THEN 518 

238 LET M=M-H 

296 IF M=68 THEN 444 

386 REM *#*THE COMPUTER MOVES 

245 IF mM=4 THEN 444 

316 LET R=M-4#INT(MN/4) 

326 IF R<>1 THEN 358 

338 LET C=INT¢S+#RND 6G) 44 

344 GO TO 366 

358 LET CR+Z-44 INTC CR+E) 74) 

268 LET M=N-Cc 

376 IF M=G THEN 444 

375 PRINT 

398 PRINT “I TOOK"; e;™ Ee 

296 GO TO 246 

496 REM *+*+SOMEBODY WON (SEE LINES 296. 245. 27a) 

446 PRINT 

426 PRINT “I WON!!! BETTER LUCK NEXT TIME. " 

126 GO TO 146 

446 PRINT 

456 PRINT "O.K. SO YOU WON. LET“S PLAY AGAIN, " 

469 GO TO 14% 

544 REM ***#THE HUMAN CHEATED! (SEE LINES 248 THR 274) 

516 PRINT "YOU CHEATED! BUT I’LL GIVE YOU ANOTHER CHANCE. " 
526 GO TO 245 

9993 END 

READY 


asl 


SAMPLE RUN 


23MTCH EDUSYSTEM Za 


LET“S PLAY 23 MATCHES. WE START WITH MATCHES 
YOU MOVE FIRST. YOU MAY TAKE 4.2 OR Zz MATCHES. 
THEN I MOVE...1 MAY TAKE 4.2 on = MATCHES 

YOU MOVE, I MOVE ANC SO ON. THE ONE WHO HAS To 
TAKE THE LAST MATCH LOSES 
GOOD LUCK AND MAY THE & 


ST COMPUTER CHA HA) WIN 


THERE ARE NOW 


¢ MATCHES 
HOW MANY DG YOU TAKE?= 

I TOOK & . THERE ARE NOW 17 MATCHES 
HOW MANY DO YOU TAKE ?4 


Ups AEBS Se Tea THERE ARE NOW 12 MATCHES 


HON MANY DO YOU TAKE?2 
1 TOOK 2 THERE ARE NOW 3 MATCHES 
HOW MANY DO YOU TAKE ?4 
1 TOOK 3... THERE ARE NOW 5 MATCHES 
HOW MANY DO YOU TAKE?4 
1 TOOK 2 _ THERE ARE NOW 4 MATCHES 


HOW MANY DO YOU TAKE?a 
YOU CHEATED! BUT I’LL GIYE YOU ANOTHER CHANCE 


HOW MANY DO YOU TAKE?4 


T WON!!! BETTER LUCK NEXT TIME 


THERE ARE NOW 22 MATCHES 

HOW MANY DO YOU TAKE?2 

I TOOK 4 . THERE ARE NOW 24 MATCHES 
HOW MANY DO YOU TAKE? 

1 TOOK 4 _ THERE ARE NOW 16 MATCHES 
HOW MANY DO YOU TAKE?2 

1 TOOK 2 . THERE ARE NOW 14 MATCHES 
HOW MANY DO YOU TAKE?2 

I TOOK 3 _ THERE ARE NOW & MATCHES 
HOW MANY DO YOU TAKE ?4 

I TOOK 3 THERE ARE NOW 2 MATCHES 
HOW MANY DO YOU TAKE?4 


O.K. SO YOU WON. LET’S PLAY AGAIN 


GLY DRAWS AN UGLY WOMAN 


Description 


This program draws on the terminal the profile of a woman. 
It gives you an opportunity to specify the "dimensions" of 
your woman (termed SPECIAL) or take your chances (CHANCE). 


The computer draws your figure and then makes a determination 
whether or not to call your woman ugly or just leave Le up: to 
your own judgement. 


Program Author 


Mark Maslar 
231 Appletree Drive 
Media, PA. 19063 
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PROGRAM LISTING 


5 PRINT “PROGRAM “UGLY “SPRINT 

6 D=4NE=4NF=4SPRINT "CO YOU WANT CHANCE(41). OR SPECIAL C2)"; 
7 INPUT G 

8 IF G=2 THEN 17 

9 RANDOMIZE 

16 A=INT(464+RND9445 

44 B=INT(46+RND +14 

412 C=INT(46+RND +15 

43 PRINT "A="A, "B="B, "C="C 

44 PRINT "OO YOU STILL WANT CHANCE -- 1 FoR Yes. 2 FOR NO"; 
45 INPUT H 

16 ON H GOTO 19%, 6 

4? PRINT "WHAT ARE YOUR YALUES FOR AL &. 
48 INPUT ALB. C 

49 PRINTSPRINTSPRINT TAB C20) "eee 

29 PRINT TABC19)"XxxxR 

25 PRINT TABC20)"2xK" 

SM PRONT THEC 2d) ta 

25 PRINT TABCAS)"K*; 

40 D=D+4 

45 PRINT “A"; 
56 IF O>=A-2 THEN 64 
55 GOTO 44 

Be PRINT *x" 

65 PRINT TABCIS) "xm, 
78 D=4 

753 b=D+4 

86 PRINT "XK"; 

Bp) LEAO=H=1 THEN 95 

98 GOTO 75 

BORN sock ak 

PRINT TABC159"K"; 
D=4 

O=D+4 

PRINT "A"; 

IF D>=A-2 THEN 126 
GOTO 144 

PRET xt 

PRIET mHe Cao ue 3 
E=E+4 

PRIBT MAN: 

IF E=6-1 THEN 165 
GOTO 146 

PRIRG "x" 

PRINT TABCASI" A'S 
E=4 

E=E+4 

BRT Ps 

IF E=EB-1 THEN 245 
GOTO 136 

PRINT "A" 

PRINT TRE (15)"%"5 
E=4 

etary 

PRINT "X"5 

IF E=B-1 THEN 244 
GOTO 226 

PROUNih ial 

PRINT PABCLS OS as. 
FH=F+41 
PRINT 
Teferbe2 Thebes e 
GOTO 256 

Bei %" 

PRINT TABCA5)9 "2 "5 
F=4 

FaF+4 

PRB Pos" 5 

IF F=C-1 THEN 345 
GOTO 285 

PRINT "? 

PRINT TABCA52 "H's 
Fai 

GOTO 226 

FeF+z 

F=F+1 

PRINT "K"G 

IF F=? THEN 32 
GOTO 234 

PRINT 69'%5 
GOTO Z47 

IF F=C-1 THEN 24a 
GOTO 326 

PRINT "a" 

PRINT TABC19) "2% 
PRINT TABCAL Ke 
PRINT TRHEC4L 
PRINT TAB(16)" 
365 PRINT TAB(15)" 
370 PRINT TAB(12)" 
336 PRINTSPRINT 
325 IF B<A THEN 6 
395 FOR X=1 TO 45 
466 PRINT "UGLY! "3 
495 NEXT X 

497 PRINTSPRINT 
4146 GOTO 6 

415 END 


ANC I"; 


wo 


y" 


READY 


SAMPLE RUN 


rd 


PROGRAM “UGLY” 


DO YOU WANT CHANCE(4). OR SPECIAL(Z)% 4 
A= 24 B= 46 c= 
DO YOU STILL WANT CHANCE -- 4 FOR YES. 


2 FOR NO? 4 


PEE UGE Ue GES UGE Ser BGS RES) SENS eyst 
UGE! Web! UGE! “USES UGE (UGE! WISE SUR igs 
PGE Gy ERG ee a UES INSEE Ee ONS Te td 
UEC UGE EO) SIG IENEY, VIGOR Dia Le LUG LE ie Te rede) UTS ee 


DO YOU WANT CHANCE<1). OF SPECIALC297 4 
A= 19 B= 25 c= 24 


DO YOU STILL WANT CHANCE -- 1 FOR Na? 2 
DO YOU WANT CHANCE¢1). OR SPECIAL? 

A= 25 B= 2 c= 24 

DO YOU! STILE WANT CHANCE -—= +t POR Yes NO? 2 


DO YOU WANT CHANCE¢1>,. OR SPECIAL¢ 
WHAT ARE YOUR YALUES FOR A, E. AND 


75x] 


UGLY! 
WGL! 
Lgl! 
UGLY! 


UGLY! UGLY! 
WELY! UGLY! 
UGLY! UGLY! 
UGLY! UGLY! 


\ é AR CARD GAME OF WAR 


Description 


This program plays the card game of War. In War, the card 
deck is shuffled, then two cards are dealt, one to each 
player. Players compare cards and the higher card (numeri- 
cally) wins. In case of tie, no one wins. The game ends 
when you have gone through the whole deck, (52 cards, 26 
games) or when you decide to quit. 


The computer gives cards by suit and number, for example, 
5-7 is the 7 of spades. 


Note: The *G in some of the PRINT statements (470,650) 
indicates the ringing of the teletype bell. 


Source 


This program showed up on a DIGITAL in-house DECsystem-10 
one day. The author is unknown. 


Hts our LATEST DEFENSE 
INTERDICTION DETERGENT 


PROGRAM LISTING 


REM AND THEN SHUFFLES IN A RANDOM WAY, 
REM CARDS TWO AT A TIME AS LONG AS THE 
REM SCORE IS KEPT, 

100 PRINT "THIS IS THE CARD GAME OF WAR, 
110 PRINT "AS Se7 FOR SPADE 7, "y 

12@ PRINT "DO YOU WANT DIRECTIONS" 

13@ INPUT Bs 

140 IF BS2"NO" THEN 210 

150 IF BS="YES" THEN 180 

160 PRINT "YES OR NO, PLEASE, "3 

170 GO TO 120 

180 PRINT "THE COMPUTER GIVES YOU AND IT 
19@ PRINT "(NUMERICALLY) WINS, THE GAME 
20@ PRINT " TO CONTINUE OR WHEN YOU HAVE 
21@ PRINT 

220 PRINT 

23@ DIM AS(52), L(54) 

249 FOR I=1 TO 52 

25@ READ AS(TI) 

26@ NEXT I 

270 RANDOM 

28@ FOR Jai TO 52 

290 LET L(J)BINT(S52*RND(X) 41) 

300 FOR K31 TO Jei 

310 IF L(K)<>L(J) THEN 340 

320 LET J&Je} 

33@ GO TO 350 

34@ NEXT K 

35@ NEXT J 

360 LET PsP+i 

370 LET MieL(P) 

38@ LET PsP+i 

398 LET M2aL(P) 

400 PRINT 

412 PRINT 


UPwne 


REM THIS PROGRAM PLAYS THE CARD GAME OF WAR, 
REM IS THAT A TIE MAKES NO SCORE AT ALL. 


THE ONLY CHANGE 

THE PACK IS READ IN 
THE COMPUTER THEN DEALS THE 
GAME CONTINUES, A RUNNING 


EACH CARD IS GIVEN BY SUIT#4#"y 


A 'CARD!, THE HIGHER '!CARD! 
ENDS WHEN YOU CHOOSE NOT" 
FINISHED THE PACK," 


420 PRINT "YOU "JAS(M1),» "COMPUTERS "JSAS(M2), 


430 LET NIBINT((M1",.5)/4) 
440 LET N2=INT((M2-,5)/4) 
450 IF Ni>=N2 THEN 490 
460 LET A1EA1e1 

470 PRINT "COMPUTER WINS."G°G"G"G"G YOU 
480 GO TO 544 

490 IF Ni=N2 THEN 530 
500 LET BieBiel 

51 PRINT "YOU WIN. 
§20 GO TO 540 

$30 PRINT "TIE. NO SCORE CHANGE," 
$40 IF L(P41)30, THEN 614 

55@ PRINT "DO YOU WANT TO CONTINUE" 
560 INPUT VS 

570 IF VS="YES" THEN 360 

580 IF V$S"NO"THEN 659 

590 PRINT "YES OR NO», PLEASE, "3 

698 GO TO 5490 

619 PRINT 

62@ PRINT 

63@ PRINT "YOU HAVE RUN OUT OF CARDS, 
640 PRINT "3 COMPUTER@="3A1 
650 PRINT "THANKS FOR PLAYING, 


FINAL SCORE? 


HAVE" Bis") COMPUTER HAS"SA1 


YOU HAVE"3Bis"s COMPUTER HAS";A1 


YOUr="sBiy5 


IT WAS FUN,*G"G" 


662 DATA S$#2,H#2,C#2,D92,8"3,H™3,C@3,De3,S94,H94,CH4,D94/S95,H95+C#5 


672 DATA De#5,S"6,H=6,C=6,D"6,S"97,H=7,C#7, 


De7,S"8,H=B,C=8,D=8,S"9,H99 


680 DATA C#9,D99,S"18,H910,C#10,D910,S9J,HeJ Cod DoJ, S=0,H#Q,CQ,D0 


690 DATA S#K,H@K,C#K,DeK,S*AsH*A,CwArDmA 


700 END 


SAMPLE RUN 


THIS IS THE CARO GAME OF WAR 
AS S-7? FOR SPADE 7. 
THE COMPUTER GIVES YOU ANC IT A “CARD. 
CNUMER ICALLY? WINS 


EACH CARL 


IS GIVEN Eu SUIT — # 
CoO YOU WANT CIRECTIONS ?'ES 

THE HIGHER * CARD 
THE GAME ENDS WHEN YOU CHOOSE NOT 


TO CONTINUE OF WHEN YOU HAVE FINISHED THE PACK 


YOU: D-3 COMPUTER: D-2 
YOU WIN, You HAVE 2; COMPUTER HAS & 
DO YOU WANT TO CONTINUE ?Y'ES 


YOU: H-3 COMPUTER: D-& 
COMPUTER WINS 


DO YOU WANT TO CONTINUE ?Y'ES 


SOUS Eto COMPUTER: C-& 
YOU WIN. YOU HAVE 2 ; COMPUTER HAS 4 
DO YOU WANT TO CONTINUE ?Y'ES 


YOU: D-J COMPUTER: C-18 
YOU WIN. YOU HAVE = i; COMPUTER HAS 1 
DO YOU WANT TO CONTINUE ?Y'ES 


YOU; S-16 COMPUTER: D-9 
YOU WIN. YOU HAVE 4 ; COMPLITER! HAS 1 
DO YOU WANT TO CONTINUE ?Y'ES 


YOU HAVE 1 3 COMPUTER HAS 


4 


"y 


23 


YOU: C=-5 COMPUTER: D-4 
YOU WIN. YOU HAVE S ; COMPUTER HAS 4 
DO YOU WANT TO CONTINUE 7YES 


YOU: C-6 COMPUTER: S-A 
COMPUTER WINS YOU HAVE S ; COMPUTER HAS 2 
DO YOU WANT TO CONTINUE 7'ES 


YOU: S-K COMPUTER: H-14 
YOU WIN, YOU HAVE 6 ; COMPUTER HAS 2 
DO YOU WANT TO CONTINUE 7Y'ES 


DAUR IRS COMPUTER: C-A 
COMPUTER WINS. YOU HAVE 6 ; COMPUTER HAS = 
DO YOU WANT TO CONTINUE ?VES 


WOU «G=35 COMPUTER: sS-2 
YOU WIN. YOU HAVE 7? 3 COMPUTER HAS = 
DO YOU WANT TO CONTINUE ?7Y'ES 


YOu: C-J COMPUTER: H-K 
COMPUTER WINS. VOU HAVE 7 ; 
DO YOU WANT TO CONTINUE #4Y'ES 


COMPLITER HAS 4 


YOU: H-6& COMPUTER: C-A 
COMPUTER WINS. YOU HAVE 7 3 COMPUTER HAS 
DO YOU WANT TO CONTINUE PES 


on 


YOU: C-@ COMPUTER: C-2 
YOU WIN. YOU HAVE & 5 COMPUTER HAS S 
DO YOU WANT TO CONTINUE ?Y'ES 


VOUS: (Ses COMPUTER: 7 
COMPUTER WINS. VOU HAVE & ; 
DO YOU WANT TO CONTINUE ?YES 


COMPUTER HAS 


n 


YOU: H-S COMPUTER: O-14 
COMPUTER WINS. YOU HAVE & 3 COMPLITER HAS 7 
DO YOU WANT TO CONTINUE ?Y'ES 


YOU: H-A COMPUTER: C-o 
YOU WIN. YOU HAVE S$ 3 COMPUTER HAS 7 
DO YOU WANT TO CONTINUE ?Y'ES 


YOU; H-Q COMPUTER: 0-6 
YOU WIN, YOU HAVE 1 ; IMPUTER HAS 7 
CO YOU WANT TO CONTINUE ?Y'ES 


YOU: H-& COMPUTER: D-k 
COMPUTER WINS. YOU HAYE 14 ; COMPUTER HAS & 
DO YOU WANT TO CONTINUE 7YES 


TOUS =i COMPUTER: H-4 
YOU WIN. YOU HAVE 14 5; COMPLITER: HAS & 
DG YOU WANT TO CONTINUE ?Y'ES 


mou S=J COMPUTER: H-J 
LE, NO SCORE CHANGE 
DO YOU WANT TO CONTINUE ?'ES 


YOU: S-@ COMPUTER: C-G 
TIE, NO SCORE CHANGE 
DO YOU WANT TO CONTINUE 7Y'ES 


YOU: C-4 COMPUTER: H-2 
YOU WIN, YOU HAVE 12 5; COMPUTER HAS ¢& 
DO YOU WANT TO CONTINUE ?Y'ES 


YOU: S-3 COMPUTER: S-6 
COMPUTER WINS. YOU HAVE 12 5 COMPUTER HAS & 
DO YOU WANT TO CONTINUE 7Y'ES 


YOU: H-? COMPUTER: S-& 
COMPUTER WINS. YOU HAVE 12 ; COMPUTER HAS 14 
0O YOU WANT TO CONTINUE ?Y'ES 


YOU: C-K COMPUTER: D-S 
YOU WIN. YOU HAYE 13 ; COMPUTER HAS 14 
DO YOU WANT TO CONTINUE ?7Y'ES 


YOU; D-? 


COMPUTER: S-9 
COMPUTER WINS. z 


YOU HAVE 13 3 COMPUTER HAS 14 


YOU HAVE RUN OUT OF CARDS 
THANKS FOR PLAYING 


FINAL SCORE: 
IT WAS FLIN 


YOU=— 43 3 


COMPUTER-- 44 


: VAR 2 TROOP TACTICS IN WAR 


Description 


In this game, you are fighting a small-scale war with the 
computer. You have 72,000 troops which you first must 
distribute into your Army, Navy, and Air Force. You may 
distribute them in any way you choose as long as you don't 
use more than 72,000. 


You then attach your opponent (the computer) and input 
which service and the number of men you wish to use. The 
computer then tells you the outcome of the battle, gives 
you the current statistics and allows you to determine 
your next move. 


After the second battle, it is decided from the total 
statistics whether you win or lose or if a treaty is signed. 


Program Author 


Bob Dores 
70 Summer Street 
Milton, MA. ~~ 02186: 


© 1967 by Creative Publications 
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PROGRAM LISTING 


23 
188 
105 
118 
115 
129 
EAS) 
138 
158 
LSS 
168 
165 
288 
219 
21> 
220 
2308 
232 
235 
256 
255 
260 
278 
2i15) 
288 
285 
298 
293 
388 
3168 
328 
338 
358 
355 
368 
378 
375 
377 
378 
379 
388 
381 
385 
387 
398 
58a 
581 
518 
52a 
538 
1888 
1016 
1628 
1836 
1846 
1845 
1850 
1686 
1618 
1615 
1616 
1617 
1636 
1635 
1640 
1786 
1716 
1726 
1758 
1751 
LISS 
1768 
1765 
1778 
1771 
1775 
1788 
1798 
1808 
1816 
1828 
1830 
1831 
1835 
1837 
1846 
1845 
1858 
1851 
1868 
2888 
2661 
2862 
2895 
2006 
2087 
2088 
2016 
2012 
2015 
2016 
2626 


REM BOB DORES/WAR 

PRI "I AM AT WAR WITH YOU." 

PRI “WE HAVE 72000 SOLDIERS A PIECE.” 
PRI “DISTRIBUTE YOUR FORCES." 

PRE a UMEMs)yOure 

PRI" ARMY''> "30008", 

INPUT A 

PRI"NAVY"'s "200828", 

INPUT B 

PRI"AsFe"s "22886", 

INPUT C 

IF A+B+C>720908 THE 5S 

D=30806 

E=29606 

F=22606 

PRI "YOU ATTACK FIRST. TYPE 1 FOR ARMY 2 FOR NAVY" 
PRI "AND 3 FOR AIR FORCE." 

INPUT Y 

PRI "HOW MANY MEN" 

INPUT X 

IF X<@ THEN 2¢ 

ON Y GOTO 188,290,390 

IF X>A THEN 29 

IF X<A/3 THEN 1208 

IF X<2*A/3 THEN 159 

GOT 278 

PRI "YOU LOST "X" MEN FROM YOUR ARMY." 
A=INTC(A-X) 

GOTO 5288 

PRI"YOU LOST “INT(X/3)"" MEN, BUT I LOST "“INTC2*D/3) 
A=INTCA=X/3) 

D=G 

GOTO 50 

IF X>B THE 26 

IF X<E/3 THEN 230 

IF X<2*E/3 THEN 250 

GOT 276 

PRI "YOUR ATTACK WAS STOPPED!" 
B=INTC(CB=-X) 

GOTO 598 

PRI "YOU DESTROYED “INTC2*E/3)" OF MY ARMY." 
E=INTCE/3) 

GOTO 588 

PRI"YOU SUNK 1 OF MY PATROL BOATS, BUT I WIPED OUT 2" 
PRI"OF YOUR AeFe BASESs AND 3 ARMY BASES-"” 
A=INTCA/3) 

C=INT(C/3) 

E=INTC2*E/3) 

GOTO S82 

IF X>C THEN 20 

IF X<C/3 THEN 359 

IF X<2*C/3 THEN 378 

GOT 383 

PRI "YOUR ATTACK WAS WIPED OUT." 
C=INT(C-X) 

GOTO 5808 


PRI "WE HAD A DOGFIGHT- YOU WON - AND FINISHED YOUR MISSION." 


D=INT(2*D/3) 

E=INTCE/3) 

F=INTCF/3) 

GOTS8S 

PRI "YOU WIPED OUT ONE OF MY ARMY PATROLS, BUT I" 
PRI "DESTROYED 2 NAVY BASES» AND BOMBED 3 ARMY BASES." 
A=INTCA/4) 

B=INT(B/3) 

D=INT(2*D/3) 

PRI 

PRis LOU ME 

PRI" ARMY", As D 

PRI"NAVY", Bs E 

PRI"AcFes CaF 

PRI “WHAT IS YOUR NEXT MOVE?" 


PRI "ARMY=1 NAVY=2 AIR FORCE=3" 
INPUT G 

PRI "HOW MANY MEN" 

INPUT or 


IF T<@ THE 1836 

ON G GOTO 1688,1780,1889 

IF T>A THE 1038 

IF T<D/2 THE 1636 

PRI"YOU DESTROYED MY ARMY!" 

D=8 

GOTO 2886 

PRI "I WIPED OUT YOUR ATTACK" 

A=A-T 

GOTO 2826 

IF T>B THEN 1838 

IF T<E/2 THEN 1758 

GOT 1776 

PRI "I SUNK 2 OF YOUR BATTLESHIPS, AND MY AIR FORCE” 
PRI "WIPED OUT YOUR UNGUARDED CAPITOL.” 

A=A/4 

B=B/2 

GOTO 2008 

PRI "YOUR NAVY SHOT DOWN 3 OF MY XIII PLANES »" 
PRI"AND SUNK 3 BATTLESHIPS." 

F=2xF/3 

E=(E/2) 

GOTO028689 

IF T>C THEN 1830 

IF T>F/2 THEN 1838 

GOT 1858 

PRI "MY NAVY AND AIR FORCE IN A COMBINED ATTACK LEFT" 
PRI "YOUR COUNTRY IN SHAMBLES-" 

A=A/3 

B=B/3 

C=C/3 

GOTO 2600 

PRI"ONE OF YOUR PLANES CRASHED INTO MY HOUSE. I AM DEAD«" 
PRI'"MY COUNTRY FELL APART." 

GOTO 2018 

PRI 

PRI “FROM THE RESULTS OF BOTH OF YOUR ATTACKS," 

IF A+B+C>3/2*(D+E+F) THE 2619 

IF A+B+C<2/3*(D+E+F) THE 2615 

PRI"THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR" 
PRI"RESPECTIVE COUNTRIES» AND LIVE IN PEACE." 
GOT2620 

PRI "YOU WON» OH! SHUCKS!!!1!1!" 

GOTO 2020 

eal "YOU LOST-I CONQUERED YOUR COUNTRY- IT SERVES you” 
PRI "RIGHT FOR PLAYING THIS STUPID GAME!!!" 


END 
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SAMPLE RUN 


I AM AT WAR WITH YOU. 
WE HAVE 72688 SOLDIERS A PIECE. 
DISTRIBUTE YOUR FORCES. 


ME YOU 
ARMY 39888 2? 30089 
NAVY 288958 2? 288800 
AeF. 22880 ? 220806 


YOU ATTACK FIRST. TYPE 1 FOR ARMY 2 FOR NAVY 
AND 3 FOR AIR FORCE. 

| 

HOW MANY MEN 

a2. 

YOU LOST 2 MEN FROM YOUR ARMY. 


YOU ME 
ARMY 29998 38080 
NAVY 26688 28080 
AsFe 22880 22988 
WHAT IS YOUR NEXT MOVE? 
ARMY=1 NAVY=2 AIR FORCE=3 
Gow)! 
HOW MANY MEN 
? 2.34 


I WIPED OUT YOUR ATTACK 


FROM THE RESULTS OF BOTH OF YOUR ATTACKS, 
THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR 
RESPECTIVE COUNTRIES, AND LIVE IN PEACE. 


READY 


RUN 

I AM AT WAR WITH YOU. 

WE HAVE 72006 SOLDIERS A PIECE. 
DISTRIBUTE YOUR FORCES. 


ME YOU 
ARMY 36988 2? 728808 
NAVY 290889 ? 380880 
AeFe 22688 ? 34 
DISTRIBUTE YOUR FORCES~- 

ME YOU 
ARMY 39880 ? 2333 
NAVY 202829 2? 54322 
AeFe 22988 ? 74633 
DISTRIBUTE YOUR FORCES. 

ME YOU 
ARMY 38828 ? 3455 
NAVY 28880 ? 6344 
AeFe 22886 ? 27788 


YOU ATTACK FIRST. TYPE 1 FOR ARMY 2 FOR NAVY 
AND 3 FOR AIR FORCE. 


Wee 
HOW MANY MEN 
2? 17899 
HOW MANY MEN 
? 3008 
YOUR ATTACK WAS STOPPED! 

YOU ME 
ARMY 3455 38898 
NAVY 3344 200808 
AcFe 27788 220388 


WHAT IS YOUR NEXT MOVE? 

ARMY=1 NAVY=2 AIR FORCE=3 

i 2 

HOW MANY MEN 

? 3344 

I SUNK 2 OF YOUR BATTLESHIPS, AND MY AIR FORCE 
WIPED OUT YOUR UNGUARDED CAPITOL. 


FROM THE RESULTS OF BOTH OF YOUR ATTACKS» 
YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU 
RIGHT FOR PLAYING THIS STUPID GAME!!! 


READY 


RUN 

I AM AT WAR WITH YOU. 

WE HAVE 720823 SOLDIERS A PIECE. 
DISTRIBUTE YOUR FORCES. 


ME YOU 
ARMY 38838 2? 2689 
NAVY 20808 ? 388386 
AF. 22088 2? 6444 


YOU ATTACK FIRST. TYPE 1 FOR ARMY 2 FOR NAVY 
AND 3 FOR AIR FORCE. 

ewe 

HOW MANY MEN 

? 6443 

YOU WIPED OUT ONE OF MY ARMY PATROLS, BUT I 
DESTROYED 2 NAVY BASES, AND BOMBED 3 ARMY BASES-« 


YOU ME 
ARMY 508 28808 
NAVY 18688 268980 
AeF. 6444 228083 


WHAT IS YOUR NEXT MOVE? 

ARMY=1 NAVY=2 AIR FORCE=3 

23 

HOW MANY MEN 

255: 

ONE OF YOUR PLANES CRASHED INTO MY HOUSE. I AM DEAD. 
MY COUNTRY FELL APART. 

YOU WON» OH! SHUCKS!!!!! 


READY 


: EK DAY FACTS ABOUT YOUR BIRTHDAY 


Description 


This program gives facts about your date of birth {or some 
other day of interest). It is not prepared to give informa- 
tion on people born before the use of the current type of 
calendar, i.e. year 1582. 


You merely enter today's date in the form - month, day, 
year and your date of birth in the same form. The computer 
then tells you the day of the week of your birthdate, -your 
age, and how much time you have spent sleeping, eating, 
working, and relaxing. 


Source 
WEKDAY was adapted from the GE timesharing program by: 
Tom Kloos 


Oregon Museum of Science and Industry 
Portland, Oregon 97200 
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PROGRAM LISTING 


oho a 1278 GOTO 710 
128@ PRINT "FRIDAY THE THIRTE NT@=esBEW " 
124 LET yi = 1970 1298 GOTO 740 be ‘pile 
ie ee DATE IN THIS FORM! MONTHsDAY, YEAR" 1300 PRINT "NOT PREPARED TO GIVE DAY OF WEEK PRIOR TO MOLXPXII o" 
eOl, 1305 PRINT # THE CURREN N N 
GsBiTEAy (Clos Menor tataveonciits: ENT CALENDAR DID NOT EXIST BEFORE THAT YEaR,# 
160 LET Y1 = Yy + 1999 1330 DAyA @, 3, 3, 6, 1, 4, 6 8 
178 DEF FNACA)®INT(A74) WOE ees ee 
182 DIM Tc12) 1388 LET I5 ® INT(K1/365) 
198 DEF FNB(A)@INT(A/7) 1390 LET Ki » Ki=(15#365) 
218 FoR I® 1 To 12 1400 LEY 16 » INT(K1/30) 
228 READ T(1) 1410 LET I7 = Ki=(16#30) 
238 NEXT I 1420 LET K5 @ K5"I5 
248 PRINT 1430 LET K6 & K6nI6 
24,PRINT"THIS PROGRAM DEMONSTRATES PDP=44 RASIC AND ALSO GIVES " 1440 LET K7 @ K7<J7 
242PRINT"FACTS ABOUT A DATE OF INTEREST TO You" 1450 IF K7 >® @ THEN 1489 
244 PRINT 1460 LET K7 = K7430 
246 PRINTYENTER DATE OF BIRTH IN THIS FORMt MO,DAY,YEAR") 1470 LET k6 ® K6=1 
258 INPUT M,D,Y 1480 IF K6 > @ THEN 1519 
268 PRINT 1498 LET K6 = K6+412 
270 IF Y = 75 >@ THEN 282 1500 LET KS = K5@1 
275 LET Y = Yei90a 151@ PRINT 15,16,17 
2868 LET 11 INTC CY¥=1590)/100) 152@ RETURN 
290 IF Y=1582<@ THEN 1300 1530 IF K6 # {2 THEN 1559 
3OO LET A aw Tie54(1143)/4 1548 GoTo 1090 
SLOLET 12 = INTC A*FNB(A) #7) 155@ LET KS ® K5e1 
328 LET Yow INTC(Y/1@@) 1560 LET K630 
330 LET Y3 ® INTCY*Y2"499) 1578 GOTO 1292 
340 LET A @ Y3/44Y34+D4T(M) 410 1582 END 


358 LET B ® INTCASFNB(A) a7) 61 

360 IF M>2 THEN 479 

370 IF y3e @ THEN 440 

380 LET TL ® INT(Y=FNACY) #4) 

398 IF Ti<> @ THEN 479 

400 IF B<> THEN 426 

410 LeT B® 6 

420 LET B ® Bei 

438 GOTO 470 SAMPLE RUN 
440 LET A ® I1=1 


450 LET T1 # INTCA@FNACA) #4) ENTER TODAY’S DATE IN THIS FORM: MONTH, DAY, WEAR? 646,12, 73 
469 IF Ty ® 4 THEN daa a he 

470 IF B <> g THEN 49a THIS PROGRAM DEMONSTRATES POF-14 BASIC AND ALSO GIVES 

460 LET B® 7 FACTS-“¢ 

490 IF (yYiw12emi)e3leD1<cywi2enjye3ied THEN 550 res 

508 TF CYLe12+mide3isD1e(yel2em)e314D THEN 530 FERC 

S51@ PRINT MIMS "SDE" /"p¥R" WAS A ME 

520 GOTO 570 RUIN yl a 

530 PRINT Mg"/"sDgp"/" gy," IS A My WEKCAY w2:46 PM 42-JUN-73 


542 GOTO 570 
55@ PRINT MEM/"yD,"/"sYy" WILL BE A "9 


570 IF B<>{ THEN 590 ENTER TODAY’S CATE IN THIS FORM: MONTH. DAY, WEAR? 6,412, 73 
5 PRINT "SUNDAY" 
aes IF ee THEN BiG THIS PROGRAM DEMONSTRATES FOP-11 BASIC AND ALSO GIVES 
602 PRINT "MONDAY" FACTS ABOUT A DATE OF INTEREST TO You 
6 F B<>3 EN630 
Ae Beant Gruespave ENTER DATE OF EIRTH IN THIS FORM: MO. DAY, YEAR? 5.17, 39 
636 IF B<>4 THEN 654 ee ce 2 
648 PRINT ieee ariys Sof 47 ¢ 14939 WAS A WEDNESDAY 
@ IF B<>5 THEN 678 
5 PRINT *THURSDAYE ! ee YEARS MONTHS DAYS 
670 IF B<>6 THEN 6920 ye: BEE , 34 a 25 
68@ GOTO 12598 TOW HAYE SLEPT 4:4) 44 re 
690 IF B<>7 THEN 710 OW HAVE EATEN 5 9 18 
700 PRINT "SATURDAY" OW HAVE WORKEO/STUGIED fe 14 iS 
710 IF (CY1#124Mi)e3iepiecyel2+m)e3iep THEN 1120 VOW HAVE RELAXED b=} be 25 
ote ese **VOU MAY RETIRE IN 2004 #* 
Mie 

oat ree Hays CALCULATEC BS THE GEST MINICOMPUTER TODAY - THE POP-11 
760 IF I7>"g THEN 799 
770 LEy 16816=1 
780 LET 17817430 
aoe eters uh nee THIS PROGRAM DEMONSTRATES POP-11 BASIC AND ALSO GIVES 
810 rer ae FACTS ABOUT A DATE OF INTEREST To You 
one i Sp ep ENTER CATE OF BIRTH IN THIS FORM: MO, DAY. YEAR? 9,24, 48 
835 IF I6<>” THEN 850 ene is 
84g PRINT "####HAPPY BIRTHDAY #oewn!l Bf 24 ¢ 4945 WAS A FRIDAY 
850 PRINT now non "YEARS", "MONTHS", "NAYS" F ; i 
86 PRINT "YOUR AGE "415,16,17 Saat eae cee MONE pays 
870 LET AB® (154365)+(16030)4+I174INT (16/2) te a eee a = 2 aa 
880 LEy K5#I5 1 HAVE SLEF s 7 27 
890 LET x6816 YOU HAVE EATEN 4 2 12 
900 ae oe 7 WOU HAVE WORKEO/STUDIED 5 8 10 

L I YO) HAVE RELAXED 6 4 23 


920 LET E®Y+65 
988 aa ae HAVE SLEPT ", *eYOU MAY RETIRE IN 2642 #* 
962 GOSUB 1378 
97@ LET Fa,17 
98g PRINT "YOU HAVE EATEN ", 
99g GOSUB 4379 
1000 LEy7 Fe,23 
1010 IF x5 > 3 THEN 1240 
1020 PRINT"YOU HAVE PLAYED ", 
1030 GOTO 12080 
1840 IF K5 > 9 THEN 1670 
1850 PRINT "YOU HAVE PLAYED/STUDIED"> 
1060 GOTO 198@ 
1070 PRINT "yOu HAVE wORKED/gTyDIED", 
1080 GOsu8 1370 
1098 PRINT "YoU HAVE RELAXED ",K5,K6,K7 
1100 PRINT 
1110 PRINT " ","eevQU MAY RETIRE IN"JES Neen 
20 PRINT 
ise PRINT" CALCULATED BY THE BEST MINICOMPUTER TODAY = THE PDPRy," 
1149 FOR Qey TO 2 
1150 PRINT 
1160 NEXT 9 
1170 PRINT 
1248 GOTO 240 
1250 IF D813 THEN 1280 
1260 PRINT "FRIDAY " 


CALCULATED BY THE BEST MINICOMPUTER TODAY - THE POP-414 
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ORD WORD GUESSING GAME 


Description 


WORD is similar to Hangman in that the player must guess 
a word with clues as to letter position furnished by the 
computer. However, instead of guessing one letter at a time, 
in WORD, you guess an entire word (or group of 5 letters, 
such as ABCDE). The computer will tell you if any letters 
in your word are in the mystery word and if any of them are 
in the correct position. Armed with these clues, you go on 
guessing until you get the word or, if you can ct *get Lt, 
input a "?" and the computer will tell you the mystery word. 


You may change the words in Data Statements 512 and Slo7ebpuc 
they must be 5-letter words. 


Program Author 


Charles Reid 
Lexington High School 
Lexington, MA. O25 
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PROGRAM LISTING 


2 PRINT:PRINT:PRINT:PRINT "PROGRAM “bORD? " 

3 REM ++ WRITTEN BY CHRIS REID, LEXINGTON HS, CLASS SOF sa73 
5 DIM SCP3,ACPY, LEPN, DEP, POPY 

19 PRINT:PRINT "I AM THINKING OF A WORD -- you GUESS IT. 
45 PRINT "CLUES TO HELP YOU GET IT. 
28 RANDOMIZE 

3 PRINT: PRINT:PRINT “YOU ARE STARTING A NEW GAME... " 
35 RESTORE 

404 READ N 

Sa C=INTCRND+N+4 ¥ 

66 FOR Il=4 To Cc 

74 READ S¢ 

38 NEXT I 

36 G=0 

CHANGE S$ TO S 

FOR I=4 To 5 

ACI9=45 

NEXT I 

FOR J=1 TO 5 

PéJ3=8 

NEXT J 

PRINT "GUESS A FIVE-LETTER WORD"; 

INFUT L¢ 

G=G4+1 

IF L#=S5$ THEN 588 

CHANGE L$ TOL 

IF Lé1)=63 THEN 205 

IF Légo<>5 THEN 400 


GOOD LUCK! ! "> PRINT: PRINT 


M=6 :Q=4 
FOR I=1 To 5 
FOR J=1 TO 5 
IF S¢I)<S>L¢J2 THEN 268 
PCOdSLEI3 
f B=h+4 
IF I<3J THEN 258 
ACJ9=LeI> 
M=M+4 
NEXT J 
NEXT I 
ACBd=5 
Pcgy=M 


CHANGE A TO AS 
CHANGE P TO PS 


IF A¢=S$ THEN 5H 
IF M>1 THEN 289 


PRINT 

goTo 158 

CHANGE 5 TO S# 

PRINT “THE SECRET WORD IS "S$:PRINT 

324 GOTO 28 

$40 PRINT:FRINT "YOU MUST GUESS A S-LETTER WORD. 
$46 PRINT: G=G-1:G0TO 154 

S84 PRINT "WO! HAVE GUESSED THE WORD 
518 INPUT "WANT TO PLAY AGAIN": a¢ 
526 IF @$="VYES" THEN 36 


536 DATA 12. "DINKY", "SMOKE". "WATER", "GRASS", "TRAIN", "MIGHT", "FIRST" 


544 DATA "CANDY", "CHAMP". "WOULD", "CLUMP", “DOPEY" 
999 END 


READY 


I WILL GIVE 


PRINT "THERE WERE"M"MATCHES AND THE COMMON LETTERS WERE..." 
PRINT “FROM THE EXACT LETTER MATCHES. YOU KNOW............. 


S PRINT: PRINT “IF YOU GIVE UP, TYPE “?° FOR YOUR NEXT GUESS" 


START AGAIN" 


IT TOOK"G"GUESSES!"; PRINT 
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you" 


SAMPLE RUN 


PROGRAM “WORD? 
LAM THINKING OF A WORD -- YOU GUESS IT 
CLUES TO HELP YOU GET IT. GOOD LUCK!! 


YOU ARE STARTING A NEW GAME. . 

GUESS A FIVE-LETTER WORD? ABCDE 
THERE WERE 4 MATCHES AND THE COMMON LETTERS WERE. 
FROM THE EXACT LETTER MATCHES, YOU KNOW 


IF YOU GIYE UP, TYPE “?” FOR YOUR NEXT GUESS 


GUESS A FIVE-LETTER WORD? CFGHI 
THERE WERE 1 MATCHES AND THE COMMON LETTERS WERE 
FROM THE EXACT LETTER MATCHES, YOU KNOW 


IF YOU GIVE UP, TYPE °?% FOR YOUR NEXT GUESS 
GUESS A FIVE-LETTER WORD? CUKLMN 


VOW MUST GUESS A S-LETTER WORD START AGAIN 

GUESS A FIVE-LETTER WORD? CJIKLM 

THERE WERE 2 MATCHES AND THE COMMON LETTERS WERE. . 
FROM THE EXACT LETTER MATCHES, YOU KNOW......... 
GUESS A FIVE-LETTER WORD? COLMN 

THERE WERE 3 MATCHES AND THE COMMON LETTERS WERE. 
FROM THE EXACT LETTER MATCHES, YOU KNOW... 2 0... 


GUESS A FIVE-LETTER WORD? COLMP 
THERE WERE 4 MATCHES AND THE COMMON LETTERS WERE 
FROM THE EXACT LETTER MATCHES, YOU KNOW 


GUESS A FIVE-LETTER WORD? CLUMP 
OW HAVE GUESSED THE WORD, IT TOOK 6 GUESSES! 


WANT TO PLAY AGAIN? YES 


YOU ARE STARTING A NEW GAME. 

GUESS A FIVE-LETTER WORD? ABCDE 

THERE WERE & MATCHES AND THE COMMON LETTERS WERE 
FROM THE EXACT LETTER MATCHES, YOU KNOW... 


IF YOU GIVE UP, TYPE ’?% FOR YOUR NEXT GUESS 


GUESS A FIVE-LETTER WORD? FGHIJ 

THERE WERE 2 MATCHES AND THE COMMON LETTERS WERE 
FROM THE EXACT LETTER MATCHES, YOU KNOW............ 
GUESS A FIVE-LETTER WORD? FIKLM 

THERE WERE 2 MATCHES AND THE COMMON LETTERS WERE. . 
FROM THE EXACT LETTER MATCHES. YOU KNOW... 


“4 


GUESS A FIVE-LETTER WORD? FINOP 
THERE WERE 2 MATCHES AND THE COMMON LETTERS WERE. . 
FROM THE EXACT LETTER MATCHES. YOU KNODI 


GUESS A FIVE-LETTER WORD? FIRST 
YOU HAYE GUESSED THE WORD. IT TOOK 5 GUESSES! 


WANT TO PLAY AGAIN? NO 


READY 


I WILL GIVE you 


C=—-— 


CLM 
eee 


cum 
C-="- 


CLMP 
C--MP 


FI 
(goes 


FI 
FI--- 


FI 
FI--~ 


YAHTZE coe. 


Description 


Yahtzee may be played by up to 15 people. The object of the 
game is to get the highest grand total score. Each player 
on his turn receives from the computer the values Ofte 

pseudo dice. He may then roll as many of them as he wants 

to again. This may be repeated once again (3 rolls maximum). 
To roll again, you tell the computer how many dice you want 
to re-roll or change and the number of each die. You play 
13 rounds for a complete game. 


After you have finished rolling, you must decide how you 
want to score the five dice. Typing "SUMMAR " will show 
you which categories have been used, otherwise, you must 
decide on one of 13 categories or "ZERO" to eliminate a 
category with no score. 


Category How Scored 

ACES Count and add all ones. 

TWOS Count and add all twos. 

THREES Count and add all threes. 

FOURS Count and add all fours. 

FIVES Count and add all fives. 

SIXES Count and add all sixes. 

THREE OF A KIND Total all 5 dice (assuming 3 of a kind). 
FOUR OF A KIND Total all 5 dice (assuming 4 of a kind). 
FULL HOUSE 25 Points (3 of one kind, 2 of another). 
SMALL STRAIGHT 30 Points (Sequence of 4). 

LARGE STRAIGHT 40 Points (Sequence of 5). 

YAHTZEE 50. Points “oeota, Kind) < 

CHANCE Total of all 5 dice. 

ZERO Zero out any category above. 


If your accumulated score of the first six categories ever reaches 
63 points, you receive a bonus of 35 points. 


Source 


Unfortunately, the program author of this extremely comprehensive 
game is unknown. 


238 


PROGRAM LISTING 


1908 AC0)s=5 2250 BCE) ag 

191@ FOR Usi To 5 2260 NEXT E 

1020 atu)=7 2270 FOR Sai TO z 

1030 NEXT U 2282 PRINT "WHICH", 

1040 CHANGE A TO cs 2290 INPUT BCS) 
1O6ODIMAC15415)4T(15415) + F (15015) 68615515) 0615715) -K(15515) pH(15/15) 2300 IF B(S)=,01 THEN 2320 

1970 FOR Imi To 5 2318 GO TO 2340 

1080 B(I)a0 2320 GOSUB 5620 

1090 Q(1)=0 2330 GO TO 2280 

119@ A(I)s0@ 2340 NEXT S 

1110 NEXT I 2350 GO TO 2490 

1120 RANDOM 2360 FOR S=1 TO § 

1130 PRINT "HOW MANY PLAYERS (TYPE! '@' FOR INSTRUCTIONS) ") 2370 ACS)SINT(6*RND(#=1) 41) 

1149 INPUT P 2380 NEXT § 

1150 IF P>15 THEN 1180 2399 GO TO 2520 

1160 IF Pag THEN 4989 2408 FOR Lei TO 5 

1172 GO TO 1200 2410 FOR Lisi TO 5 

1182 GosuB 5712 2420 IF B(L)=L1 THEN 2440 

1192 GO TO 1139 2430 GO TO 2450 

1200 IF P=,@1 THEN 1220 2440 A(L1)=Q(L) 

1210 GO TO 1240 2450 NEXT Li 

1220 GOSUB 5730 2460 NEXT L 

1230 Go TO 1140 2470 FOR Se1 TO 5 

1240 FOR I81 TO P 2480 IF A(S)=@ THEN 2500 

1250 A(1,I)=e5 2496 GO TO 2519 

1260 T(1,1)s#5 2500 A(S)SINT(6*RND(#1)41) 

1270 T(2,1)=85 2510 NEXT § 

1280 F(1,1)=95 2520 GOsUB 1618 

1290 F(2,1)==5 2610 PRINT "YOU HAVE A "sA(4)3AC2)3AC3)3AC4) $005) 
1342 S(1,I)==5 2620 PRINT "HOW DO YOU WANT THIS ROUND SCORED") 
1310 T(3,I)se5 2630 INPUT zs 

1320 F(3,1)=95 2640 IF ZS="WHAT?" THEN 2680 

1330 F(4,1)s05 2650 IF ZS="SUMMARY" THEN 2670 
1340 S(2,1)=95 2668 GO TO 2700 

1350 L(1,1)s95 2670 GOSUB 6140 

1360 Y(1)ee85 2675 GO TO 2620 

1378 C(I)se5 268@ GOSUB 5650 

1380 K(1,1)=0 2698 GO TO 2630 

1390 K(I1)s0 2700 IF ZSe"ACES" THEN 2850 

1400 M(1)=0 271@ IF Zs="TWOS" THEN 2940 

1410 PRINT "NAME" 2720 IF ZS="THREES" THEN 3030 
1420 INPUT NS(I) 2730 IF ZSe"FOURS" THEN 3120 

1430 IF NSCI)S"WHAT?" THEN 1450 2740 IF ZS="FIVES" THEN 3210 

1440 GO TO 1470 2750 IF Z$="SIXES" THEN 3300 

1459 GOSUB 5589 2760 IF ZS="THREE OF A KIND" THEN 3390 
146 Go TO 1410 2770 IF ZS="FOUR OF A KIND" THEN 3440 
1470 NEXT I 2780 IF ZSs"FULL HOUSE" THEN 3520 
1480 R=0 2790 IF ZS="SM, STRAIGHT" THEN 3620 
1490 R=R41 2800 IF Z$="LG, STRAIGHT" THEN 3660 
1495 IF R>13 THEN 6470 2810 IF ZS="YAHTZEE" THEN 3730 
1500 PRINT 2820 IF ZSs"CHANCE" THEN 3820 
1510 PRINT 2839 IF ZS="ZERO" THEN 3890 

1520 PRINT "ROUND"yR 2846 GO TO 2620 

4530 PRINT 2850 IF A(1,1)<>=5§ THEN 3870 

1540 FOR I51 TO P 2860 A(1,1)8@ 

1550 PRINT 2870 FOR Sei TO 5 

456@ PRINT 2880 IF A(S)#1 THEN 2900 

1570 PRINT NS(I)9"'s TURN" 2890 GO TO 2910 

158@ FOR L=1 TO 5 2990 ACL, IIBACL +I) +1 

1590 A(L)SINT(O#RND(=1) +1) 2910 NEXT § 

1600 NEXT L 2928 MC(I)SA(4,1) 

1665 GOSUB 16190 2930 GO TO 4690 

1607 GO TO 1700 2940 IF T(1,1I)<>"5 THEN 3870 

1618 Geo 2950 T(1,1)2a 

1620 FOR X=1 TO 5 2960 FOR S={ TO 5 

1630 IF A(X)>=A(X#1) THEN 1680 2970 IF A(S)=2 THEN 2990 

1649 H=A(X) 2980 GO TO 3000 

1650 ACX)SA(X41) 2990 T(1,1)3T(1-1) +2 

1660 ACX+1)5H 3000 NEXT S 


1670 Gai 301@ M(1)=T(1,1) 
168@ NEXT XxX 3020 GO TO 4690 
1685 IF Gsi THEN 1610 3030 IF T(2,1)<>e°S THEN 3874 


1699 RETURN 3040 T(2,1)30 
1700 PRINT "YOU HAVE A "sAC1)9AC2)9A03)9AC4)9A(5) 3050 FOR S=1 TO dy 
1710 PRINT "THIS IS YOUR 2ND OF 3 ROLLS," 3060 IF A(S)=3 THEN 3989 


1720 PRINT "HOW MANY DO YOU WANT TO CHANGE"; 3072 GO TO 3990 

1730 INPUT Zz 3080 T(2,1)=T(2,1) +3 

1740 IF Z=,@1 THEN 1760 3090 NEXT § 

175@ GO TO 1780 3100 M(I)@T(2,T1) 

1760 GOSUB 5600 3116 GO TO 4690 

177@ GO TO 1730 3120 IF F(1,I)<>"5 THEN 3879 
1780 IF Z3@ THEN 2620 3130 F(1,1)30 

1790 IF Z35 THEN 189@ 3140 FOR Sei TO 5 

1800 FOR S=1 TO Z 3150 IF A(S)=4 THEN 3170 


1810 PRINT "WHICH" 3162 GO TO 3180 

1820 INPUT B(S) 3170 F(i-L)SF(i1,1) +4 
1830 IF B(s)=®,01 THEN 1850 3180 NEXT s 

1842 GO TO 1870 3185 M(1)=F (1,1) 


319% GO TO 4690 
852 GOSUB 5620 
feed Go TO ieae 3210 IF F(2,1)<>=5 THEN 3874 


3220 F(2,1)30 
8 
ver Gequanaase 3230 FOR S31 TO § 
1890 FOR Sei TO § 3240 IF A(S)s5 THEN 3260 
1900 A(S)BINT(CO*#RND(91) 41) 325@ GO TO 3270 
1910 NEXT §$ 3260 F(2,1)=F(2,1)+5 
1920 GO TO 2050 3270 NEXT S 
1932 FOR L#i TO 5 3282 M(I)SF(2,1) 
3290 GO TO 4698 


1940 FOR Lisi TO 5 
3300 IF S(1,1)<>=S THEN 3870 
1950 IF B(L)SL1 THEN 1970 3310 S(1,r)60 


chart 3320 FOR S=1 TO 5 


fete nies 3330 IF A(S)m6 THEN 3350 
199@ NEXT L 3342 GO TO 3360 
2000 FOR Swi TO 5 335@ S(1,I)sS(1,1)+6 
3362 NEXT § 
2010 IF A(S)="@ THEN 2030 A a aoe 
Ae enetan ce 3380 GO TO 4690 
2030 A(S)SINT(6#RND(@1) 41) oe Ce 
3080 GOSUB 1610 3400 T(3/1)s0 
2140 PRINT "YOU HAVE A N"¥AC1)9AC2)9AC3D9AC4) ACS) a T(3)TDHACL)#AC2)4AC3) #AC4) 4005) 
2150 PRINT "THIS IS YOUR LAST ROLL," pete dL. 
216@ PRINT "HOW MANY DO YOU WANT TO CHANGE" por che aed eo ea apse 
Sag ane 7 3450 IF A(1)<>A(4) THEN 4960 
CR GRR LAO el 3460 IF A(2)<>A(3) THEN 4960 
2198 GO TO 2220 sr eR 
dhol ds ed 3480 F(3,1)8A(1)4A02)4A03)4A04) 4A(5) 
2219 GO TO 2170 ee 
2220 IF Z®0 THEN 2620 fee 
2230 IF Z25 THEN 2360 239 ASO le 


2240 FOR El TO 5 


3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3680 
3610 
3620 
3630 
3642 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3736 
3742 
3750 
3760 
3779 
3780 
3792 
3820 
3810 
3820 
3830 
3840 
3850 
3860 
3879 
3880 
3890 
3982 
3920 
39306 
3940 
3945 
3950 
3960 
3970 
3989 
3996 
4020 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4990 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4278 
4286 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4589 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4699 
47290 
4710 


IF F(4,1)<¢>e5 THEN 3870 
IF AC1)<>A(2) THEN 4960 
IF A(4)<>A(S) THEN 4960 
IF A(3)<>A(2) THEN 3570 
GO TO 3590 

IF A(3)<>A(4) THEN 4960 
GO TO 3599 

F(4,1)325 

M(I)#F (4/1) 

GO TO 469% 

IF S(2,1)<>©5 THEN 38798 
$(2,1)230 

M(I)8S(2,1) 

GO TO 4698 

IF L(i,I)<>e5 THEN 3870 
IF AC1)<>A(5)44 THEN 4960 
IF AC2)<>A(4)42 THEN 4960 
IF A(3)<>A(5)+2 THEN 4960 
L(i,1)240 

MCI) BLC1-T) 

GO TO 4698 

IF ¥(1)<>°5 THEN 3870 

FOR O=1 TO 5 

FOR 0131 TO 5 

IF A(O)<>A(01) THEN 4968 
NEXT Of 

NEXT O 

Y¥(1I)=50 

M(1)=Y(I) 

GO TO 4690 

IF C(1)<>=5 THEN 38708 
CCIDSAC1L) FAC 2) 4A03)4AC4)4A(5) 


M(I)=C(1) 

GO TO 4690 

GOSUB 4658 

GO TO 2620 

PRINT "WHAT DO YOU WANT TO ZERO"} 
INPUT Z8 

IF zZSe"SUMMARY" THEN 3940 

GO TO 3970 

GOSUB 6140 

GO TO 2620 

GOSUB 5680 

GO TO 3908 

IF ZSs"ACES" THEN 4110 

IF ZS="TWOS" THEN 4150 

IF ZS$="THREES" THEN 4190 

IF Z$8"FOURS" THEN 4230 

IF Z$=s"FIVES" THEN 4270 

IF ZS="SIXES" THEN 4310 

IF Z$="THREF OF A KIND" THEN 435@ 
IF Zs="FOUR OF A KIND" THEN 4399 
IF Z$="FULL HOUSE" THEN 4430 
IF Z$=#"SM, STRAIGHT" THEN 4470 
IF Z$e"LG, STRAIGHT" THEN 4510 
IF Z6s"YAHTZEE" THEN 4550 

IF ZS="CHANCE" THEN 4599 

GO TO 3890 

IF A(1,I)<>"5 THEN 46308 
A(1,1)=0 

MCI) BAC1,/1) 

GO TO 4690 

IF T(1,1)<>"5 THEN 4630 
T(1,1)28 

M(I)ST(1,1) 

GO TO 46998 

IF 1(2,1)<>95 THEN 4630 
T(2,1)30 

A(Iy2T(2,1) 

GO TO 4690 

IF F(i1,1)<>"5 THEN 4630 
F(1,1)2=0 

M(L) SF (1,1) 

GO TO 4690 

IF F(2,1)<>"5 THEN 463% 
F(2,1)=0 

MCI) SF (2,1) 

GO TO 4690 

IF S(1,1)<>"5 THEN 4630 
§(1,1)20 

M(I)#S(1,/1) 

GO TO 4698 

IF T(3,1)<>"5 THEN 4630 
T(3,1)=0 

M(I)3T(3,/1) 

GO TO 4690 

IF F(3,1)<>°5S THEN 4630 
F(3,1)30 

M(1)=F (3,1) 

GO TO 4690 

IF F(4,1)<>eS THEN 46398 
F(4,1)30 

M(I)SF (4,1) 

GO TO 4690 

IF S(2,1)<>*5 THEN 4630 
$(2,1)=0 

M(I)3S(2,1) 

GO TO 4699 

IF L(irsI)<>"S THEN 4630 
L(1,1)3@ 

MC(I)SL(1-1) 

GO TO 4690 

IF Y(1)<>="5 THEN 4630 

Y(1I)50 

M(I)5Y(I) 

GO TO 4696 

IF C(I)<>="5 THEN 4630 

C(1)=0 

MCI) aC(I) 

GO TO 46998 

GOSUB 4650 

GOTO 2620 

at "YOU HAVE ALREADY USED "yZS3" AS A CATEGORY"3CS 
RETURN 

GOTO 2620 

PRINT NS(I)y" YOU GET A SCO 2 " , 
Aa nen OE RE OF yMCI)9" FOR THIS ROUND" 
NEXT I 


4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4820 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4882 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
$039 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
$120 
5130 
5140 
§150 
5160 
5170 
5180 
5190 
5200 
5210 
$220 
§230 
5240 
5250 
5260 
5270 
5280 
52990 
5300 
5310 
§320 
$330 
5340 
5350 
5360 
5370 
5380 
5390 
5402 
5410 
$420 
$430 
5440 
5450 
5460 
5470 
$480 
5490 
5500 
5510 
5529 
5530 
5540 
5550 
5560 
5570 
5580 
56200 
5612 
£5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
578¢ 
5792 
seaa 
5810 
$826 
5830 
5840 
5850 
5860 
5878 
5880 
$890 
5980 
$910 
$926 
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PRINT 

FOR J#i TO P 

IF M(J)mAC1,J) THEN 4819 

IF M(J)=TC1,J) THEN 4810 

IF M(J)8T(2,0) THEN 4810 

IF M(J)8F(1,J) THEN 4810 

IF M(J)@FC(2,J) THEN 4810 

IF M(J)eSC1i,J) THEN 4810 

GO TO 4920 

K(1¢J) 5K (1,0) eMC) 

GO TO 4830 

IF K(1,J)>363 THEN 4860 

K(J) SKC) MCU) 

GO TO 4930 

K(1,J)8K(1,5)+35 

PRINT C8yNS(J))" HAS ACCUMULATED AT LEAST 63 POINTS" 

PRINT "IN THE FIRST SIX CATEGORIES," 

PRINT "HE SCORES A BONUS OF 35 POINTSI")CS 

K(J)8K(J) 4MC0) 

GO TO 4930 

K(J)SK(J) #MC0) 

PRINT NS(J)9" HAS "pK(J)5" POINTS" 

NEXT J 

GO TO 1496 

PRINT "IT IS ILLEGAL TO USE "3283" THIS ROUND" jCS$ 

GO TO 2622 

PRINT 

PRINT 

PRINT 

PRINT "INSTRUCTIONS FOR PLAYING YAHTZEE"jCS& 

PRINT 

PRINT "YAHTZEE MAY BE PLAYED BY UP TO 15 PEOPLE," 

PRINT "THE OBJECT OF THE GAME IS TO GET THE HIGHEST SCORE" 
PRINT "EACH PLAYER ON HIS TURN RECEIVES FROM THE COMPUTER" 
PRINT "THE VALUES OF THE 5 PSEUNO=DICE,. HE MAY THEN ROLL" 
PRINT "AS MANY OF THEM AS HE WANTS TO AGAIN, HOWEVER," 

PRINT "HE IS ENTITLED UP TO BUT NO MORE THAN THREE ROLLS" 
PRINT "OF THE DICE," 

PRINT " YOU TELL THE COMPUTER MANY DICE YoU" 

PRINT "WANT TO CHANGE, THEN TELL IT WHICH ONES IN THE FOLe" 
PRINT "LOWING MANNERS" 

PRINT 

PRINT " TYPE? '4! FOR THE 1ST DIE, '2! FOR THE 2NDy ETc" 
PRINT " AFTER THE THIRD ROLL THE PLAYER MUST DECIDE HOW" 
PRINT "HE WANTS TO SCORE HIS FIVE DICE," 

PRINT "TYPING 'SUMMARY! WILLL SHOW WHAT CATEGORIES" 

PRINT "HAVE BEEN USED, OTHERWISE," 

PRINT "YOU HAVE 13 CHOICES, TYPE 1 OF THE FOLLOWING" 

PRINT "DEPENDING ON HOW YOU WANT YOUR DICE SCORED," 

PRINT "THE CHOICES AREt" 

PRINT "ACES,TWOS,THREES,FOURS,FIVES,SIXES" 

PRINT "THREE OF A KIND,FOUR OF A KIND,/FULL HOUSE, SM, STRAIGHT," 
PRINT "LG, STRAIGHT, YAHTZEF,CHANCE," 

PRINT "WHAT THE COMPUTER WILL DOI" 

PRINT "FOR ACES IT WILL COUNT AND ADD ALL OF YOUR ONES." 
PRINT "FOR TWOS IT WILL COUNT AND ADD ALL OF YOUR TWOS," 
PRINT "THE SAME IS TRUE THROUGH THE SIXES" 

PRINT "THREE OF A KIND WILL TOTAL ALL OF THE DICE PRO=" 
PRINT "VIDED THAT YOU HAVE THREE OF A KIND" 

PRINT "FOUR OF A KIND IS THE SAME AS THREE OF A KIND EXCEPT" 
PRINT "THAT YOU MUST HAVE FOUR OF A KIND" 

PRINT "FULL HOUSE (3 OF ONE NO, AND 2 OF ANOTHER) WILL YIELD" 
PRINT "25 POINTS. SM, STRAIGHT WILL GIVE YOU 30 POINTS BUT" 
PRINT "YOU MUST HAVE A SEQUENCE OF FOUR," 

PRINT "LG,STRAIGHT WILL YIELD 4@ POINTS BUT YOU MUST HAVE A SE@" 
PRINT "QUENCE OF FIVE," 

PRINT "YAHTZEE WILLL GIVE 5@ POINTS IF YOU HAVE FIVE OF A KIND," 
PRINT "CHANCE WILL TOTAL ALL OF YOUR DICE AND USE THAT AS YOUR SCORE." 
PRINT "CHANCE IS USEFUL WHEN YOU DON'T HAVE ANYTHING WORTH SCORING," 
PRINT "ANOTHER CATEGORY, !'ZERO' WILL ZERO OUT A CATEGORY" 
PRINT "IF YOU DON'T HAVE ANYTHING WORTH SCORING" 

PRINT "BUT HAVE PERHAPS ALREADY USED YOUR CHANCE," 

PRINT 

PRINT "IF YOUR ACCUMULATED SCORF OF THE FIRST SIX CATEGORIES" 
PRINT "EVER REACHES AT LEAST 63 POINTS YOU WILL RECEIVE" 
PRINT "A BONUS OF 35 POTNTS!")CS 

PRINT 

PRINT "FOR INSTRUCTIONS DURING THE RUNNING OF THE PROGRAM" 
PRINT "TYPE 'WHAT?! WHEN THE COMPUTER ASKS FOR A WORD, OR," 
PRINT"!,01! WHEN IT WANTS A NUMBER, AND YOU WILL RECEIVE" 
PRINT "FURTHER NOTES RELATED TO WHAT THE COMPUTER ASKED FOR." 
PRINT 

PRINT 

PRINT 

PRINT "GOOD LUCKISII1"5C8 

GO TO 1070 

PRINT "WHAT DO YOU WANT ONE OF THE PLAYERS CALLED BY" 

PRINT "HOW MANY DICE DO YOU WANT TO ROLL AGAIN"y 

RETURN 

PRINT "WHICH DIE DO YOU WANT TO CHANGE" 

PRINT "TYPE! '1! FOR THE 1ST DIF, !2! FOR THE 2ND DIE, ETC," 
RETURN 

PRINT "IN WHICH CATEGORY DO YOU WANT THIS ROUND SCORED" 
Bat "TYPING: 'SUMMARY! WILL TELL YOU WHICH CATEGORIES YOU HAVE USED" 
RETURN 

PRINT "WHICH CATEGORY DO YOU WANT ZEROED" 

GO TO S660 

PRINT "A MAXIMUM OF 15 PLAYERS IS ALLOWED" 

RETURN 

PRINT "HOW MANY PEOPLE WISH TO PLAY"} 

RETURN 

IF ZS="ACES" THEN 5880 

IF Z6="TWOS" THEN 5900 

IF Z$="THREFS" THEN 5920 

IF Z$="FOURS" THEN 5940 

if Z8="FIVES" THEN 5960 

If ZSs"SIXES" THEN 5980 

IF Z$="THREE OF A KIND" THEN 6000 

IF Z$®"FOUR OF A KIND" THEN 6020 

IF ZSS8"FULL HOUSE" THEN 6040 

IF 2Z$=e"SM, STRAIGHT" THEN 6000 

IF ZS2"LG, STRAIGHT" THEN 60080 

IF Z8e"YAHTZEE" THEN 6100 

IF ZSS"CHANCE" THEN 6120 

H(I,R) #1 

GO TO 4719 

H(I,R)=2 

GO TO 4719 

H(I,R)83 

GO To 4710 


$940 
S950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6260 
6070 
62080 
6090 
6100 
6110 
6120 
6130 
6142 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6445 
6446 
6447 
6450 
6460 
64708 
6480 
6490 
6580 
6510 
6520 
6530 
6540 
6550 
6560 
6579 
6571 
6572 
6573 
6580 
6585 
6586 
6590 
6600 
6610 
6620 
9999 


H(I,R) 84 

GO TO 4710 

H(I,R)35 

GO TO 4710 

H(1I,R)36 

GO TO 47108 

H(I,R)#7 

GO TO 4719 

H(I,R)#8 

GO TO 4710 

H(I,R)39 

GO TO 4710 

H(I,R)#10 

GO TO 4710 

H(I,R) 811 

GO TO 4710 

H(I,R)212 

GO TO 4710 

H(I,R)#813 

GO TO 4710 

PRINT N6(I)»)" HAS USED THE FOLLOWING CATEGORIES}: " 
FOR S51 TO (Re1) 

IF H(I,S)>7 THEN 61890 

ON H(I-S) Go To 6190,6210,6230,6250,6270,6299,6318 
ON H(I,S)@7 GO TO 6330,6350,6370,6390,6410,6430 
PRINT "ACES, "y 

GO TO 6440 

PRINT "TwOS, "y 

GO TO 6440 

PRINT "THREES, "3 

GO TO 6440 

PRINT "FOURS, "y 

GO TO 6440 

PRINT "FIVES, "5 

GO TO 6440 

PRINT "SIXES, "y 

GO TO 6440 

PRINT "THREE OF A KIND, "y 

GO TO 64492 

PRINT "FOUR OF A KIND, "3 

GO TO 6440 

PRINT "FULL HOUSE, "}y 

GO TO 6440 

PRINT "SM, STRAIGHT, "y 

GO TO 6440 

PRINT "LG, STRAIGHT, "}y 

GO TO 6440 

PRINT "YAHTZEE, "'y 

GO TO 6440 

PRINT "CHANCE, "3 

NEXT S 

PRINT 

PRINT "HE HAS "sK(I))" POINTS," 
PRINT "AND "yK(1,I)3" OF THE 65 POINTS NEEDED FOR THE BONUS"; 
PRINT “"," 

RETURN 

Gad 

FOR Xei TO P 

IF S(X)>sS(X+1) THEN 6540 
H3S(Xx) 

S(X) 8S (X41) 

S(X+1) 8H 

Gat 

NEXT X 

IF G=1 THEN 6470 

PRINT "THE GAME IS OVER," 

PRINT 

FOR X#i TO P 

IF K(X)sS(X) THEN 6580 

NEXT X 

PRINT "THE WINNER IS "snSC1)y9" WITH "9KC1)3" POINTS," 
IF pei THEN 9999 

PRINT "OTHER FINAL SCORES ARE?" 
FOR Ys1 TO P 

IF K(Y)8S(X) THEN 6620 

PRINT NSCY)3" FINISHES WITH "yKC(Y)3" POINTS," 
NEXT Y 

END 
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SAMPLE RUN 


HOW MANY PLAYERS CTYPE: “a” FoR INSTRUCTIONS) 7a 


INSTRUCTIONS FOR FLAYING YAHTZEE 


YAHTZEE MAY BE FLAYED BY UF TO 415 PEOPLE 
THE OBJECT OF THE GAME IS TO GET THE HIGHEST SCORE 
EACH PLAYER ON HIS TURN RECEIVES FROM THE COMPUTER: 
THE VALUES OF THE S FSEUDO-DICE. HE MEFS THEN ROLL 
AS MANY OF THEM AS HE WANTS TO AGAIN. HOWEVER, 
HE IS ENTITLED UF TO BUT NO MORE THAN THREE ROLLS 
OF THE DICE 

YOU TELL THE COMPUTER MANS DICE you 
WANT TO CHANGE, THEN TELL IT WHICH ONES IN THE Puyo 
LONING MANNER: 


TYPE; “1° FOR THE 4ST DIE, “2° FOR THE 2ND, ETC 
AFTER THE THIRO ROLL THE FLAYER MUST DECIDE HW 

HE WANTS TO SCORE HIS FIVE DICE 

TYPING “SUMMARY” WILLL SHOW WHAT CATEGORIES 
HAVE BEEN USED. OTHERWISE, 

YOU HAVE 13 CHOICES, TYPE 4 OF THE FOLLOWING 

DEPENDING ON HOW YOU WANT YOUR DICE SCORED 

THE CHOICES ARE: 

ACES, TNOS, THREES, FOURS, FIVES, SIXES 

THREE OF A KIND, FOUR OF A KIND, FULL HOUSE, SM. STRAIGHT. 
LG. STRAIGHT, YAHTZEE, CHANCE 

WHAT THE COMPUTER WILL co: 

FOR ACES IT WILL COUNT AND ADC ALL OF YOUR ONES 

FOR TWOS IT WILL COUNT AND ACD ALL OF Your TWwOS 

THE SAME IS TRUE THROUGH THE SIXES 

THREE OF A KIND WILL TOTAL ALL OF THE DICE FRO- 

VIDED THAT YOU HAVE THREE OF Al KIND 

FOUR OF A KING IS THE SAME AS THREE OF A KIND EXCEFT 
THAT YOU MUST HAVE FOUR OF A KING 

FULL HOUSE C3 OF ONE NO. AND 2 OF AINCITHER] WILL YIELD 

25 POINTS. SM. STRAIGHT WILL GIVE YOU =@ POINTS BLIT 

YOU MUST HAVE A SEQUENCE OF FOUR 

LG. STRAIGHT WILL YIELD 4@ POINTS BUT YoU MUST HAVE A SE- 
QUENCE OF FIVE 

YAHTZEE WILLL GIVE S@ POINTS IF YOU HAVE FIVE OF A KIND 
CHANCE WILL TOTAL ALL OF YOUR DICE AND USE THAT AS YOUR SCORE 
CHANCE IS USEFUL WHEN ‘CLI CON’ T HAVE ANYTHING WORTH SCORING. 
ANOTHER CATEGORY, “ZERO” WILL ZERO GUT A CATEGORY 

IF YOU DON’T HAVE ANYTHING WORTH SCORING 

BUT HAVE PERHAPS ALREADY USED YOUR CHANCE 


IF YOUR ACCUMULATED SCORE OF THE FIRST SIX CATEGORIES 
EVER REACHES AT LEAST 62 POINTS YOU WILL RECEIVE 
A BONUS OF 35 FOINTS! 


FOR INSTRUCTIONS DURING THE RUNNING OF THE PROGRAM 
TYPE “WHAT?’ WHEN THE COMPUTER ASKS FOR A WORD. CIR, 
“.@4° WHEN IT WANTS A NUMBER, AND YOU WILL RECEIVE 
FURTHER NOTES RELATED TO WHAT THE COMPLITER ASKED FoR. 


HOW MANY PLAYERS CTYPE: “@ FOR INSTRUCTIONS] 72 
NAME ?DAVE 
NAME ?KEN 


ROUND 4 


DAVE’S TURN 

VOURHAVE TRY "Ss sd ete 

THIS IS YOUR 2ND OF =F ROLLS 

HOW MANY DO YOU WANT TO CHANGE 7. a4 

HOW MANY DICE DO YOU WANT TO ROLL AGAIN 741 
WHICH ?5 

NOUDHEVE TH US) cdi es a ad 

THIS IS YOUR LAST ROLL, 

HOW MANY DO YOU WANT TO CHANGE 74 

HOW DO YOU WANT THIS ROUND SCORED 7LG. STRAIGHT 
DAVE YOU GET A SCORE OF 46 FOR THIS ROUND 


KEN*’S TURN 

YOUCHAVE’A S 4 4 2 

THIS IS YOUR 2NCD OF = ROLLS, 

HOW MANY DO YOU WANT TO CHANGE 74 

WHICH ?3 

TOU RAVES fl iso cae as ed 

THIS 1S YOUR LAST ROLL 

HON MANY DO YOU WANT TO CHANGE 74 

WHICH ?3 

7OU HAVE” AGS) “42 2r2 ot 

HOW DO YOU WANT THIS ROUND SCORED ?TWOS 
KEN YOU GET A SCORE OF 2 FOR THIS RCLING 


DAYE HAS 48 POINTS 
KEN HAS 2 POINTS 


ROUND 2 


DAVE*’S TURN 

WOUCREVE Ai .6.) Ge04 Braet! 

THIS IS YOUR @ND OF = ROLLS 

HOW MANY DO YOU WANT TO CHANGE 72 

WHICH ?3,4,5 

WHICH ?4 

WHICH ?5 

YOU UHAYERRS 6 ig Goer 

THIS IS YOUR LAST ROLL, 

HON MANY DO YOU WANT TO CHANGE 74 

HOW DO YOU WANT THIS ROUND SCORED FULL HOUSE 
DAVE YOU GET A SCORE OF 25 FOR THIS ROUND 


KEN’S TURN 

you HAVE A 5 5S 3 3 1 

THIS IS YOUR 2ND OF = ROLLS, 

HOW MANY DO YOU WANT TO CHANGE 74 

WHICH ?5 

you HAVE A 5S 5S F @€ 1 

THIS IS YOUR LAST ROLL, 

HOW MANY DO YOU WANT TO CHANGE 71 

WHICH 72 

you HAVE A S 3 2 4 4 

HON DO YOU WANT THIS ROUND SCORED 7ACES 
KEN YOU GET A SCORE OF 2 FOR THIS ROUND 


DAVE HAS 65 POINTS 
KEN HAS 4 POINTS 


ROUND 3 


DAVE’S TURN 

you HAVE RA 6 S 4 4 1 

THIS IS YOUR 2NC OF 3 ROLLS 

HOW MANY DO YOU WANT TO CHANGE 72 

WHICH 74 

WHICH ?5 

you HAVE A 6 5 5 5S 4 

THIS IS YOUR LAST ROLL. 

HOW MANY DO YOU WANT TO CHANGE 72 

WHICH ?4 

WHICH ?5 

YOU HAVE A 5S 5 5 5 & 

HOW DO YOU WANT THIS ROUND SCORED ?FOUR OF Fi KING 
DAVE YOU GET A SCORE OF 2 FOR THIS ROUND 


KEN’S TURN 

YOU HAVE A 6 4 3 € 1 

THIS 1S YOUR @ND OF = ROLLS: 

HOW MANY DO YOU WANT TO CHANGE 74 

HOW DO YOU WANT THIS ROUND SCORED 75M. STRAIGHT 
KEN YOU GET A SCORE OF 2@ FOR THIS ROUNC 


DAVE HAS 8 POINTS 
KEN HAS 34 POINTS 


ROUND 4 


DAYE*’S TURN 

you HAVE A 6 S =F = 1 

THIS 15 YOUR 2@NC GF = ROLLS. 

HOW MANY DO YOU WANT TO CHANGE 71 

WHICH ?1 

YOU HAVE A S 5 3 2 2 

THIS IS YOUR LAST ROLL 

HOW MANY DO YOU WANT TO CHANGE 71 

WHICH 74 

YOU HAVE A S S- 3 2 1 

HOW DO YOU WANT THIS ROUND SCORED 7FIVES 
DAVE YOU GET A SCORE OF 18 FOR THIS ROUND 


KEN’S TURN 

YOU HAVE A 5S 4 3 2 1 

THIS 1S YOUR 2ND OF = ROLLS, 

HOW MANY DO YOU WANT TO CHANGE 7& 

HOW DO YOU WANT THIS ROUND SCORED 7LG. STRAIGHT 
KEN YOU GET A SCORE OF 46 FOR THIS ROUND 


DAVE HAS 9& 
KEN HAS 74 


POINTS 
POINTS 


ROUND 5 


DAYE’S TURN 

WOU HAVE A 6 6 3 3 2 

THIS 1S YOUR 2ND OF = ROLLS, 

HOW MANY DO YOU WANT TO CHANGE 71 

WHICH ?5 

WOU HAYE A 6 6 4 =F F 

THIS 1S YOUR LAST ROLL, 

HON MANY DO YOU WANT TO CHANGE 72 

WHICH ?3 

YOU HAVE A 6 6 S =F Ff 

HOW DO YOU WANT THIS ROUND SCORED 7S1XES 
DAVE YOU GET A SCORE OF 42 FOR THIS ROUND 


KEN’ S TURN 

yOu HAVE A 6 S$ 3 2 2 

THIS IS YOUR 2ND OF = ROLLS, 

HOW MANY DO YOU WANT TO CHANGE 72 
WHICH ?4 

WHICH2 7 

WHICH ?3 

VOU HAVE A 6 6 4 2 2@ 

THIS 1S YOUR LAST ROLL 

HOW MANY DO YOU WANT TO CHANGE 75 
WHICH ?3 

WHICH 74 

WHICH 75 

YOU HAVE A 6 6 6 4 & 
HOW DO YOU WANT THIS ROUND SCORED ?S1XES 
KEN YOU GET A SCORE OF 4&8 FOR THIS ROUNC 


DAVE HAS 116 FOINTS 
KEN HAS 92 POINTS 


KEN’S TURN 

you HAVE A 5 3 2 2 1 

THIS 1S YOUR 2ND OF 3 ROLLS, 

HOW MANY DO YOU WANT TO CHANGE 74 

WHICH ?3 

YoU HAVE A 6 5 3 2 4 

THIS IS YOUR LAST ROLL, 

HOW MANY DO YOU WANT TO) CHANGE 74 

WHICH ?1 

YOU HAVE A 5 3 2 4 1 

HOW DO YOU WANT THIS ROUND SCORED 2SUMMARS 

KEN HAS USED THE FOLLOWING CATEGORIES: 

TWOS, ACES, SM. STRAIGHT, LG. STRAIGHT, SIXES. FIVES, THREES. 
L HOUSE, THREE OF A KIND, 

HE HAS 154 POINTS, 

RND 45 OF THE 65 POINTS NEEDED FOR THE BONUS. 
HON DO YOU WANT THIS ROUND SCOREL FCHANCE 

KEN YOU GET A SCORE OF 42 FOR THIS ROUND 


POINTS 


DAVE HAS 162 
= POINTS 


KEN HAS 16 


ROUND 12 


DAVE’S TURN 

YOU HAVE A 6 4 4 3 2 

THIS 1S YOUR 2@ND OF = ROLLS 

HOW MANY DO YOU WANT TO CHANGE 72 

WHICH 74 

WHICH 72 

YOU HAVE R 6 4 3 F 2 

THIS IS YOUR LAST ROLL, 

HOW MANY DO YOU WANT TO CHANGE 72 

WHICH ?4 

WHICH 73 

YOU HAVE A 4 3 2 @ 2@ 

HOW DO YOU WANT THIS ROUND SCORED 75M. STRAIGHT 
DAVE YOU GET A SCORE OF 3@ FOR THIS ROUND 


KEN’S TURN 

you HAYE A 6 4 4 4 1 

THIS 1S YOUR 2ND OF = ROLLS, 

HOW MANY DO YOU WANT TO CHANGE 7% 

WHICH 74 

WHICH 74 

WHICH 75 

you HAVE A 5 4 4 2 21 

THIS 1S YOUR LAST ROLL, 

HOW MANY DO YOU WANT TO CHANGE 72 

WHICH 74 

WHICH 74 

WHICH 75 

YOU HAYE A 5 4 4 4 & 

HOW DO YOU WANT THIS ROUND SCORED 7ZERO 
WHAT CO YOU WANT To ZERO ?YAHTZEE 

KEN YOU GET A SCORE OF & FOR THIS ROUNE 


DAYE HAS 212 
KEN HAS 163 


POINTS 
POINTS 


ROUND 13 


DAVYE*’S TURN 

YOURHAVES Rs Gor) 45s) 927 OT 

THIS IS YOUR 2ND GF = ROLLS, 

HOW MANY DO YOU WANT TO CHANGE 73 


WHICH ?4 
WHICH ?2 
WHICH 72 


YOU RAVE GS Be 2) as 2 
THIS 15 YOUR LAST ROLL 
HOW MANY DO YOU WANT TO CHANGE 72 


WHICH 74 
WHICH 72 
YOUUHAVE Ried 3 ft 2d 


HON DO YOU WANT THIS ROUND SCORED 7ZERO 
WHAT DO YOU WANT TO ZERO ?Y'AHTZEE 
DAVE YOU GET A SCORE OF @ FOR THIS ROUNC 


KEN’ S TURN 

YOU HAVE fo 6 6° 5 4 2 

THIS 1S YOUR 2ND OF = ROLLS 

HOW MANY CO YOU WANT TO CHANGE #2 

WHICH ?2 

WHICH 74 

WHICH 75 

VOURHAVE Ala Gemen 6. vite 

THIS IS YOUR LAST ROLL, 

HOW MANY DO YOU WANT TO CHANGE 72 

WHICH ?4 

WHICH #5 

YOU! 'HAVE’ Al 1G (626 Ss) 2 

HOW DO YOU WANT THIS ROUND SCORED 7ZERO 
WHAT DO YOU WANT TO ZERO FOUR OF A KING 
KEN YOU GET A SCORE OF @& FOR THIS ROUND 


DAVE HAS 2142 FOINTS 
KEN HAS 163 POINTS 
THE GAME IS OVER 


THE WINNER IS DAVE WITH 242 POINTS 
OTHER FINAL SCORES ARE: 
DAVE FINISHES WITH 212 
KEN FINISHES WITH 162 


POINTS. 
POINTS. 
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FOURS, 


FUL 


ZOOP 


Description 


BASIC PROGRAMMER'S NIGHTMARE 


ZOOP is designed to imitate the system commands of a BASIC 
compiler, however, it gives totally meaningless and frustrating 
results. For example, to the command: 


CAT 


ZOOP responds with: 


TRY MONTGOMERY WARD's 


To the command: 
SCRATCH 


ZOOP responds with: 


GOT AN “ITCH? 


Computer Limitations 


The version of ZOOP printed here was written for DIGITAL 
Edusystems 15/30/35 and immediately decodes the first two 
characters input and carries on from there. It is a simple 
matter to convert ZOOP to a system which has string handling, 
however, it was felt that this version is more creative. It 
also happens to be the original. 


Program Author 


Tom Kloos 
Oregon Museum of Science and Industry 
Portland, Oregon 97200 


1QOPRINT\PRINT"READY"\PRINT 

118 INPUT SA\IF A®253 THEN 3QQ\ INPUT SB\IF B2253 THEN 300 
L12OLETKSiBeAeB 

L3OIFK<>2313THENLYO\PRINT"N NO FILE YOU BOOB"\GOTO100 
L4OIFK<>2143THENISO\PRINT"TALOG TRY MONTGOMERY WARD®S"\GOTOLON 
1SGIFK<>2241THENLOO\PRINT"STNK I DON*T FEEL LIKE IT"\GOTO100 
L6OQIFK<>2257THENITO\PRINT"W YES I*M QUITE NEW"\GOTOLQ0 
LTOIFK<>2274THENIFO\PRINT"D I°M NOT THAT OLD, BUT I°M OLD ENOUGH} } 1" 
1860G0T0100 

L9OIFK<>2297THEN2LONPRINT"NAME WHY? I LIKE MY NAME"\GOTO100 
2QO0IFK<>207THENCLO\PRINT"NAME WHY? I LIKE MY NAME"\GOTO100 
21QIFK<>2157THEN22O\PRINT"BUG GEY A CAN OF RAIO"\GOTO1B0 
220IFK<>2322THEN2SO\PRINT"OP THE FUN IS JUSY STARTING"\GOTO100 
230IFK<>23Q03THENC4SO\PRINT"VE I DON’T LIKE BANKS"\GOTO100 
24OIFK<>2336THEN25SO\PRINT"SAVE O.Ke, THE WHOLE DEC TAPE"\CHAIN "ZOOP " 
250IFK<>e3OSTHENCGO\PRINT"RATCH GOT AN ITCH?"\GOTO100 
26BIFK<>2166THEN2TO\PRINT"IT THIS IS NO NEWSPAPER" \GOTO100 

270 INPUT SC\IF C8253 THEN 300 

2BOIFC<>141THEN2TO 

29OPRINTAPRINT" WHAT? 27" \GOTO100 

300 PRINT " WIPED OUT COMPLETELY 1)" 

310 CHAIN "DEMON " 

320END 
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APPENDIX A 


FAMILIES OF GAMES 
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Number or Letter Logi Space 
Guessing AWARL1 ORBIT 
ie GUESS BAGLES ROCKET, ROCKT1, ROCK] 
2. HI-LO BULCOW SPACWR 
3% LETTER CHOMP TARGET 
4. TRAP CUBE 
5 STARS FIPFOP CALS OnizZ 
HI-Q CHEMST 
Piles of Objects 1CHECK CHIEF 
| We 23MTCH QUBIC HELLO 
hs BATNUM QUEEN KINEMA 
te EVEN REVRSE LITQZ 
4. NIM TUCLAG MATHD1 
TOWER TRAIN 
Matrix 
BATTLE Casino, Gambling, War 
HURKLE Betting BOAT 
MUGWMP BINGO BOMBER 
PIZZA BLKJAK, BLKJAC GUNNER, GUNER1L 
SALVO CRAPS 
SALVO1 DOGS Word 
HORSES BUZZWD 
Cybernetics (Artificial POKER HANG 
Intelligence) ROULET SYNONM 
ANIMAL SLOTS WORD 
DIGITS 
EVENL Card and Board Dates 
HEX ACEYDU CALNDR 
CHECKR WEKDAY 
Land Management, GOMOKO 
Government, History MNOPLY Miscellaneous 
CIVILW WAR AMAZIN 
FURS YAHTZE BUG 
HMRABI BULL 
KING Sports CHANGE 
STOCK BASBAL DICE 
BASKET LIFE 
Plotting BOWL LIFE-2 
BOUNCE BOXING NUMBER 
BUNNY BULEYE POETRY, POET 
DIAMND CANAM ROCKS P 
SNOOPY (2) FOOTBL, FOTBAL RUS ROU 
3DPLOT GOLF SPLAT 
UGLY HOCKEY ZOOP 


APPENDIX B - GAME DIAGRAMS 


Grids for playing BATTLE, HURKLE , MUGWMP, and SALVO. 


N 
10 10 
BRS A2eSea8 BEBE al bed 
9 9 
2 a tos [| Aga S(t 
BSR lee a ee ee 
7 7 
ne ADEE BE! 
= SII mele! cH. 
: Ho Ee 
3 a ne 
2 a Eel 
] lea EF 
Cy aS AmSE 6 7 (BmOzO "O12 3456789 0 
S 
0 123 4 5 6 7 #8e9 10 1) 1293n45 
Use this scale with a compass for MUGWMP. 
Diagram for playing QUBIC. 
(1) Level 1 Level 2 Level 3 Level 4 
1 
(2) 2 
Row 3 
4 
lume2- 3: 4 } 2 274 1} 22334 } 2SHe4 


(3) Column 


Blanks for playing DIGITS 


tt 10 —_— —_—- —- —_—-— i -— SSXm"'—wnnunw elo > 


2410 ——_ —_ —_-_ —_ —-. aXe el auneea ae > 


3d 10 — ie ae aE Dena Sea see ee 
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APPENDIX C 


INSTRUCTIONS TO GAME AUTHORS 


Programs must be complete and debugged, BASIC language only. 


Please submit: 
A. One program listing and 
B. Two sample runs the way an average person would play. 


Listing and run must be on white, unlined paper. If you have 
lined paper, turn it around to the unlined side. We 
absolutely cannot handle submittals on pink, yellow, blue 

or gray paper. Xerox, Ditto, or other copies are also 
unacceptable. Make as few folds in the output as possible. 


Listing and run must be done with a fresh black ribbon. 
Not a purple or blue ribbon and especially not a used 
ribbon. 


The Teletype type ball must be clean and produce crisp copy. 
Clean the ball with typewriter type cleaner or a stiff 
toothbrush. 


If possible, submit a paper tape of the program. Unoiled 
fan-fold tape is preferable. If you have oiled paper tape 
(as from a Teletype), fan fold it (folds are 8%" apart), 
leave at least 17" blank leader and 8%" trailer tape. 
Rolled paper tape or fan folds much greater or less than 
84" cannot be handled on our high-speed readers and are 
unusable for making copies. Be sure to wrap oiled paper 
tape in kitchen plastic wrap or waxed paper when you mail 
it. If you don't the oil seeps out and smears the output. 
Oil seepage has ruined any number of otherwise excellent 
submittals. 


We also have to know: 


A. Your name E. Your age 

B. Complete address F. Computer system used 

C. Telephone G. Original source of program 
D. School affiliation CtEenOee Vow) 


By submitting a program, you are giving Digital Equipment 
Corp. the right to publish, reprint, distribute, or use 
your program in any other way. You will, of course, always 
be cited as the author. 
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DIGITAL EQUIPMENT CORPORATION, Corporate Headquarters: Maynard, Massachusetts 01754, Telephone: (617) 897-5111 

SALES AND SERVICE OFFICES 

DOMESTIC — ARIZONA, Phoenix and Tucson « CALIFORNIA, Los Angeles, Monrovia, Oakland, Ridgecrest, San Diego, San Francisco 
(Mountain View), Santa Ana, Sunnyvale and Woodland Hills e COLORADO, Englewood e CONNECTICUT, Fairfield and Meriden e DISTRICT OF 
COLUMBIA, Washington (Latham, Md.) « FLORIDA, Orlando e GEORGIA, Atlanta e ILLINOIS, Chicago (Rolling Meadows) e INDIANA, 
Indianapolis ¢ IOWA, Bettendorf e KENTUCKY, Louisville e LOUISIANA, Metairie (New Orleans) ¢ MASSACHUSETTS, Marlborough and 
Waltham e MICHIGAN, Detroit (Farmington Hills) e MINNESOTA, Minneapolis e MISSOURI, Kansas City and St. Louis e NEW HAMPSHIRE, 
Manchester e NEW JERSEY, Fairfield, Metuchen and Princeton » NEW MEXICO, Albuquerque e NEW YORK, Albany, Huntington Station, 
Manhattan, Rochester and Syracuse e NORTH CAROLINA, Durham/Chapel Hill e OHIO, Cleveland, Columbus and Dayton e OKLAHOMA, 
Tulsa e OREGON, Portland e PENNSYLVANIA, Philadelphia (Bluebell) and Pittsburgh e TENNESSEE, Knoxville e TEXAS, 
Austin, Dallas and Houston e UTAH, Salt Lake City e WASHINGTON, Bellevue e WISCONSIN, Milwaukee (Brookfield) e 
INTERNATIONAL — ARGENTINA, Buenos Aires e AUSTRALIA, Adelaide, Brisbane, Canberra, Melbourne, Perth and Sydney e AUSTRIA, 
Vienna e BELGIUM, Brussels e BOLIVIA, La Paz e BRAZIL, Puerto Alegre, Rio de Janeiro and Sao Paulo e CANADA, Calgary, Halifax, Montreal 
Ottawa, Torontoand Vancouver e CHILE, Santiago e DENMARK, Copenhagen e FINLAND, Helsinki e FRANCE, Grenoble and Paris e GERMANY, 
Berlin, Cologne, Hannover, Frankfurt, Munich and Stuttgart e HONG KONG e INDIA, Bombay e INDONESIA, Djakarta e ISRAEL, Tel Aviv 
e (TALY, Milan and Turin e JAPAN, Osaka and Tokyo e MALAYSIA, Kuala Lumpur « MEXICO, Mexico City e NETHERLANDS, The Hague 
e NEW ZEALAND, Auckland e NORWAY, Oslo e PHILIPPINES, Manila e PUERTO RICO, Santurce e SINGAPORE e SPAIN, Barcelona 
and Madrid e SWEDEN, Stockholm e SWITZERLAND, Geneva and Zurich e TAIWAN, Taipei and Taoyuan e UNITED 
KINGDOM. Birmingham, Bristol, Dublin, Edinburgh, Leeds, London, Manchester and Reading e VENEZUELA, Caracas e 
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